[Lothlorien]

Всем привет!

Допустим, есть код, который загружает растровое изображение из файла в TBitmap:

Код:

SomeBitmap.LoadFromFile('somefile.bmp');

Если же юзер, например, попросит программу загрузить изображение из файла иного формата, то вылетит исключение EInvalidGraphic. Причем определять формат файла нам надо не по расширению имени, а по содержанию (файл может быть переименован, и расширение может отличаться от .bmp).
Выполнение в блоке "try .. except on E: EInvalidGraphics do ..." ничего не дает, исключение возникает все равно.

Не могу найти ничего по своей теме, потому спрошу здесь: существует ли какой-нибудь способ перед загрузкой битмапа удостовериться, действительно ли это битмап?

[Lothlorien]

Пардон, проблема решена самостоятельно. Покопался в модуле Graphics и скомбинировал функцию проверки:

Код:

function IsBitmap(const FileName: string): boolean;
var Bmf: TBitmapFileHeader;
    S: TStream;
begin
  S:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  S.ReadBuffer(Bmf, SizeOf(Bmf));
  Result:=Bmf.bfType = $4D42;
  S.Free;
end;

[dr. F.I.N.]

Сообщение от Lothlorien

Выполнение в блоке "try .. except on E: EInvalidGraphics do ..." ничего не дает, исключение возникает все равно.

Дайте угадаю, исключение возникает при запуске программы из IDE? Так это и должно происходить. Если мешает, то можете отключить остановку выполнения программы, запущенной из под IDE, при возникновении исключения в блоке try/except.

[Lothlorien]

Остановка отключается какой-нибудь директивой препроцессора, или надо смотреть в настройках IDE?

[dr. F.I.N.]

В настройках IDE точно отключается. А вот директивы похоже нет (могу ошибаться, но не нашел).

[Lothlorien]

Спасибо, попробую