Проблема с сокетами [D6, Win95/98]
kalishenko © (2002-11-12 19:57:00)
Возникла такая проблема: при обработке 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;
Malder (2002-11-12 21:18:00) [1]
А почему не можешь закрыть то ? Нажимаешь на крестик (ALT+F4
?), а она не реагирует ?
Наверх 
ЧАТ |
Орешник |
|
