Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизУбрать показ ошибок! Найти похожие ветки
← →
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;
← →
Slava (2002-03-27 11:03) [7]У TClientSocket есть событие OnError
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c