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

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

JPG TO BMP [D7, WinXP]

Atomic ©   (2005-01-29 15:15:00) 

Как можно перегнать JPG в BMP?

---

VIS   (2005-03-31 11:47:00) [1]

uses
JPEG;

procedure TForm1.Button1Click(Sender: TObject);
{
BMP=>JPEG
}
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('YourBmpHere.BMP');
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
SaveToFile('YourJpegHere.JPEG');
Free;
end;
finally
Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
{
JPEG=>BMP
}
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
LoadFromFile('YourJpegHere.JPEG');
MyBMP := TBitmap.Create;
with MyBMP do begin
Width := MyJPEG.Width;
Height := MyJPEG.Height;
Canvas.Draw(0,0,MyJPEG);
SaveToFile('YourBmpHere.BMP');
Free;
end;
Free;
end;
end;

надеюсь пригодица

---

XProger   (2005-03-30 23:58:00) [2]

В XP mspaint.exe в таком случае тож такие вещи умеет творить ;)

---

DeadMeat   (2005-03-30 02:27:00) [3]

Ну тада Corel...

---
...Death Is Only The Begining...

---

parovoZZ   (2005-03-29 23:02:00) [4]

ООО, да. Это штоб прога открывала фотошоп и сохраняла в БМП не отходя от кассы - это нонсенс.

---

$SerG$   (2005-03-29 19:58:00) [5]

Открыть JPG в PHOTOSHOP и сохранить как BMP!!!

---

XProger   (2005-03-28 17:45:00) [6]

В каком это смысле?
Может способ пошустрее знаешь? ;)

---

SkyNet   (2005-03-28 01:31:00) [7]

Мда, смотрю
bmp.Assign(jpg);
способ конечно прикольный, но... точно для мастеров DELPHI как-то он слишки мастерский.....

---

XProger   (2005-01-29 19:33:00) [8]

bmp.Assign(jpg);

---

Наверх