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

[DenIvan]

Всем здравствуйте. Необходимо через 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+. Пожалуйста, помогите кто чем может...

[Stilet]

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

[DenIvan]

Спасибо, но теперь вот такие ругательства в модуле файла DirectDraw:

[Ошибка] DirectDraw.pas(173): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(180): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(190): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(197): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(209): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(590): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Ошибка] DirectDraw.pas(592): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Фатальная ошибка] DirectDraw.pas(5650): Could not compile used unit 'DXCommon.pas'

[Stilet]

Про эту ошибку знаю, но не подскажу ничего.
По-моему я в местах этой ошибки прямо в исходниках строчки "рэмил", чтоб не всплывали. Чесслово, давно не работал с ним, просто не вспомню сейчас.

[DenIvan]

Извиняюсь что не богат в слэнге программеров. Что значит "рэмил" - выделял ошибку, переходил на строчку модуля и комментировал строку (//)? Или что-то другое?

[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+ тут лишний.

uses
  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;

[Stilet]

Если понадобится TIFF стандартные скорее всего обломаются.