Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Конвертирование jpeg в bmp.

Страницы: 1
Конвертирование jpeg в bmp.
#1
21.06.2010 14:11:02
Столкнулся с такой задачей:
Есть компонент в TImage в который загружен рисунок в формате jpg. Как можно сохранить этот рисунок на жесткий диск в формате bmp?
 
 
#2
21.06.2010 15:18:41
Быть может этот код поможет: http://delphidevelop.ru/publ/15-1-0-10 ?
 
 
#3
21.06.2010 15:24:48
Нет этот код немного не точен...
Я уже почти нашёл решение задачи;)
 
 
#4
21.06.2010 15:30:34
Поделитесь? smile;)
 
 
#5
21.06.2010 15:41:45
Конечно smile8)
 
 
#6
21.06.2010 21:26:00
А вот и решение задачи:
Код
   
bmp:= TBitmap.Create();
bmp.Assign(Form1.Image1.Picture.Graphic);
bmp.SaveToFile(ChangeFileExt('D:\Wallpaper', '.bmp'));
FreeAndNil(bmp);
 
 
#7
25.06.2010 14:05:06
Зачем использовать Image? Можно же сделать проще
Код
function convertjpgtobmp(p:String; bmp:TBitmap): TBitmap;
var
JPEG: TJPEGImage;
begin
    JPEG := TJPEGImage.Create;
    JPEG.LoadFromFile(p);
    Bmp.Assign(JPEG);
    result:=bmp;
    JPEG.Free;
end;
 
 
#8
25.06.2010 16:59:33
Цитата
Зачем использовать Image?

Просто, мне нужно было использовать Image в программе... А загруженный в него рисунок сохранять на жесткий диск именно в формате bmp.
 
 
#9
16.10.2010 21:25:31
Возник такокой вопрос как ты собираешься улучшить jpeg в bmp /
если bmp имеет больше размер и точный рисунок чем jpeg smile:?:
c:\linux\bin
c:\linux\etc\X11\xorg.conf
d:\home\user
Страшный сон линуксоида.
 
 
#10
17.10.2010 13:22:55
В данном случае качество не имеет значения...
 
 
#11
18.10.2010 10:38:38
Должно выглядеть все так

Код
uses 
JPEG; 

procedure JPEGtoBMP( const FileName: TFileName); 
var 
jpeg: TJPEGImage; 
bmp: TBitmap; 
begin 
jpeg := TJPEGImage.Create; 
try 
jpeg.CompressionQuality := 100 ; {Default Value} 
jpeg.LoadFromFile(FileName); 
bmp := TBitmap.Create; 
try 
bmp.Assign(jpeg); 
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp' )); 
finally 
bmp.Free; 
end; 
finally 
jpeg.Free; 
end; 
end;
Изменено: Евгений Ульяров - 18.10.2010 19:41:05
c:\linux\bin
c:\linux\etc\X11\xorg.conf
d:\home\user
Страшный сон линуксоида.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)