Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c