How to become an author
Search
Write a publication
Pull to refresh

Comments 51

Только подумал, что «при Delphi 7 такого не было», как вдруг
под Delphi 7 данный код вообще работать не сможет.
Total votes 3: ↑2 and ↓1 +1
Прочитайте статью до конца в ней есть развитие идеи и доработанный вариант решения проблемы работает и под Delphi 7
Total votes 6: ↑6 and ↓0 +6
Спасибо, правда данная карта периодически меняется (к примеру EAbstractError уже не мапится на 210-ый код и закреплена за 217-ым), но за ссылку спасибо :)
Total votes 1: ↑1 and ↓0 +1
А в новых версиях Delphi исключение EAbstractError так и не научилось показывать имя класса, чей абстрактный метод был вызван?
This comment wasn’t rated yet 0
А смысла ж не имеет.
К примеру сделали мы пяток наследников от TStrings, где принципиально «забыли» перекрыть Add().
В пятом наследнике вызываем данный метод и получаем EAbstractError в классе TStrings.
This comment wasn’t rated yet 0
На самом деле нет. Мои эксперименты под Delphi 6 выдают реальное имя класса, причем и для виртуальных, и для динамических методов.
This comment wasn’t rated yet 0
Шестерки под рукой нет., семерка и ХЕ4 на вот такой код:

type
  T = TStrings;

procedure TForm4.Button1Click(Sender: TObject);
var
  A: T;
begin
  A := T.Create;
  A.Add('qwe');
end;


Выдает текст: Abstract Error.

This comment wasn’t rated yet 0
Очень информативно, ага. Ничего не поменялось, выходит. А у меня получилось достучаться до имени класса, банально установив метод в качестве AbstractErrorProc.
This comment wasn’t rated yet 0
Из статьи так и не понял причины, по которой вы вместо оборачивания потеницально опасного кода в try… except начали городить велосипед.

  // Смотрим, есть ли вообще исключения?
  E := GetNextException;
 
  if E <> nil then
  begin
    ExceptionStack := TList.Create;
    try


Если E is EOutOfMemory, вас будет ждать сюрприз.
Total votes 7: ↑7 and ↓0 +7
Согласен, но не всегда это можно сделать, к примеру в случае ошибок в пропиетарных сторонних модулях, поставляемых в виде DCU.
Да и опять-же что делать в случае приведенного примера? Класс Loger не так критичен для исполнения приложения (значит глухой try..except, ну либо вывод сообщения, что тоже сильного смысла не имеет), но зато придется помнить о том что он может быть создан с ошибкой и перед его использованием везде вставлять проверки. Палка о двух концах, получается :)
This comment wasn’t rated yet 0
Использовать модули без исходников — сама по себе весьма сомнительная идея.
Выйдет обновление RTL или вы решите мигрировать на более современную версию Delphi — и вот вы уже в заложниках у производителя этого модуля.

Он может выпустить обновлённые бинарники с задержкой в пол-года, прекратить поддержку используемой вами версии Delphi, а то и всей библиотеки или банально захотеть ещё денег за перекомпилированный модуль.

Это уже больше не на разработку ПО, а на игру в русскую рулетку похоже.

но зато придется помнить о том что он может быть создан с ошибкой и перед его использованием везде вставлять проверки.
Пардон, а как иначе?
Использовать библиотеку/класс/метод и при этом быть ни сном ни духом про то, как оно работает?
This comment wasn’t rated yet 0
Ну если вы представляете как оно работает, то должны понимать, что подавляющее большинство методов VCL может привести к генерации исключения.

Отсюда следует что Вы предлагаете вместо Canvas.Brush.Handle писать так:

if Canvas <> nil then
if Canvas.Brush <> nil then
Result := Canvas.Brush.Handle;

?

Не перебор, ли? :)
This comment wasn’t rated yet 0
Вы не так поняли посыл Maccimo. Нужно знать как работает класс/библиотека, чтобы знать каких исключений ожидать и как это дело обрабатывать.
В частности с логгером:
Logger := TFileStream.Create('A:\MyLog,txt', fmCreate);
надо обрабатывать EFCreateError, чтобы дальнейший код был согласован. В данной ситуации можно: показать пользователю сообщение что не могу создать файл, и завершить/продолжить работу. В случае продолжения работы — знать, что в Logger может быть nil, и проверять это.
Но проблема кроется в другом. Нет культуры написания кода, работающего на исключениях. Причем на глобальном уровне. Открываем справку Delphi, и пробуем найти исключения, которые может бросить TFileStream. Этих данных просто нет. Как вообще можно научиться обрабатывать исключения, если список исключений — это недокументированная фича? Класс в любой момент может стрельнуть исключением, которое программисту раньше и на глаза не попадалось.
Вот почему в MSDN для WinAPI есть описание возвращаемых ошибок, а вот для исключений в стандартых классах Delphi — нет?
Открываем любую стороннюю библиотеку, с хорошей казалось бы справкой. Описание методов есть, описания исключений — нет.

Но и Maccimo не понял смысл велосипеда. Этот велосипед нужен не для того, чтобы победить исключения, а только ради того, чтобы если что-то пошло не так — узнать об этом от пользователя. Runtime error 217 мало чем поможет, если проблему не получается воспроизвести на компьютере программиста, а вот если там будет что-то в духе:
>Cannot create file «A:\qweqwe.qwe». Системе не удается найти указанный путь.
программисту хоть будет понятно где он наговнокодил. Ну а в купе тотального недокументирования исключений — такая подпорка вполне нормальная.
Total votes 1: ↑1 and ↓0 +1
UFO just landed and posted this here
Как я хорошо, что я не программирую, а просто руковожу отделом программистов.
Total votes 39: ↑7 and ↓32 -25
Как хорошо, что я продаю мороженое.

