Как предотвратить ошибки при использовании `TOpenPictureDialog` в Delphi: работа с ярлыками

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Как предотвратить ошибки при использовании TOpenPictureDialog в Delphi при работе с ярлыками

Пользователи Delphi иногда сталкиваются с проблемой, когда во время отладки программы, использующей компонент TOpenPictureDialog для просмотра изображений, происходит срабатывание исключения, если кликнуть по ярлыку (файлу с расширением .lnk). Это происходит потому, что TOpenPictureDialog пытается загрузить файл как изображение, но ярлык не содержит данных изображения, и в результате возникает исключение EInvalidGraphic.

Описание проблемы

При использовании TOpenPictureDialog для выбора изображений в режиме отладки, при клике по ярлыку (.lnk) программа прерывается из-за перехвата исключения, указывающего на неверный формат файла.

Решение проблемы

Подтвержденный ответ

Проблема заключается в том, что VCL некорректно обрабатывает ярлыки, принимая их за изображения. Это было исправлено в обновлении 3 для Delphi 2009. В коде VCL используется проверка файлов на валидность, которая не учитывает ярлыки, из-за чего при попытке загрузки файла возникает исключение EInvalidGraphic.

Вот примерный фрагмент кода, который используется для проверки файла:

ValidPicture := FileExists(FullName) and ValidFile(FullName);
if ValidPicture then
try
  // Попытка загрузки файла, даже если это ярлык (.lnk)
except
  // Исключение перехватывается отладчиком
  ValidPicture := False;
end;

Возможные обходные пути

1. Игнорирование исключения EInvalidGraphic

Можно добавить это исключение в список исключений, которые следует игнорировать, в настройках отладчика.

1. Перехват метода DoSelectionChange

Можно перехватить метод DoSelectionChange и реализовать свою логику проверки файлов, включая игнорирование ярлыков.

pascal TOpenPictureDialog = class(ExtDlgs.TOpenPictureDialog) procedure DoSelectionChange; override; end;

Здесь можно написать собственный код для проверки файлов на валидность, исключая ярлыки.

1. Использование detour (обходного пути)

Можно использовать detour для изменения поведения метода DoSelectionChange без прямого изменения исходного кода.

Альтернативный ответ

Изменение фильтра расширений в TOpenPictureDialog может помочь избежать выбора ярлыков:

OpenPictureDialog1.Options := [opDontAddExtension, opPathMustExist, opPickFiles];
OpenPictureDialog1.Filter := 'Image files (*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png)|*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png|All files (*.*)|*.*';

Это ограничит выбор только файлами с нужными расширениями и не позволит выбрать ярлыки.

Заключение

Для решения проблемы с ошибками при использовании TOpenPictureDialog в Delphi при работе с ярлыками, можно использовать один из предложенных методов: игнорирование исключения, перехват и изменение поведения метода DoSelectionChange, или же изменение фильтра расширений в диалоге. Выбор метода зависит от конкретных требований и предпочтений разработчика.

Создано по материалам из источника по ссылке.

Пользователи Delphi сталкиваются с ошибкой `EInvalidGraphic` в `TOpenPictureDialog` при попытке открыть ярлык вместо реального изображения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диалоги и Фреймы ::