BMP / JPG 檔縮放到你指定的大小及品質的 JPG 格式

這些是我後來改過的，檔頭部分我也是隨便改改，反正能用就好了。
另外我本來也是覺得不用再Assign，但是就是在某些情況會發生錯誤，如果我沒有遇到這問題，我不可能隨便回應的。因為正在趕東西，結果發覺Assign之後就解決了，所以也沒去探討是什麼樣的情況，還請見諒。
最後還是很感謝你分享這個Function哦。

unit JPGCtrl;interfaceuses  graphics, jpeg, math,SysUtils,Types;type  DK1 = record    Header : array[1..10] of char;         //檔頭  end;  function StretchImage(FileName : TFileName; Width, Height, Quality : Integer) : TJpegImage;  function StretchImagePercent(FileName : TFileName; Percent, Quality : Integer) : TJpegImage;  function StretchImageRatio(FileName : TFileName; Width, Height, Quality : Integer; Center : Boolean) : TJpegImage;implementation//這個功能可以將 BMP / JPG 檔縮放到你指定的大小及品質的 JPG 格式，你可以將之存檔，存在數據庫，甚至放進 TStream 通過 ISAPI 直接傳給使用者 Browser 作為顯示圖檔。function StretchImage(FileName : TFileName; Width, Height, Quality : Integer) : TJpegImage;var  bmp, tempbmp : TBitmap;  RT : TRect;  F1: File of DK1;  DKind1: DK1;  sHeader:String;begin  result := TjpegImage.Create;  bmp := TBitmap.Create;  tempbmp := TBitmap.Create;  bmp.Width := Width;  bmp.Height := Height;  RT.Left := 0;  RT.Top := 0;  RT.Right := Width - 1;  RT.Bottom := Height - 1;  try    AssignFile(F1,FileName);    Reset(F1);    Seek(F1,0);    read(F1,DKind1);    sHeader:=DKind1.Header;    CloseFile(F1);//    if Uppercase(ExtractFileExt(FileName)) = '.JPG' then    if sHeader=#$FF#$D8#$FF#$E0#$00#$10#$4A#$46#$49#$46 then    begin      result.LoadFromFile(FileName);      bmp.Canvas.StretchDraw(RT,result);    end//    else if Uppercase(ExtractFileExt(FileName)) = '.BMP' then    else if sHeader=#$42#$4D#$A6#$42#$00#$00#$00#$00#$00#$00 then    begin      tempbmp.LoadFromFile(FileName);      bmp.Canvas.StretchDraw(RT,tempbmp);    end    else    begin      result.Assign(bmp);      exit;    end;    result.CompressionQuality := Quality;    result.Assign(bmp);  finally    tempbmp.Free;    bmp.Free;  end;end;//使用基本上一樣，只是輸入沒了寬和高，多了百份比，以原尺寸按百份比縮放function StretchImagePercent(FileName : TFileName; Percent, Quality : Integer) : TJpegImage;var  bmp, tempbmp : TBitmap;  RT : TRect;  F1: File of DK1;  DKind1: DK1;  sHeader,sType:String;begin  result := TjpegImage.Create;  bmp := TBitmap.Create;  tempbmp := TBitmap.Create;  try    AssignFile(F1,FileName);    Reset(F1);    Seek(F1,0);    read(F1,DKind1);    sHeader:=DKind1.Header;    CloseFile(F1);//    if Uppercase(ExtractFileExt(FileName)) = '.JPG' then    if sHeader=#$FF#$D8#$FF#$E0#$00#$10#$4A#$46#$49#$46 then    begin      sType:='.JPG';      result.LoadFromFile(FileName);      bmp.Width := Round(result.Width * Percent / 100);      bmp.Height := Round(result.Height * Percent / 100);    end//    else if Uppercase(ExtractFileExt(FileName)) = '.BMP' then    else if sHeader=#$42#$4D#$A6#$42#$00#$00#$00#$00#$00#$00 then    begin      sType:='.BMP';      tempbmp.LoadFromFile(FileName);      bmp.Width := Round(tempbmp.Width * Percent / 100);      bmp.Height := Round(tempbmp.Height * Percent / 100);    end    else    begin      result.Assign(bmp);      exit;    end;    RT.Left := 0;    RT.Top := 0;    RT.Right := bmp.Width - 1;    RT.Bottom := bmp.Height - 1;    if sType = '.JPG' then      bmp.Canvas.StretchDraw(RT,result)    else      bmp.Canvas.StretchDraw(RT,tempbmp);    result.CompressionQuality := Quality;    result.Assign(bmp);  finally    tempbmp.Free;    bmp.Free;  end;end;//這個版本會保留原圖的長?比例，檔縮放到你指定的大小框架。//比如說原圖是 600 X 600 的，而你的預設圖像尺寸是 300 X 200 那使用第一個功能縮小後圖像會由四方變長方拉長了。但若使用這個功能，圖像便會縮成 200 X 200，保留比例又剛好放得進你的預設圖像框架。//這功能亦多了一個參數，去決定圖像的輸出位置及大小//Center : 決定若圖像比例與指定的大小框架不符時，按計算的大小放在左上角還是置中。若參數是 True，則自動將圖像置中，輸出圖像大小一定按你指定的 Width, Height，其他空位填白。若 False，則輸出圖像按計算後的尺寸為準，不留白邊。function StretchImageRatio(FileName : TFileName; Width, Height, Quality : Integer; Center : Boolean) : TJpegImage;var  bmp, tempbmp : TBitmap;  RT : TRect;  Ratio : Double;  NewW, NewH : Integer;  F1: File of DK1;  DKind1: DK1;  sHeader,sType:String;begin  result := TjpegImage.Create;  bmp := TBitmap.Create;  tempbmp := TBitmap.Create;  try    AssignFile(F1,FileName);    Reset(F1);    Seek(F1,0);    read(F1,DKind1);    sHeader:=DKind1.Header;    CloseFile(F1);//    if Uppercase(ExtractFileExt(FileName)) = '.JPG' then    if sHeader=#$FF#$D8#$FF#$E0#$00#$10#$4A#$46#$49#$46 then    begin      sType:='.JPG';      result.LoadFromFile(FileName);      Ratio := Min(Width / result.Width, Height / result.Height);      NewW := Round(result.Width * Ratio);      NewH := Round(result.Height * Ratio);    end//    else if Uppercase(ExtractFileExt(FileName)) = '.BMP' then    else if sHeader=#$42#$4D#$A6#$42#$00#$00#$00#$00#$00#$00 then    begin      sType:='.BMP';      tempbmp.LoadFromFile(FileName);      Ratio := Min(Width / tempbmp.Width, Height / tempbmp.Height);      NewW := Round(tempbmp.Width * Ratio);      NewH := Round(tempbmp.Height * Ratio);    end    else    begin      result.Assign(bmp);      exit;    end;    if Center then    begin      bmp.Width := Width;      bmp.Height := Height;      RT.Left := Floor(Abs(Width-NewW)/2);      RT.Top := Floor(Abs(Height-NewH)/2);      RT.Right := RT.Left + NewW;      RT.Bottom := RT.Top + NewH;    end    else    begin      bmp.Width := NewW;      bmp.Height := NewH;      RT.Left := 0;      RT.Top := 0;      RT.Right := bmp.Width - 1;      RT.Bottom := bmp.Height - 1;    end;    if sType = '.JPG' then      bmp.Canvas.StretchDraw(RT,result)    else      bmp.Canvas.StretchDraw(RT,tempbmp);    result.CompressionQuality := Quality;    result.Assign(bmp);  finally    tempbmp.Free;    bmp.Free;  end;end;end.