Форум: "Media";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Вниз
BMP vs JPEG Найти похожие ветки
← →
Mr.Vlad (2008-03-06 00:10) [0]Подскажите полалуйста: как в Delphi перебить картинку JPEG в BMP?
← →
ЮЮ © (2008-03-06 05:02) [1]Image1.Picture.LoadFromFile("1.jpeg");
Image1.Picture.Bitmap.SaveToFile("1.bmp");
где Image1 - компонент класса TImage.
P.S. Правда "перебить" в контексте с "vs" может оказаться и чем-то иным :)
← →
Mr.Vlad (2008-03-08 23:34) [2]Так то оно работает, а вот при загрузке потом из некоторых программ 1.bmp в формате bmp выдаёт ошибку, типа формат не тот, jpeg.
← →
{RASkov} © (2008-03-08 23:54) [3]> [2] Mr.Vlad (08.03.08 23:34)
Попробуй так:uses Jpeg;
....
procedure ConvertJpegToBmp(const FileNmJpg: TFileName; const IsReplace: Boolean=False);
var B: TBitMap; J: TJpegImage;
begin
J:=TJpegImage.Create;
try
J.LoadFromFile(FileNmJpg);
B:=TBitmap.Create;
try
B.Width:=J.Width;
B.Height:=J.Height;
..........
B.Canvas.Draw(0, 0, J);
B.SaveToFile(ChangeFileExt(FileNmJpg, ".bmp"));
if IsReplace then DeleteFile(FileNmJpg);
finally
B.Free;
end;
finally
J.Free;
end;
end;
ConvertJpegToBmp("name.jpg");
← →
ЮЮ © (2008-03-11 10:19) [4]> а вот при загрузке потом из некоторых программ 1.bmp в формате
> bmp выдаёт ошибку, типа формат не тот, jpeg
Не верю! Или у тебя другой, отличный от [1], код. Ну не может TBitmap сохранить себя в формате jpeg !!!
← →
Mr.Vlad (2008-03-11 23:21) [5]
> {RASkov} © (08.03.08 23:54) [3]
> > [2] Mr.Vlad (08.03.08 23:34)Попробуй так:
Спасибо, всё работает.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.066 c
