Как из 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.

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