Отправлено: 03.05.13 15:52. Заголовок: NETIO

А не подскажет кто ,как повесить netio_mtserver в виде сервиса и как правильно
собрать задачу.
Есть необходимость удаленно делать архивацию дабы сетку не грузить.
Спасибо.

 Отправлено: 03.05.13 17:18. Заголовок: Dima пишет: Есть не..

Dima пишет:

цитата:

Есть необходимость удаленно делать архивацию дабы сетку не грузить.

Да сделай архивацию по расписанию на той машине, где все базы расположены.
Проще выйдет...

 Отправлено: 03.05.13 17:48. Заголовок: Andrey Не вариант. ..

Andrey
Не вариант. Я должен управлять самим процессом. В начале копирую базу средствами ADS на сервере а затем нужно
удаленно по RPC запустить архивацию.

 Отправлено: 03.05.13 23:08. Заголовок: А через сокет это не..

А через сокет это незя сделать ?

 Отправлено: 04.05.13 10:53. Заголовок: fil пишет: А через ..

fil пишет:

цитата:

А через сокет это незя сделать ?

Знаешь как это сделать ?

 Отправлено: 04.05.13 21:18. Заголовок: На сервере сидит кл..

На сервере сидит клиент который делает сокет (напр. по 2000 порту) моя прога коннектится с ним по IP и дает указание на архивацию

в FW есть sockclt.prg и sockserv.prg

 Отправлено: 04.05.13 22:42. Заголовок: fil понял бум смотр..

fil
понял бум смотреть сырцы FW.
Спасибо. Но думаю вопросов будет еще целый воз

 Отправлено: 04.05.13 23:30. Заголовок: В xHarbour'e ест..

В xHarbour'e есть тоже самое..
udpclient.prg
udpserver.prg

rpcclient.prg
rpcclientst.prg
rpcserver.prg

server.prg

 Отправлено: 05.05.13 15:23. Заголовок: Вроде разобрался , н..

Вроде разобрался , но есть вопросец
Исходник запускаемого сервиса

 
 #define _SERVICE_NAME "Harbour_Service" 
 #define DBPORT    2941 
 #define DBPASSWD  "topsecret" 
  
 request hb_curdrive  
 request curdir  
 request hb_zipfile  
  
  
 PROCEDURE Main( cMode ) 
  
    LOCAL nError 
    LOCAL cMsg 
  
    hb_default( @cMode, "S" ) /* NOTE: Must be the default action */ 
  
    SWITCH Upper( cMode ) 
    CASE "I" 
    CASE "INSTALL" 
  
       IF win_serviceInstall( _SERVICE_NAME, "ZIP_RPC",, WIN_SERVICE_AUTO_START ) 
  
          ? "Service has been successfully installed" 
       ELSE 
          nError := wapi_GetLastError() 
          cMsg := Space( 128 ) 
          wapi_FormatMessage( ,,,, @cMsg ) 
          ? "Error installing service: " + hb_ntos( nError ) + " " + cMsg 
       ENDIF 
       EXIT 
  
    CASE "U" 
    CASE "UNINSTALL" 
  
       IF win_serviceDelete( _SERVICE_NAME ) 
          ? "Service has been deleted" 
       ELSE 
          nError := wapi_GetLastError() 
          cMsg := Space( 128 ) 
          wapi_FormatMessage( ,,,, @cMsg ) 
          ? "Error deleting service: " + hb_ntos( nError ) + " " + cMsg 
       ENDIF 
       EXIT 
  
    CASE "S" 
    CASE "SERVICE" 
  
       /* NOTE: Used when starting up as service. 
                Do not invoke the executable manually with this option */ 
  
       IF win_serviceStart( _SERVICE_NAME, @SrvMain() ) 
          ? "Service has started OK" 
       ELSE 
          nError := wapi_GetLastError() 
          cMsg := Space( 128 ) 
          wapi_FormatMessage( ,,,, @cMsg ) 
          ? "Service has had some problems: " + hb_ntos( nError ) + " " + cMsg 
       ENDIF 
       EXIT 
  
    ENDSWITCH 
  
    RETURN 
  
  
 PROCEDURE SrvMain() 
 local pSockSrv:= netio_mtserver( DBPORT,,, /* RPC */ .T., DBPASSWD ) 
       if empty( pSockSrv ) 
    win_serviceSetExitCode( 0 ) 
    win_serviceStop() 
    return 
       endif 
  
    DO WHILE win_serviceGetStatus() == WIN_SERVICE_RUNNING 
       hb_idleSleep( 0.5 ) 
    ENDDO 
  
    netio_serverstop( pSockSrv, .t. ) 
    win_serviceSetExitCode( 0 ) 
    win_serviceStop() 
  
    RETURN 
 

Запускаем Myserv i , все нормально
Затем Myserv s и получаю ошибку 1063
Если запустить руками из сервисов все работает и к нему можно подключаться
и делать архивацию , что и хотел.
Что это за ошибка 1063 и как ее обойти ?

PS
Смотрю в LetoDB функции по работе с сервисами из HBWIN не используются и написаны свои.
Интересно знать причину.
Паша отзовись !

 Отправлено: 05.05.13 22:37. Заголовок: Поддержку службы в l..

