Использование GDI+ в делфи 7. Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp

Posted by obzor under Delphi, Архив, Топик-обзор

Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:

uses
 Windows, ... jpeg, pngimage, GifImage,
  GDIPAPI, GDIPOBJ, GDIPUTIL;

procedure TForm1.Button3Click(Sender: TObject);
var
  encoderClsid: TGUID;
  Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
 if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');
  GetEncoderClsid('image/bmp', encoderClsid);
  image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
  image.Free;

  Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;

При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized

А затем вылазеет ошибка вот в таком окне:

—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module

‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————

Жму ОК, выскакивает окно:

Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas

Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.

phomm

Причина аксес виолейшена может крыться тут

if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');

как видим, ифка отрабатывает и действует на 1 строку — создания имеджа, если ифка не отрабатывает, то после этих строк переменная image ссылается на мусор (не вызывался конструктор) и работа с мусорным указателем приведёт к АВ (о чём и намекает ворнинг), тривиальное решение — засунуть всю пачку конвертирующего кода в бегин-энд после ифки.
Плюс надо бы проверить под дебагом, что за расширение возвращается.

То что пишет, что файл не найден, дак тут всё как и должно быть — среда пытается показать строку в файле с кодом, начиная с которой процесс пришёл к АВ, но поскольку она лишь знает номер строки (читая из dcu взаимосвязи бинарного кода и строк исходника), её попытка открыть несуществующий пас-файл проваливается.
Но к делу это не относится, это лишь следствие.

ПС. отвечу за Stilet’a. ремил это значит комментировал, от команды rem из «языка» командной строки, команда эта делает нерабочей строку после неё до перевода строки, т.е. работает как комментарий.

Крамольный вопрос спрошу — на кой ляд Вам GDI+, когда обычный Assign жпеговского объекта в битмаповский объект позволяет конвертировать графику (в сети мульён копий этого простого кода) ?

ПС. Отвечу за Stilet‘a. ремил это значит закомментировал, от команды rem из «языка» командной строки, означающей исключение последующего текста до перевода строки из обработки процессором команд, что по сути есть комментирование.

ПС2. ошибки из директдровного модуля скорее всего сводятся к такой сути — в рекордах с указанием case нельзя использовать «большие» строки (string, ansistring) и динмассивы. Возможно, не совсем корректный перевод с с++ или не учтены какие-то инклюды/директивы.

x128

Как верно заметил товарищ phomm, GDI+ тут лишний.

  jpeg, pngimage, GifImage;
...
var
  bmp: TBitmap;
begin
  bmp:=TBitmap.Create;
  with TPicture.Create do begin
    LoadFromFile(.....); //jpg,png,gif,bmp
    bmp.Assign(Graphic);
    Free;
  end;
  bmp.SaveToFile('image.bmp');
  bmp.Free;
end;

тема на форуме

Похожие статьи

• Столкновения в 2D-игре
• Программа «Фейерверк»
• Стоит переходить с Delphi 7 на Delphi 2010?