Главная страница
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.018 c
14-24633
DeMoN-777
2003-08-21 14:03
2003.09.08
Структура БД


1-24542
GreySerg
2003-08-26 17:28
2003.09.08
Возврат в несортированный список в TListBox


14-24634
Пробегал тут...
2003-08-21 01:01
2003.09.08
Фильтрованное из humor.filtered


9-24295
MASSACRE
2003-03-05 03:54
2003.09.08
Кубические сплайны Помогитееее.


6-24586
Михайлов Антон
2003-04-28 13:27
2003.09.08
Люди, аот такая у меня проблема с IRC