Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

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


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 т.е. строчка выполняется, но соединятся хочет только по тому порту, который был указан на этапе компиляции.

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



Kornet   (2002-02-21 09:23) [1]

А проблема вот в этом:
Note: In the case of the TNMGeneralServer, the Port property must be set during designtime.



Turalyon   (2002-02-21 09:55) [2]

>Kornet ©
Спасибо большое, буду дальше разбираться




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-19160           Georg                 2002-02-21 11:58  2002.03.07  
Шифровки Юстаса (Алексу)


1-19136           Turalyon              2002-02-21 09:01  2002.03.07  
Проблема с сервисами


3-19064           KAA                   2002-02-07 14:40  2002.03.07  
200 откат транзакций


1-19141           Sergy                 2002-02-18 12:15  2002.03.07  
Определить подстроку в строке


1-19247           ASM                   2002-02-19 20:33  2002.03.07  
Помогите с ComboBox ом разобраться