powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отключение стандартных сообщений об ошибке
13 сообщений из 13, страница 1 из 1
Отключение стандартных сообщений об ошибке
    #32315964
Фотография Anonimus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Люди помогите как отключить стандартные сообщени об ошибке типа Host look up failed ( При отправки почты)
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32315973
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А try не подойдет?

===============================
Q per
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32315980
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или свой обработчик Application.OnException напиши.
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32315992
Фотография Anonimus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поподробнее плиз о try.. finaly.
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32315996
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так наверное:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 try
    SMTP.Send(IdMsg);
    except
    SMTP.Disconnect;
    end;
    try
    SMTP.Disconnect;
    except
    end;


===============================
Q per
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32315997
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
try
//отправляешь
except
//тут чего-то надо сделать, без операторов не будет работать. Присвой в переменную чего-нибудь например
end;

Сообщение выдаваться не будет

-- Tygra's --
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316001
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Cooper

Или будет без операторов после except? Неохота проверять :)

-- Tygra's --
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316005
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 tygra

Я думал, что и без операторов будет работать. Этот пример у меня работает около года. Проблем не было. (может проблем не было, потому как не возникало ошибок при SMTP.Disconnect;). Вобщем я точно не знаю.

===============================
Q per
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316236
Фотография Anonimus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите что не так делаю
Try
if NSMTP1.Connected=FALSE then
begin
NSMTP1.Host := '';
NSMTP1.Port := 25
NSMTP1.Connect;
end;
With NSMTP1 do
begin
Charset := 'windows-1251'; {}
PostMessage.FromAddress:='maket@kgres.ru'; {}
PostMessage.ToAddress.Text:=email; {}
PostMessage.Body.Text:=''; {}
PostMessage.Subject:=Subj;
PostMessage.Attachments.Text:=Form1.ListBox1.Items.Text;
SendMail;
NSMTP1.Disconnect; {}
end;

finally

end;

сообщения все равно выдает
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316243
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подсказали же вроде?

Кстати, если ты запускаешь прогу из Делфей, то ошибка в любом случае будет!

===============================
Q per
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316245
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так except надо, а не finally.
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316246
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что за компоненты используешь?
Fastnet?

===============================
Q per
...
Рейтинг: 0 / 0
Отключение стандартных сообщений об ошибке
    #32316744
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по поводу

Код: plaintext
1.
2.
3.
try
//какие-либо операторы
except // тут нет никаких опраторов
end;


могу сказать точно что в D5 работает . Проверено на опыте неоднократоно, когда нужно просто перехватить исключение и забить на него
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отключение стандартных сообщений об ошибке
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]