Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сделать рассылку одного сообщения нескольким машинам? [D5, Win95/98, WinME, NT4, Win2k, WinXP]

serg128 © (2004-07-30 15:20:00)
Делаю так:

AnsiString InpStr = Info.GetElement(0);
// ShowMessage(InpStr);
AnsiString txt = InpStr.SubString(InpStr.Pos("#")+1, InpStr.Length()-InpStr.Pos("#"));

AnsiString IPstr = InpStr.SubString(1, InpStr.Pos("#") -2 );
AnsiString tmpIP; // ïåðåìåííàÿ äëÿ îäèíî÷íîãî IP àäðåñà
while(IPstr.Length())
{
tmpIP = IPstr.SubString(1, InpStr.Pos(";")-1);
IPstr.Delete(1, InpStr.Pos(";"));
TClientSocket *ClientSocket = new TClientSocket(this);
ClientSocket->Port = 6002;
ClientSocket->Address = tmpIP;
ClientSocket->Active = true;
ClientSocket->Open();
Application->ProcessMessages();
Sleep(100);
ClientSocket->Socket->SendText(txt);
Application->ProcessMessages();
ClientSocket->Active = false;
ClientSocket->Close();
delete ClientSocket;
}
}

И впринципе работает, но плоховато (иногда сообщения не доходят). Подскажите плиз, в чем дело?

Verg (2004-07-31 13:18:00) [1]

> [4] serg128 (31.07.04 12:34)
> Если ты посмотрел на код, то должен был увидеть: он ОТПРАВЛЯЕТ
> , а не принимает сообщение.

Тем не менее, сути замечания ты не понял.

В неблокирующем (асинхронном) режиме ClientSocket->Open(); инициирует открытие соединения (начинает процесс установления соединения). Т.е. после вызова этого метода вовсе не обязательно, что сокет уже установил соединение. Только поле возникновения события OnWrite можно начинать попытки отправить данные по установленному соединению.

serg128 (2004-07-31 12:34:00) [2]
Если ты посмотрел на код, то должен был увидеть: он ОТПРАВЛЯЕТ , а не принимает сообщение.

VMcL (2004-07-30 17:24:00) [3]
>> serg128 (30.07.04 16:15) [2]

Тогда с чего ты взял, что после вызова ClientSocket->Open(); сокет сразу готов принимать данные?

serg128 (2004-07-30 16:15:00) [4]
нет

VMcL (2004-07-30 15:53:00) [5]
>>serg128 (30.07.04 15:20)

Режим блокирующий?

Наверх

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