Убрать показ ошибок!

← →
DikobraZ (2002-03-26 15:40) [0]

Как убрать эти назойливые виндосовские окошки с сообщениями об ошибках???
Если в общем виде нельзя, то именно сообщение об ошибке сокетов(10061), т.е. когда сервер ненайден.

← →
AFROLOV (2002-03-26 16:12) [1]

try
// секция кода где может возникнуть ошибка
except
// действия в случае ошибки
end;
////////////////////////////////////////////////////////////

try
// секция кода где может возникнуть ошибка
finaly

end;

← →
Barmutik © (2002-03-26 17:48) [2]

Удалено модератором

← →
Eug201 © (2002-03-26 18:11) [3]

А у этого самого сервера событий типа OnClientDisconnect нету?

← →
DikobraZ (2002-03-27 09:59) [4]

Ye я че-то не въезжаю - в моем случае где это все ставить надо???

← →
DikobraZ (2002-03-27 09:59) [5]

Ну я че-то не въезжаю - в моем случае где это все ставить надо???

← →
gek (2002-03-27 10:04) [6]

AFROLOV (26.03.02 16:12)
Тебе правильно ответил
В общих случаях, где потенциально может возникнуть ошибка

function SendResponse:boolean; begin result:=true; with Form_mail,DM_service06.NMSMTP1 do try if Connected then Disconnect; try Connect; except DM_service06.Logs.Writelog("Not connect to send mail"); result:=false; end; try if Connected then SendMail; DM_service06.Logs.Writelog("Send mail is OK"); except DM_service06.Logs.Writelog("Cant send mail after connect"); result:=false; end; finally if Connected then Disconnect; end; end;

У TClientSocket есть событие OnError

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

Убрать показ ошибок! Найти похожие ветки