SaveToFile產生0 byte 檔案, 錯在哪 ?  THX
uses Jpeg;
procedure TForm1.FormCreate(Sender: TObject);
var
myjpeg :TJPEGImage;
begin
myjpeg:=tjpegimage.Create ;
with myjpeg do
try
loadfromfile('1.jpg'); // 1,jpg 存在, 是個 2xx KB 檔案
compressionquality:=90;
compress;
SaveToFile('x.jpeg');
finally;
free;
end;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

function StretchImage(JImage : TJpegImage; iWidth, Percent,
Quality: Integer): TJpegImage;
var
bmp : TBitmap;
RT : TRect;
iPerCent : Integer;
begin //Ellen 2005/04/13
result := TjpegImage.Create;
bmp := TBitmap.Create;
Result.Assign(JImage);
if iWidth <= 0 then // 沒給寬度就算比例
begin
bmp.Width := Round(result.Width * Percent / 100);
bmp.Height := Round(result.Height * Percent / 100);
end
else
begin // 給了寬度就算出比例
iPerCent:=Round(result.Width / iWidth / 100);
bmp.Width := iWidth;
bmp.Height := Round(result.Height * iPerCent / 100);
end;
RT.Left := 0;
RT.Top := 0;
try
RT.Right := bmp.Width - 1;
RT.Bottom := bmp.Height - 1;
bmp.Canvas.StretchDraw(RT,result);
result.CompressionQuality := Quality;
result.Assign(bmp);
except
bmp.Free;
end;
end;

雖然很感謝您提供範例, 但是小弟還是想知道錯在哪

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

參考這一篇
如何"直接"把 JPG 檔壓縮?
http://delphi.ktop.com.tw/board.php?cid=30&fid=74&tid=76291



Fishman

------
Fishman

原來只能做 bmp 到 jpg 壓縮, 所以要將原來載入的 jpg 當成 bmp 使用, 下面可用了, THX
procedure TForm1.FormCreate(Sender: TObject);
var
myjpeg :TJPEGImage;
begin
myjpeg:=tjpegimage.Create ;
with myjpeg do
try
loadfromfile('1.jpg');
Image1.Picture.Bitmap.Assign(myjpeg); //Image1: TImage
myjpeg.Assign(Image1.Picture.Bitmap); //Jpg: TJpgImage
compressionquality:=80;
compress;
SaveToFile('x.jpeg');
finally;
free;
end;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！