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");

> а вот при загрузке потом из некоторых программ 1.bmp в формате
> bmp выдаёт ошибку, типа формат не тот, jpeg

Не верю! Или у тебя другой, отличный от [1], код. Ну не может TBitmap сохранить себя в формате jpeg !!!

← →
Mr.Vlad (2008-03-11 23:21) [5]

BMP vs JPEG Найти похожие ветки