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

сокеты   Найти похожие ветки 

 
Romych   (2002-11-01 10:51) [0]

Я в сетях не очень, потому хочу спросить, можна ли в одной процедуре по сокету приконектится к сурверу, послать короткое сообщение, и сразу разорвать соединение, (ситуация такая, сначала я отправляю команды по ЮДП а доложить об их исполнении хочу по сокету) Подскажите пожалуйста что нибудь ПОЖАЛУЙСТА.


 
Song ©   (2002-11-01 11:09) [1]

Можно если файл небольшой. Если большой, тогда нужно между посылкой и закрытием сокета ждать потверждения отправки.


 
Romych   (2002-11-01 11:20) [2]

Файл небольшой, 20-30 байт.


 
Romych   (2002-11-01 11:38) [3]

Файл небольшой, 20-30 байт.
Я пробую так:

ClientSocket1.Host:=TepKomanda.IpZvidky;
ClientSocket1.Port:=6048;
ClientSocket1.Active:=True;
i:=GetTickCount;
While Not ClientSocket1.Active do
Application.ProcessMessages;
ClientSocket1.Socket.SendText("!!!");
ClientSocket1.Active:=False;


 
Romych   (2002-11-01 11:40) [4]

Файл небольшой, 20-30 байт.
Я пробую так:

ClientSocket1.Host:=TepKomanda.IpZvidky;
ClientSocket1.Port:=6048;
ClientSocket1.Active:=True;
i:=GetTickCount;
While Not ClientSocket1.Active do
Application.ProcessMessages;
ClientSocket1.Socket.SendText("!!!");
ClientSocket1.Active:=False;

Если что не так (а чтото не так, определенно), подскажите, помогите.


 
Song ©   (2002-11-01 11:43) [5]

Всё правильно. Только за место присваивания свойства Active используйте TAbstractSocket.Open/Close


 
Romych   (2002-11-01 11:53) [6]

свойство ClientBloking должно быть чему равно в таком случае?



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

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



Память: 0.46 MB
Время: 0.013 c
1-99155
Essense
2002-12-18 17:53
2002.12.30
фриварные аналоги ASPack a


14-99329
KGB
2002-12-10 11:22
2002.12.30
Набор компонентов ABC


14-99276
Uncle Archi
2002-12-06 21:20
2002.12.30
Проблема с языком.


14-99270
^Sanya
2002-12-07 20:03
2002.12.30
Неужели Delphi7 так много жрёт???


1-99093
The_Vizit0r
2002-12-19 19:31
2002.12.30
Не подскажете,а?




   Наверх