|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Использование GDI+ в делфи 7
Всем здравствуйте. Необходимо через 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+. Пожалуйста, помогите кто чем может... |
#2
|
||||
|
||||
Исходя из предыдущей темы вам не обязательно использовать 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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Спасибо большое за подсказку! А для gif и png файлов есть классы?
|
#4
|
||||
|
||||
Тогда используйте как контейнер обычный Image, он сейчас позволяет загружать множество форматов. Или юзайте GifImage or PNGImage
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |