SaveToFile產生0 byte 檔案, 錯在哪 ? |
答題得分者是:Fishman
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
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;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
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; |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
------
Fishman |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
原來只能做 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;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |