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

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

BMP vs JPEG

Mr.Vlad ©   (2008-03-06 00:10:00) 

Подскажите полалуйста: как в Delphi перебить картинку JPEG в BMP?

---

Mr.Vlad   (2008-03-11 23:21:00) [1]

> {RASkov} ©   (08.03.08 23:54) [3]
> > [2] Mr.Vlad   (08.03.08 23:34)Попробуй так:

Спасибо, всё работает.

---

ЮЮ   (2008-03-11 10:19:00) [2]

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


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

---

{RASkov}   (2008-03-08 23:54:00) [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');

---

Mr.Vlad   (2008-03-08 23:34:00) [4]

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

---

ЮЮ   (2008-03-06 05:02:00) [5]

Image1.Picture.LoadFromFile('1.jpeg');
Image1.Picture.Bitmap.SaveToFile('1.bmp');

где Image1 - компонент класса TImage.

P.S. Правда "перебить" в контексте с "vs" может оказаться и чем-то иным :)

---

Наверх