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

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

Ложь и все тут :) [D6, Win95/98, WinME, NT4, Win2k, WinXP]


Dennisius ©   (2003-09-07 22:15:00) 

Здрасте есть следующий код

for i:=1 to HostCount do // количество серверов
begin
ClientSocket1.Active:=false;
ClientSocket1.Address:=GetIPAddress(Hosts[i]); hosts[] сервера
>> ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText("test");
end

почему после Active:=true; он все равно "ложь" :)
GetIPAddress - работает нормально
помогите кто может ???!!!!!!!


Digitman   (2003-09-08 08:50:00) [1]

установи
ClientType = ctBlocking
перед
ClientSocket1.Active:=true;

либо после
ClientSocket1.Active:=true;
делай
while not ClientSocket1.Active do
Application.ProcessMessages;


Наверх

Титульная страница Поиск, карта сайта Написать письмо