Вниз
Скачать: CL | DM;

Почему не работает динамически созданный TNMSTRMServ ?   Найти похожие ветки 

 
Stas ©   (2003-09-09 15:49) [0]

Создаю на этапе конструирования (т.е. Ложу на форму и прописываю порт) TNMSTRMServ - работает.
Создаю динамически (т.е. NmStrmServ:=TNmStrmServ.Create(self) - не работает, пишет: Connected failed !


 
Digitman ©   (2003-09-09 16:46) [1]

для затравки - кто такой self ? в случае динамики ?


 
Mixan ©   (2003-09-09 21:37) [2]

а не пробовал класть его на форму?


 
Stas ©   (2003-09-10 15:50) [3]

to Digitman © (09.09.03 16:46) [1]
>>для затравки - кто такой self ? в случае динамики ?

Форма.

>>Mixan © (09.09.03 21:37) [2]
а не пробовал класть его на форму?

Умничать будешь дома - Маме.
Если ответа не знаешь какого х..я влазишь ?


 
Digitman ©   (2003-09-10 16:00) [4]


> не работает, пишет: Connected failed !


в какой момент ? при вызове какого его метода ?

порт прослушивания установил явно ?


 
Stas ©   (2003-09-10 16:05) [5]

Когда пытаюсь отправить информацию или установить Connect.


 
Stas ©   (2003-09-10 16:05) [6]

Порт устанавливал явно.


 
Digitman ©   (2003-09-10 16:08) [7]


> Stas


интересно, с кем это сервер обязан установить коннект по твоему требованию ?)

запрос на коннект подает клиент, а не сервер
сервер лишь слушает (см. Listen) и акцептирует кл.запросы на коннект


 
Stas ©   (2003-09-10 16:14) [8]

Правильно, когда пытаюсь установить connect на клиенте, то выдается сообщение Connected failed !


 
Digitman ©   (2003-09-10 16:23) [9]


> Stas


в вопросе, кстати, речи о клиенте не шло вообще

приведи полный код процедуры создания/инициализации/активации серв.стороны

приведи полный код процедуры создания/инициализации/запроса на коннект кл.стороны


 
Stas ©   (2003-09-10 16:36) [10]

Sender:=TNMSTRM.Create(self);
Reciver:=TNMSTRMSERV.Create(self);

Sender.Host:=sIP;
reciver.Port:=6711;
sender.Port:=6711;
SIP- IP адрес машины где стоит сервер.

Если клиент создан динамически а сервер нет, то работает.
Если же сервер создан динамически, то не коннектится.
Может я че-то недописал ?


 
Digitman ©   (2003-09-10 16:51) [11]

вот же пример, в хэлпе

procedure TForm1.Button1Click(Sender: TObject);
begin
Powersock1.Host := "www.netmastersllc.com";
Powersock1.Port := 13;

Powersock1.ReportLevel := 1;
Powersock1.Timeout := 5000;

Powersock1.Connect;
end;


 
Stas ©   (2003-09-11 13:52) [12]

Спасибо. Буду пробовать.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c
14-41976
Digitman
2003-10-15 15:07
2003.11.13
Про братьев наших меньших...)


7-42169
Camedia
2003-08-30 22:18
2003.11.13
Нужно чтобы хук работал по всей системе....


3-41082
MaG
2003-10-23 15:33
2003.11.13
Поверх всех окон


14-41997
panov
2003-10-15 21:10
2003.11.13
Программы копирования HDD


8-41769
Melamed
2003-07-06 10:47
2003.11.13
Не понятный глюк в DirectDraw




   Наверх