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

Две посылки, один прием   Найти похожие ветки 

← →
Urvin ©   (2003-09-20 20:51) [0]

Проблема возникла. Для отсылки на сервер сообщения надо кнопку нажать дважды, это напрягает. код примерно такой:
КЛИЕНТ:
ClientSocket1.Host:="Host";
ClientSocket1.Port:=2003;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та строка");
ClientSocket1.Active:=False;
CЕРВЕР:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Str: String;
begin
Str:=Socket.ReceiveText;
ShowMessage(Str);
end;
Все-таки, два раза нажимать не нравится

---

← →
Senti   (2003-09-21 00:57) [1]

а зачем ты закрываешь сокет после отправки ?
если хочешь пользоваться своим алгоритмом сделай цикл.


i - Нужное число отправки сообщения
for j:=1 to i do
begin
ClientSocket1.Host:="Host";
ClientSocket1.Port:=2003;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та
строка");
ClientSocket1.Active:=False;
end;


---

← →
Urvin ©   (2003-09-21 02:08) [2]

НЕ! не в том дело-то. Послать надо один раз одну строку. Только получается со второго раза. Закрываю все потому, что потом надо переключиться на следующий комп.

---

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

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



Память: 0.45 MB
Время: 0.014 c