Почему не работает динамически созданный 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]

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

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