[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+. Пожалуйста, помогите кто чем может...

[Alegun]

Исходя из предыдущей темы вам не обязательно использовать GDI, достаточно сделать так

Код:

uses jpeg;
...

var
 jpg: TJPEGImage;
 bmp: TBitmap;
begin
 jpg:= TJPEGImage.Create;
 bmp:= TBitmap.Create;
 jpg.LoadFromFile('Some.jpg');
 bmp.Assign(jpg);

 // обработка bmp

 jpg.Free;
 bmp.Free;
end;

[DenIvan]

Спасибо большое за подсказку! А для gif и png файлов есть классы?

[Alegun]

Тогда используйте как контейнер обычный Image, он сейчас позволяет загружать множество форматов. Или юзайте GifImage or PNGImage