Проблема при ClientSocket1Error

← →
kalishenko (2002-11-08 10:10) [0]

Возникла такая проблема: при обработке ClientSocket1Error при возникновении ошибки (т.е. не могу подключиться к какой-то машине) приложение не может закрыться. Хотя оно не зависает, поскольку Maximize и сворачивание окна работает, да и функционирует вроде нормально, а закрыть его не могу ("светит" только перезагрузка). Код обработчика выглядит так:

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ClientSocket1.Socket.Disconnect(ClientSocket1.Socket.SocketHandle);
while ClientSocket1.Active do Application.ProcessMessages;
if not ClientSocket1.Active then
ShowMessage("Абонент находится вне зоны обслуживания");
ErrorCode:=0;
end;

← →
parenek (2002-11-09 10:05) [1]

попробуй вместо
ClientSocket1.Socket.Disconnect(ClientSocket1.Socket.SocketHandle;

вставить
ClientSocket1.Close;

Проблема при ClientSocket1Error Найти похожие ветки