Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

JPG2BMP   Найти похожие ветки 

← →
Alx2   (2002-02-28 07:58) [5]

Грузим JPG, сохраняем в BMP:

procedure TForm1.Button2Click(Sender: TObject);
Var BMP : TBitMap;
JPG : TJPEGImage;
begin
if OpenDialog1.Execute then
begin
BMP := TBitmap.Create;
JPG := TJPEGImage.Create;
try
JPG.LoadFromFile(OpenDialog1.FileName);
BMP.Width := JPG.Width;
BMP.Height := JPG.Height;
BMP.Canvas.Draw(0,0,JPG);
BMP.SaveToFile(OpenDialog1.FileName+".bmp");
finally
BMP.Free;
JPG.Free;
end;
end;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c