Главная страница
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.027 c
1-24542
GreySerg
2003-08-26 17:28
2003.09.08
Возврат в несортированный список в TListBox


6-24595
Schummi
2003-06-28 06:39
2003.09.08
GetUrlCacheEntryInfo


3-24383
Khloo!
2003-08-15 12:13
2003.09.08
Насколько устойчив Paradox?


6-24604
Crash
2003-07-06 01:16
2003.09.08
Компонент TWebBrowser


1-24419
pavel_guzhanov
2003-08-25 17:49
2003.09.08
Delphi & Excel