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

Как поймать ошибку?   Найти похожие ветки 

← →
Dysan ©   (2003-08-28 12:21) [0]

Как ловятся ошибки в Делфи? Например я обратился к процедуре ЧТОТО.Connect; а она что то там сделать не смогла и выскакивает ошибка! А как сделать чтоб я молча программе сказал что законнектиться не удалось! Не важно что она там выдает, главное я буду знать что произошла ошибка!

---

← →
Skier ©   (2003-08-28 12:25) [1]

Используй
try
except
end; //try

Пользительная весЧь.

---

← →
Dysan ©   (2003-08-28 12:27) [2]

Пробовал! Он почему то except игнорирует :(

---

← →
AndreySoft ©   (2003-08-28 12:28) [3]

Вообще-то для этого существует обработка исключительных ситуаций.
Что-то на вроде этого:
try
// Все что должно выполняться, и может вызвать ошибку
finally
// Всё что выполнится даже в случае ошибки

или ещё другой вариант:
try
// Все что должно выполняться, и может вызвать ошибку
except
// Всё что выполнится только в случае ошибки

---

← →
dez ©   (2003-08-28 12:30) [4]

там у этого ЧТО-ТО есть собственные обработчики. Юзай ЧТО-ТО.OnError

---

← →
Skier ©   (2003-08-28 12:30) [5]

> ЧТОТО.Connect

Что есть ЧТОТО ?

---

← →
Dysan ©   (2003-08-28 12:33) [6]

:)
чтото - это TIdSMTP
вот! :)
onerror там нет! :)

---

← →
Skier ©   (2003-08-28 12:34) [7]

1)
Код покажи
2)
Может есть OnConnectError ? Или что-то в этом роде ?

---

← →
Dysan ©   (2003-08-28 12:38) [8]

uses
SysUtils, Classes,IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdMessageClient, IdSMTP, IdMessage;
var
SMTP: TIdSMTP;

function Mail_Connect(host,login,passward,AuthType,port:PChar):PChar; StdCall;
begin

case StrToInt(AuthType) of
0: begin
SMTP.AuthenticationType := atNone;
end;
1: begin
SMTP.AuthenticationType := atLogin; {Simple Login}
SMTP.UserId:=login;
SMTP.Password:=passward;
end;
end;

SMTP.Port:=StrToInt(port);
SMTP.Host:=host;
SMTP.MailAgent:="Doberman.mail.dll version 0.01, ZAO MAGISTRAL";

if SMTP.Connected then SMTP.Disconnect;

Mail_Connect:="0";
try
SMTP.Connect;
except
Mail_Connect:="1";
end;

Вобщем то except заработал! Но если вы знаете не кривой способ ловли ошибок или рапортации об ошибках у компонента INDY то буду благодарен за совет!

---

← →
Skier ©   (2003-08-28 12:44) [9]

> Но если вы знаете не кривой способ ловли ошибок или рапортации
> об ошибках у компонента INDY то буду благодарен за совет!

-У компонентов могут быть события возникающие при ошибках
-Если таких событий нет, то более прямого способа чем
try-except-end я не знаю.

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.012 c