Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как jpeg файл переделать в bmp? [D6, WinME]


Ramario ©   (2003-12-22 12:31:00) 

Помогите начинающему, сохранить jpeg файл в bmp формате, я сколько ни пробовал все время ошибки


Ramario   (2003-12-22 19:29:00) [1]

Спасибо! Щас буду пробовать.


_none_   (2003-12-22 16:28:00) [2]

кстати, это для широкого набора файлов, не только jpeg...
правда, приходится gdiplus.dll таскать, да и вывод через gdi+ не шустрит...


_none_   (2003-12-22 16:09:00) [3]

uses gdipapi, gdipobj;

var _graphics: tgpgraphics;
   _gpbitmap: tgpbitmap;
begin
_gpbitmap := tgpbitmap.create('filename.jpg');

_tmpbmp := tbitmap.create;
_tmpbmp.width := _gpbitmap.getwidth;
_tmpbmp.height := _gpbitmap.getheight;
_graphics := tgpgraphics.create(_tmpbmp.canvas.handle);
_graphics.draw(_gpbitmap, 0, 0, _tmpbmp.width, _tmpbmp.height);
_tmpbmp.savetofile....

//и всех освободить...


MBo   (2003-12-22 15:31:00) [4]

> [5]
Нет, все же иногда лучше жевать, чем говорить ;)


Dmitriy O.   (2003-12-22 15:24:00) [5]

Вот типа так можно попробовать.
image1.Picture.LoadFromFile(opd.FileName);
clipboard.Assign(image1.Picture.Graphic);
image1.Picture.Bitmap.Assign(clipboard);
clipboard.Free;


MBo   (2003-12-22 14:50:00) [6]

>Assing
Какое красивое, нежное слово ;)


Mihey   (2003-12-22 14:49:00) [7]

Загружаешь в TPicture и сохраняешь через TPicture.Bitmap.SaveToFile.


Dmitriy O.   (2003-12-22 14:27:00) [8]

Assing


AlexCo   (2003-12-22 13:45:00) [9]

Подожди Сейчас Напишу , если ты здесть ответь!


Наверх

Титульная страница Поиск, карта сайта Написать письмо