PHP DM Gate v0.9 » Использование ClientSocket в цикле

TarenoKostanay © (23.02.11 17:19) [0]

Здравствуйте, уважаемые мастера! В компоненте ClientSocket особо не разбираюсь. Задача такая: В программе по локальной сети между 3 компами установлен на одном ClientSocket, а на остальных ServerSocket. В программе с ClientSocket:
Memo2.Lines - список компьютеров в сети, т.е. ClientSocket1.Host
ForSend - отправляемое сообщение
Требуется чтобы сокет передавал одно и тоже сообщение всем хостам в ServerSocket из списка Memo2. А ServerSocket сохранял сообщение в Memo1 (на другом компе) Я делаю отправку в программе с ClientSocket так но не получается. Отправляется только если в списке один хост:
begin
for st := 0 to Memo2.Lines.Count-1 do begin
ForSend:=DBText1.Field.Text;
ClientSocket1.Close;
ClientSocket1.Host:=Memo2.Lines.Strings[st];
ClientSocket1.Open;
end;

Пожалуйста подскажите кто знает. Спасибо
Версия Delphi: BDS 2006 , ОС: Win7

<Цитата>
xmen (24.02.11 11:24) [1]

хмм, а отправка то где?
соединение установили, а дальше?

for each host in Hosts
clSocket.Host = host
clSocket.Open;
clSocket.Send (forSend)
clSocket.Close;
next host

<Цитата>
Slym © (25.02.11 20:15) [2]

> соединение установили, а дальше?
>

телепатор уловил неблокирующий режим...

переделать в блокирующий! для новичка блокирующий проще в понимании ввиду линейности операций

<Цитата>
~~имя~~ (21.03.11 01:54) [3]

Удалено модератором

<Цитата>