引言: 請教大家: 我有一些家電產品要上網拍賣,我用數位相機拍攝那些家電,結果每個代表家電的jpg圖檔都將近700k大小,拍賣網站規定相片檔不能大於500k,請問我要如何做才能將近700k大小的jpg圖檔700k縮減至500k以下呢?

引言: 請教大家: 我有一些家電產品要上網拍賣,我用數位相機拍攝那些家電,結果每個代表家電的jpg圖檔都將近700k大小,拍賣網站規定相片檔不能大於500k,請問我要如何做才能將近700k大小的jpg圖檔700k縮減至500k以下呢?

引言:

引言: 請教大家: 我有一些家電產品要上網拍賣,我用數位相機拍攝那些家電,結果每個代表家電的jpg圖檔都將近700k大小,拍賣網站規定相片檔不能大於500k,請問我要如何做才能將近700k大小的jpg圖檔700k縮減至500k以下呢?

改變JPEG影像檔的壓縮比吧! 解析度與色彩保持不變的前提下,使用Photoimpact 改變JPEG的壓縮率(品質) 以下使用數位像機拍攝之圖檔實測: 1024*768, RGB全彩24bit 原圖(品質100%):461 KB 品質75% :84 KB 品質50% :58 KB 品質30% :44 KB

procedure TForm1.ResizeBitmap(const Source:string; Const Target: string; const NewH, NewW: integer;const iQuality: integer);
var
     Sourcebmp, Targetbmp : tbitmap;
     Sourcejpg : TjpegImage;
     Ratio : Double;
begin
     if CanClose then Exit;
     ProgressBar2.Position := 0;
     Label2.caption := extractfilename(Source);
     Label2.Refresh;
     ProgressBar2.Position := 1;
     Sourcejpg := Tjpegimage.Create;
     ProgressBar2.Position := 2;
     Sourcebmp := tbitmap.Create;
     ProgressBar2.Position := 3;
     Targetbmp := tbitmap.Create;
     ProgressBar2.Position := 5;
     try
        if Uppercase(ExtractFileExt(Source)) = '.JPG' then
        begin
          if JPEGSentinelsAreOK(Source) then
          begin
             Sourcejpg.LoadFromFile(Source);
             Sourcebmp.Assign(Sourcejpg);(* jpg轉bmp*)
             ProgressBar2.Position := 33;
          end
          else begin
             exit;
          end;
        end
        else
          exit;
          (*-Uppercase(ExtractFileExt(Source)) = '.JPG'*)
        Ratio := Min(NewW / Sourcebmp.Width, NewH/ Sourcebmp.Height);
        Targetbmp.Width  := Round(Sourcebmp.Width  * Ratio);
        Targetbmp.Height := Round(Sourcebmp.Height * Ratio);
        Targetbmp.Transparent := false;
        Targetbmp.PixelFormat := pf15bit;
        Targetbmp.Dormant;             (* Free up GDI resources *)
        Targetbmp.FreeImage;
        SetStretchBltMode(Targetbmp.Canvas.Handle, COLORONCOLOR);
        stretchblt(Targetbmp.Canvas.Handle, 0,0 ,Targetbmp.Width,Targetbmp.Height, SourceBmp.Canvas.Handle, 0, 0,
        Sourcebmp.Width, Sourcebmp.Height, srccopy);
        ProgressBar2.Position := 65;
        SourceJpg.CompressionQuality := iQuality;
        SourceJpg.Compress;
        ProgressBar2.Position := 80;        
        SourceJpg.Smoothing := true;
        SourceJpg.Assign(Targetbmp);
        ProgressBar2.Position := 100;
        SourceJpg.SaveToFile(Target);
        ProgressBar2.Position := 100;
     finally
        Sourcejpg.free;
        Sourcebmp.Free;
        Targetbmp.Free;
     end;(*-try*)
     ProgressBar2.Position := 100;
end;