Проблема с сервисами

← →
Turalyon (2002-02-21 09:01) [0]

Извиняюсь перед всеми, за сови "злобные" высказвания, Попробую повторить вопрос еще раз. (надеюсь не пропадет)

Я пишу сервис. Он принимает файлы от клиентов. Для приема/передачи фалов использую компоненты NMStrmServ и NMStrm соответственно из закладки Fast Net.
У меня возникла проблемма.

У Server Application обработчик событий OnStart и OnStop следующий ...

procedure TBehService.ServiceStart(Sender: TService; var Started: Boolean); begin NMStrmServ1.Port := 1977; Stream := TMemoryStream.Create; Started := True; end; procedure TBehService.ServiceStop(Sender: TService; var Stopped: Boolean); begin Stream.Free; Stopped := True; end;

Все вроде просто.

Далее у NMStrmServ обработчик события OnMSG след...

procedure TBehService.NMStrmServ1MSG(Sender: TComponent; const sFrom: String; strm: TStream); begin Stream.CopyFrom(strm,NMStrmServ1.BytesTotal); Stream.SaveToFile("c:\1.txt"); end;

Теперь компилирую сервис, запускаю его, запускаю клиента Connection Failed. Выяснилось, что не смотря на строчку
NMStrmServ1.Port := 1977; Порт по которому работает NMStrmServ остается тот же который был указан в Object Incspector. Т.е. если у клиента указать порт тотже, то соедениение проходит и все работает.
Точнее сказать порт вроде изменяется... я ради смеха выводил после старта сервиса номер порта в файл, там было 1977 т.е. строчка выполняется, но соединятся хочет только по тому порту, который был указан на этапе компиляции.

В чем проблемма?

Проблема с сервисами Найти похожие ветки