因為是擷電腦畫面的圖，所以只要看得稍為清楚就好了，有什麼方法能進一步讓我圖檔縮小的呢，我現在電腦是1280*1024，擷出來的bmp是5M多，如果用jpg壓縮率30約100k，壓縮率再低的話字會太模糊，所以想用其它的方式來達成。我曾試用bmp抓時就設定縮圖大小，結果效果不好，我設1024*768的大小也畫質不是很好，大小差蠻多的(可能我使用的方法不對) 而用TmemoryStream可以再壓縮10K~30k。而jpeg的其它參數scale或pixelformat發現好現只能在看圖時候用，存檔都沒辦法如果沒辦法我可能還要再找其它演算法了，jpeg2000不知道有沒有人會使用的。 <textarea class="delphi" rows="10" cols="60" name="code">var dc:hdc; mycanvas:TCanVas; Bmp:TBitmap; Jpg: TJpegImage; CompressedStream: TMemoryStream; begin application.Minimize; application.ProcessMessages; //可能要delay一下，不然抓到空白東東 Jpg := TJpegImage.Create; mycanvas:=TCanvas.Create; Bmp:=tbitmap.Create; CompressedStream := TMemoryStream.Create; dc:=getdc(0); try myCanvas.Handle := DC; Bmp.Width := Screen.Width; Bmp.Height := Screen.Height; //MyBitmap.pixelformat:=pf8bit; Bmp.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),myCanvas,Rect(0,0,Screen.Width,Screen.Height)); image1.Picture.Bitmap.Assign(Bmp); Bmp.SaveToFile(inttostr(picindex) '.Bmp'); //Jpg.scale:=jshalf; //jpg.Grayscale:=true; Jpg.Assign(Bmp); //Jpg.pixelformat:=jf8bit; Jpg.scale:=jshalf; //Jpg.Scale := TJPEGScale(1); Jpg.Performance:=jpBestQuality; Jpg.CompressionQuality := 30; //你想要的壓縮品質 Jpg.Compress; //<-* //JPG.JPegNeeded; Jpg.SaveToFile(inttostr(picindex) '.jpg'); Jpg.SaveToStream(CompressedStream); CompressBitmap(CompressedStream, clMax); CompressedStream.SaveToFile('j.dat'); picindex := picindex 1; finally releasedc(0,dc); mycanvas.Free; Bmp.Free; Jpg.Free; CompressedStream.free; end; application.Restore; </textarea>

TmemoryStream不是拿來控制壓縮品質的, 他只是個Stream, 小弟懷疑是又做了一次jpg壓縮(一般jpg預設壓縮品質好像是80%)
另外可以考慮的是降低顏色數, 或降低解析度

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

降低顏色數 及 降低解析度 不知道有沒有人改的 我改很久 還是改不出來。

我以前有用過JPEG2000的元件
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=26565

建議較重要的程式碼要列出, 大家方便貼去測試, 例如
uses JPEG;
picindex : Integer;
另外還有錯誤
[Error] Unit1.pas(74): Undeclared identifier: 'CompressBitmap'
[Error] Unit1.pas(74): Undeclared identifier: 'clMax'
或者方便直接提所有程式碼, 用zip或rar壓縮上傳

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

使用元件加上：
uses jpeg, ZLib;

忘了加詳細的資料，下次改進
form有一個Tbutton及Timage，TButton的on click貼上最上面程式碼就可以了。

現在主要覺得是如果能設jpg.pixelformat:=jf8bit;或者是jpg.scale:=jshalf;跟jpg.palette就應該可以再縮小，只是改完後存檔都變成0k。

編輯記錄