Скачать: CL | DM;

Как из TBitmap сохранить картинку в .JPG формате   Найти похожие ветки 

← →
msgipss   (2003-03-20 15:48) [0]

В этом собственно и вопрос, 8)

---

← →
Clickmaker ©   (2003-03-20 15:51) [1]

uses Jpeg

JPEG := TJPEGImage.Create;
JPEG.Assign(Bitmap);

---

← →
msgipss   (2003-03-20 16:09) [2]

JPEG.SaveToFile - что то сохраняет пустой файл, 8(

---

← →
msgipss   (2003-03-20 16:39) [3]

все получилось, сорри
вообще то мне надо было из буфера обмена в Jpeg записать, кому надо смотрите.

program PrSave;
uses Graphics,Jpeg,Clipbrd;
var BitM:TBitmap;
JImage:TJpegImage;
begin
if ParamCount=0 then Exit;
BitM:=TBitmap.Create;
JImage:=TJpegImage.Create;
JImage.Assign(BitM);
if ClipBoard.HasFormat(2) then
begin
BitM.Assign(ClipBoard);
JImage.Assign(BitM);
Try
JImage.SaveToFile(ParamStr(1));
Except end;
end;
JImage.Free;
BitM.Free;
end.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c