Проблема при ClientSocket1Error [D6, Win95/98]
kalishenko © (2002-11-08 10:10: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;
parenek (2002-11-09 10:05:00) [1]
попробуй вместо
ClientSocket1.Socket.Disconnect(ClientSocket1.Socket.SocketHandle;
вставить
ClientSocket1.Close;
Наверх 
ЧАТ |
Орешник |
|