Поддержку службы в letodb сделал Александр Охотников, и это было до того, как этот механизм появился в Харборе. Поэтому он и не используется.
Ошибка 1063 - ERROR_FAILED_SERVICE_CONTROLLER_CONNECT
или The service process could not connect to the service controller.

В примере не рекомендуется так запускать службу:
/* NOTE: Used when starting up as service.
Do not invoke the executable manually with this option */

Если не хочется запускать из менеджера служб, можно ее запускать командой net start

 Отправлено: 05.05.13 22:47. Заголовок: Pasha пишет: Если н..

Pasha пишет:

цитата:

Если не хочется запускать из менеджера служб, можно ее запускать командой net start

Дело не в том хочется или нет.
я так понял что запустить сервис из harbour не получится с помощью win_serviceStart , так ?

ЗЫ
С праздником Павел !

 Отправлено: 07.05.13 17:39. Заголовок: Что то порча меня по..

Что то порча меня посетила.
Не хочет стартовать сервис (ошибка 1053).
Если его удалять , прога сообщает что он удален , но реально в менеджере служб живет и удалить его от туда
не получается.
B реестре соответствующую ветку удалить так же не получается.
Жесть.

 Отправлено: 07.05.13 18:20. Заголовок: Вроде разобрался Бы..

Вроде разобрался

Было в тексте выше

 
 hb_default( @cMode, "S" ) 
 

Запуск проги с параметром I и затем стартую руками из менеджера - все норм

Переделал на

 
 hb_default( @cMode, "I" ) 
 

Запускаю прогу , вижу "Service has been successfully installed"
Лезу в менеджер служб и запускаю и висяк.

 Отправлено: 14.06.13 08:20. Заголовок: Люди, подскажите, чт..

Люди, подскажите, что означает и какие значения может принимать параметр nStrategy в NETIO_CONNECT() и др.

 Отправлено: 14.06.13 09:15. Заголовок: Панченко ..

Панченко

 
       <nStrategy> is used to tune compression algorithm, 
                   see HB_ZLIB_STRATEGY_* 
  
 

 Отправлено: 14.06.13 13:26. Заголовок: Dima Спасибо. Вопро..

Dima

Спасибо. Вопрос закрыт.

 Отправлено: 08.11.13 15:44. Заголовок: NETIO Service

Dima Привет !
Ну как ты успел запусть NETIO как Service ?

 Отправлено: 08.11.13 15:48. Заголовок: sashaBG пишет: Ну к..

sashaBG пишет:

цитата:

Ну как ты успел запусть NETIO как Service ?

Конечно и давно работает успешно

Стартую вот таким батником
rpcserv i
net start ZIP_RPC

Uninstall в случае обновы
net stop ZIP_RPC
rpcserv u

 Отправлено: 08.11.13 16:32. Заголовок: А що случается если будет ошибка ?

А що случается если будет ошибка в программе ?
Надо снова все запускать да
или лучше позаботится чтоб не было ошибок во время выполнения

 Отправлено: 08.11.13 16:36. Заголовок: sashaBG пишет: или ..

sashaBG пишет:

цитата:

или лучше позаботится чтоб не было ошибок во время выполнения

позаботится

У меня к примеру этот сервис ни разу еще не падал с марта месяца.
В принципе я не сильно и гружу его. Он занимается копированием и архивацией и другими мелочушками.
Все что мне от него нужно было я в нем прописал парой тройкой строчек

 
  request hb_curdrive   
  request curdir   
  request hb_zipfile   
  request ferase  
  request directory  
  request __copyfile 
  request hb_fcopy 
  request os 
  request hb_fileexists  
  request hb_DynCall 
  
 

 Отправлено: 08.11.13 18:43. Заголовок: А я его нагружаю

А я NETIO нагружаю сильно

У меня технология такая :
Клиентский модуль через LetoDB заполняет первичные документы и выводит справки
а Серверная часть по заявке от Клиента запускает цикл обработки первичных документов .
Алгоритм обработки достаточно сложен , поетому я не стал пробовать как будет через Letoudf .

Сейчас у меня Серверная часть откомпилирована вмесе с библиотекoй MiniGUI и сдит в трее)
так как я въполняю некоторые задачи с етого модуля ( например создать новую базу новой фирмы, старт стоп сервера LetoDB , архивирование , возстановление архива и т.д.)

Хочу попробовать создать отедлны RPC модуль на чистом Харборе и запихать туда все ети процедуры обработки.
С цельию возможной компиляции в 64 бит и на других платформах ДЛЯ УСКОРЕНИЯ ОБРАБОТКИ

Естественно под Windows удобно будет запускать ето все как Service

A все служебные задачи вынести в клиент или в отельный административнй модуль ( связь через NETIO)

 Отправлено: 22.01.16 17:05. Заголовок: У кого то получилось..

У кого то получилось запустить NETIO (сервер) по порту отличному от 2941 ?

 Отправлено: 12.12.16 00:15. Заголовок: Можно ли получить кл..

Можно ли получить клиентские станции (client) которые работают с сервером NETIO ?
Интересует имя машины и IP адрес.
Можно конечно сделать через журнал-базу, но вдруг клиент отвалился по ошибке и запись за собой не подтер.