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

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

вопрос по ТClientSocket [D7, WinXP]


ilka ©   (2003-08-13 16:32:00) 

есть вот такой вот код
try
ClientSocket.Active := true;
while not ClientSocket.Active do
Application.ProcessMessages;//жду пока подключится
//без этого не отправляет
except
ShowMessage("Exception: can""t find server");
ClientSocket.Active:=false;
ClientSocket.Free;
Exit;
end;


прога вылетает (ошибка Asynchrous socket error 10061)но внутрь except почемуто не попадаю


Digitman   (2003-08-13 16:48:00) [1]

)

p.s.

"Урраааа !!! Ззззаработалоооо !!!" (с) Простоквашино и Ко


ilka   (2003-08-13 16:37:00) [2]

спасибо заработало


Digitman   (2003-08-13 16:34:00) [3]

убери WHILE-цикл, установи перед Active = True св-во ClientType:= ctBloking - попадешь


Наверх

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