Кто переплюнет?
Total votes 22: ↑21 and ↓1 +20
Смотря в чём переплюнуть. Если по минусам, то пока я победитель.
Total votes 19: ↑12 and ↓7 +5
Никто не любит руководство… зато все любят мороженое!
Total votes 28: ↑28 and ↓0 +28
Как хорошо, что я котик 0_o
Total votes 2: ↑1 and ↓1 0
Как хорошо было когда я был в садике?!
Total votes 3: ↑3 and ↓0 +3
Да, в садике было хорошо. Я тогда начал программировать на Python.
Total votes 16: ↑7 and ↓9 -2
«Здравствуйте. Меня зовут nochkin, мне 22 года и я питон программист. Я сижу на питоне с самого садика.

Первый раз я попробовал питон с другом из садика. Мы сидели в песочнице, обсуждали веб-технологии и тут он сказал, что недавно пробовал питон. Он предложил попробовать мне. Поначалу я не согласился, ведь это питон...»
Total votes 24: ↑22 and ↓2 +20
Артём, ты ли это? Я про тебя с самого садика и того случая с питоном в песочнице не могу забыть. Очень надеюсь, что у тебя не так плохо, как у меня.
Total votes 6: ↑3 and ↓3 0
Сообщи, где продают питон в твоем городе! Помоги питонозависимым — вступай в ряды движения «Город без питона!»
Total votes 3: ↑3 and ↓0 +3
Как хорошо, что я не плююсь.
Total votes 1: ↑1 and ↓0 +1
UFO just landed and posted this here
Я вас расстрою наверное, но у Delphi и у Python разные области применения. Хотя бы потому, что Delphi — это нативные приложения, а Python — виртуальная машина.

И почему бы не поковырять эту ошибку?
Во-первых, глаза мозолит.
Во-вторых, повод разобраться в том, как работает приложение и получить новый опыт и новые знания.
В-третьх — вменяемая отладочная информация.
Total votes 2: ↑2 and ↓0 +2
UFO just landed and posted this here
В любом случае, в любом языке есть свои характерные проблемы. И «Ошибка 217» — не самая страшная из них.
Total votes 2: ↑2 and ↓0 +2
UFO just landed and posted this here
Я имел ввиду не только Делфи, а вообще все доступные варианты ;)
Total votes 2: ↑2 and ↓0 +2
UFO just landed and posted this here
Мне интересно в какой версии Windows разработчики додумаются до реализации копирования текстов подобных сообщений?
image
и когда додумаются установить фильтр по службам и журналам…
image
Total votes 7: ↑3 and ↓4 -1
Нужно всего лишь нажать Ctrl+C в message box-е. Работает с Windows XP, а то, может, и раньше.
Total votes 24: ↑24 and ↓0 +24
Вы гений. Никогда не знал об этом. Спасибо!
Total votes 9: ↑9 and ↓0 +9
Я имею введу возможность копирования части текста, про Ctrl+C в message box-е я знал. А что можете сказать насчет фильтра?
Total votes 2: ↑1 and ↓1 0
Мда, а я всегда копировал этот текст с помощью InqSoft WS.
This comment wasn’t rated yet 0
Самый полезный комментарий к статье. Заслуживает больше плюсов.
Total votes 3: ↑3 and ↓0 +3
Работает с Windows 3.x, если мне не изменяет память.
Total votes 1: ↑1 and ↓0 +1
Когда уже закопают эту стюардессу?
Total votes 15: ↑7 and ↓8 -1
UFO just landed and posted this here
Она последнее время оживает, кстати. Комприляция под мобильные платформы, например. Так что ближайшее время точно не закопают.
Total votes 4: ↑4 and ↓0 +4
Ох ты ж, тысячу лет уже не видел кода на Delphi :)
Total votes 14: ↑13 and ↓1 +12
Шикарный пост. Когда увидел первый вариант с DisableAllFinalization волосы на голове встали дыбом. Сразу подумал, что достаточно показать сообщение об ошибке, и это надо сделать до того как сольется менеджер памяти, и тут же ломанулся писать код. Через 5 минут я написал свой модуль с AcquireExceptionObject и своим диалогом, и продолжил чтение статьи, предвкушая, что нашел отличное решение… и внезапно обнаружил точно такой же велосипед автора. В общем отличное решение, спасибо за статью с таким глубоким взглядом на проблему.
Total votes 1: ↑1 and ↓0 +1
Сразу подумал, что достаточно показать сообщение об ошибке, и это надо сделать до того как сольется менеджер памяти

А мы на этот вывод не сразу вышли (сказалась запарка по основноу проекту) и пришлось помучаться :)
This comment wasn’t rated yet 0
У меня кстати была подобная песня, но с исключениями идущими через safecall методы. Если исключение не дельфийское, то оно не попадает в SafecallErrorProc, и мы как правило видим или такое:

либо такое:

сообщение.
Изменить это мы никак не можем, так работает HandleAutoException, и красиво у меня увы, не вышло. В итоге напилил велосипедище, на хуках. Александр запостил мой модуль как воркэраунд на QC тут: qc.embarcadero.com/wc/qcmain.aspx?d=81725
Total votes 1: ↑1 and ↓0 +1
В свое время использовал madCollection — такие проблемы не появлялись :)
This comment wasn’t rated yet 0
Sign up to leave a comment.

Articles

Unlock dark mode

Your account

Sections

Information

Services

Support
© 2006–2024, Habr