Главная страница
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.021 c
3-24315
Maksim
2003-08-13 12:50
2003.09.08
Как из Delphi грамотно инициализировать атрибуты объекта Oracle??


4-24744
Shluz
2003-07-02 12:24
2003.09.08
wm_SetText


4-24758
Miwa
2003-07-08 22:36
2003.09.08
SHFileOperation выдает ошибку №7, да еще


6-24597
RedFox
2003-07-02 12:12
2003.09.08
Поддержка сети в Delphi 7


1-24526
3APA3A
2003-08-27 01:40
2003.09.08
Работа с RaveReport