| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DikobraZ ©   (2002-03-26 15:40:00) 

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

---

Slava   (2002-03-27 11:03:00) [1]

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

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

---

gek   (2002-03-27 10:04:00) [2]

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;



---

DikobraZ   (2002-03-27 09:59:00) [3]

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

---

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

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

---

Eug201   (2002-03-26 18:11:00) [5]

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

---

Barmutik   (2002-03-26 17:48:00) [6]

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

---

AFROLOV   (2002-03-26 16:12:00) [7]

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

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

end;

---

Наверх