Вниз
Скачать: 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-99139
MPro
2002-12-18 14:02
2002.12.30
ХЕЛП!!!! При открытии любой формы с QReport выдается ошибка:


1-99148
oleg_apmath
2002-12-18 13:35
2002.12.30
XML & Delphi


14-99273
Andrey V.
2002-12-06 20:32
2002.12.30
Хочу работать с dbf(или db) без bde


1-99138
Брат
2002-12-18 12:46
2002.12.30
Как сделать стандартное оформление для разных компьютеров?


4-99409
Maksss
2002-11-15 02:33
2002.12.30
без SYSUTILS.PAS




   Наверх