Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Application.OnException 


Satrap   (2002-01-24 10:19) [0]

уважаемые мастера, скажите, можно ли в обработчике события
Application.OnException получить код ошибки, вызвавшую ту или иную исключительную ситуацию?



Виктор Щербаков   (2002-01-24 10:22) [1]

Код ошибки - это что?

Можно проверить исключение на принадлежность к какому-либо класу:
if E is EInOutError then ...



Satrap   (2002-01-24 16:24) [2]

Например, есть искл. сит-я Asincoronius Socket Error, в ее поле Message говорится о номере ошибки, можно ли в обработчике OnException получить этот номер?



Digitman   (2002-01-24 17:13) [3]

Можно. Вариантов куча.
1. Вариант через "причинное место" - код ошибки присутствует в строковом виде в строке текстового сообщения об исключении. Позиция фиксирована по отн. к концу строки в зависимости от WSA-операции, вызвавшей исключение
ExceptMessage := E.Message;
if E is ESocketError then
.. ErrCode:= StrToInt(Copy(ExceptMessage, ..., ...))

2. Вариант получше - не доводить обработку исключения до верхнего уровня (Application.OnException) - это крайняя мера, использование ее, как правило, непрофессионально и предназначено, в 1-ю очередь, для отладочных целей.
Обрабатывать исключение лучше в событии TCustomSocket.OnError, при возбуждении которого параметром передается код ошибки

3. Вариант надежный (но требуется полная уверенность, что гнездовой транспорт инициализирован для работы в осн.потоке) -
вызвать ф-цию WSAGetLastError



Satrap   (2002-01-25 08:50) [4]

В том то и проблем, что работа сокетов вызывает не только исл. с-ии типа ESocketError, которые можно обработать в событии OnError
>DigitMan
Я вообще делал так, как Вы советуете в п1., просто мне казалось
, что некрасиво вытаскивать код ошибки из Message. Что касается WSAGetLastError, то в OnException эта функция упорно возвращает Ноль, но возможно я использую ее неправильно, спасибо всем за помощь



Vitaly Nevzorov   (2002-01-26 00:32) [5]

try
{somthing}
except
on e:exception do showmessage(e.message);
end;

Думаю что в обработчике можно сделать что-либо подобное или на худой конец получить класс ошибки



Anatoly Podgoretsky   (2002-01-26 20:37) [6]

Второй параметр передаваемый в обработчик события E: Exception, у него есть свойство Message типа string




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.026 c
3-32131           Yakudza               2002-01-14 20:17  2002.02.11  
Как узнать что строчка в DBGrid последняя ?


14-32344          Sheva                 2001-12-20 15:30  2002.02.11  
Подскажите, пожалуйста.


1-32258           Оля                   2002-01-28 12:08  2002.02.11  
Инсталлятор


1-32290           Ежик                  2002-01-27 12:05  2002.02.11  
Помогите плииз! Дайте ссылку или примерчик!


1-32212           Сержик                2002-01-25 09:26  2002.02.11  
Как сделать чтобы