procedure TfrmMain.btnSaveClick(Sender: TObject);
va
 JPEG:TJPEGImage;
 bmp:TBitMap;
begin
  try
      bmp:=TBitMap.Create;
      bmp.Assign(Image1.Picture.Graphic);
      with bmp.Canvas do
      begin
        Brush.Style:=bsClear;
        Font.Name:='Arial';
        Font.Size:=60;
        Font.Color:=clRed;
        TextOut(60,60,'testtest');
      end;
      JPEG:=TJPEGImage.Create;
      JPEG.Assign(bmp);
      JPEG.CompressionQuality:=100;
      JPEG.SaveToFile('c:\tmp\test.jpg'));          Showmessage('完成')
    finally
      bmp.free;
      JPEG.Free;
    end;
end;

為何當按完這個button後會出現這個error messaage 註: 1. 在image1裏的相片大小是3048x6790 是不是相片太大save不到? 但是當我轉用另一相片時(大小是 216x184)就可以 save....點解?

這似乎是 Delphi 6 之前版本的問題 問題出在 JPEG.CompressionQuality := 100; 這行 解決邊式參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&selm=3d6232d2$1@newsgroups.borland.com -- Everything I say is a lie.

多謝hagar，你真是勁!......對阿.....我用的是delphi 5    但我想complie個program，但不能，當我complie時它說我"File not found IJL.dcu"......    應怎樣做 還有當我行它裏面有個已complie 完的exe 檔時出現下面錯誤

引言: 但我想complie個program，但不能，當我complie時它說我"File not found IJL.dcu"...... 應怎樣做

小弟對這邊面不熟 提供的連結中說明要解決這個問題的邊式除了減低 CompressionQuality 的值 讓產生的檔案大小在 1~2 mb 間 另一個是改用連結提供的 JPEG_IO.pas 取念 Jpeg.pas

引言: 還有當我行它裏面有個已complie 完的exe 檔時出現下面錯誤

"行它裏面有個已complie 完的exe 檔" 這句話是什麼意思？ -- Everything I say is a lie. 發表人 - hagar 於 2004/06/30 10:53:07

我照你給我的URL http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&selm=3d6232d2%241%40newsgroups.borland.com dowload一個叫JPEG_IO.zip file，zip 裏面有一個TestBed.zip file ，裏面有一個叫TestBed.exe檔，行它時就出現

下載這個: http://www.david-taylor.pwp.blueyonder.co.uk/software/runtimes-setup-100.zip 解壓後有個 runtimes-setup.exe 檔, 執行它即可. -- Everything I say is a lie. 發表人 - hagar 於 2004/06/30 18:09:27