вопрос по ТClientSocket

← →
ilka © (2003-08-13 16:32) [0]

есть вот такой вот код
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:34) [1]

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

← →
ilka © (2003-08-13 16:37) [2]

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

)

p.s.

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

вопрос по ТClientSocket Найти похожие ветки