| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

---|Ветка была без названия|---

SMKRZ ©   (2003-11-01 17:14:00) 

В общем проблема в следующем. Есть две программы: одна клиент ( idTCPClient), другая сервер ( IdTCPServer). Серверов много, клиент один. Клиент выбирает из списка нужный хост, коннектится по нему, отсылает сообщение, получает ответ и рвёт связь, и по циклу выбирает следёющий хост и всё повторяется сначала... Проблема в том, что в это время с прилдожением нельзя работать, так как фактически оно зависшее , не реагируещее ни на какие события! Как с этим бороться?
Код клиента:

var ping : boolean;
...
try
form1.IdTCPClient1.Host:=get_ip; //выбор ай-пи из списка
Form1.IdTCPClient1.Connect;
form1.IdTCPClient1.WriteLn("ping");
Form1.IdTCPClient1.ReadLn;
except
ping:=false; //если есть ошибки, значит попытка закончилась неудачей
end;
Form1.IdTCPClient1.Disconnect;

Код сервера:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var mess : string;
begin
mess:=AThread.Connection.ReadLn;
SpeedButton1.Caption:=mess;
if mess="ping" then
AThread.Connection.WriteLn("pong");
AThread.Connection.Disconnect;
end;


---

nv-vetal   (2003-11-01 22:50:00) [1]

Application.ProcessMessagess

---

Наверх