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

ClientSocket в Таймере   Найти похожие ветки 

← →
Student85236   (2009-06-19 17:41) [0]

Добрый день помогите с проблемой

у меня есть в локальной сети 5 машин с серверами на ServerSocket

пишу програмку клиент которая через опред время отправлять должна команду на эти сервера (текстовую строку)

использую код в таймере

привожу его


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClientSocket1.Active := false;
ClientSocket1.Close;
n1:= ListBox1.Items.Count;
if n1=0 then timer1.Enabled:=false;
i1:=i1+1;
if not ClientSocket1.Active then ClientSocket1.Active := True;
ClientSocket1.Host:=listbox1.Items[i1-1];
ClientSocket1.address:=listbox1.Items[i1-1];
ClientSocket1.Socket.SendText("Hello");
ListBox2.Items.Add("connect  "+ClientSocket1.Address );
if i1=n1
then
timer1.Enabled:=false
end;



но происходит только соединение а строка hello не уходит в чом проблема у меня? помогите пожалуйста.

---

← →
Сергей М. ©   (2009-06-19 17:46) [1]

Отправку сообщения следует выполнять НЕ ранее возникновения события OnWrite.

---

← →
Student85236   (2009-06-19 17:50) [2]

а как дождаться его?

---

← →
Сергей М. ©   (2009-06-19 17:53) [3]

А его не надо ждать, оно само о себе заявит - вызовет назначенный тобой обработчик события.
Вот в обработчике и отправляй свою строку. Но не длиннее 8192 символа

---

← →
Student85236   (2009-06-19 17:59) [4]

Спасибо а не могли бы вы показать куда это вставить в мой код?

---

← →
Student85236   (2009-06-19 19:00) [5]

procedure TForm1.ClientSocket1Write(Sender: TObject;
 Socket: TCustomWinSocket);
begin

 ClientSocket1.Socket.SendText("R");

end;

---

← →
Сергей М. ©   (2009-06-19 20:13) [6]

procedure TForm1.ClientSocket1Write(Sender: TObject;
Socket: TCustomWinSocket);
begin

Socket.SendText("R");

end;

---

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

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



Память: 0.46 MB
Время: 0.009 c