看KTOP之前的舊文章,在MS SQL中圖檔只能存入BMP圖,查了一下舊文章, 找不到JPG轉BMP的做法,想請教如何把JPG檔轉成BMP? (再問個問題VAR JPG:TJPEGIMAGE 並沒有JPG.CANVAS的方法,不知JPG該如何畫圖) 堅持從洗馬桶做起 Eric

Hi huangeider,    看一下天使站長的範例程式，應該有你要的東西： http://delphi.ktop.com.tw/topic.php?topic_id=19505 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

uses Jpeg;    var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  jpg := TJpegImage.Create;
  try
    jpg.LoadFromFile('c:\xx.jpg');        bmp := TBitmap.Create;
    try
      bmp.Assign(jpg);
      bmp.SaveToFile('c:\xx.bmp');
    finally
      bmp.Free;
    end;
  finally
    jpg.Free;
  end;
end;

貼全來好了！ CompQty = 壓縮品質。 範圍 1 ~ 100;

Procedure BmpToJpeg(SourceBMP:TBitMap;TargetJPG:TJPEGImage;CompQTY:Integer);
begin
  With TargetJPG do
  begin
    Assign(SourceBMP);
    JPEGNeeded;
    CompressionQuality := CompQTY;
    Compress;
  end;
end;    Procedure JpegToBmp(SourceJPG:TJPEGImage;TargetBMP:TBitMap);
begin
  if SourceJPG.Empty then Exit;
  TargetBMP.Assign(SourceJPG);
end;

好像是無法對 JPEG 直接作畫的。 必須要轉為 BITMAP -> 畫圖 ->轉為 JPEG