Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.08;
Скачать: 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 вся ветка

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
3-24354
Александр365
2003-08-15 22:58
2003.09.08
Сообщение об ошибке


1-24535
VISA
2003-08-26 13:00
2003.09.08
Запрет максимизации окна...


1-24416
Bless
2003-08-26 10:09
2003.09.08
Bless


1-24503
KIR
2003-08-27 11:38
2003.09.08
Есть ли функция, возвращающая расширение файла?


1-24437
grusty
2003-08-25 17:56
2003.09.08
Вставка текста в определенное место RichEdit