雖然不用 TWICImage 也可以方便實現圖像的修剪, 但這是 TWICImage 的方式.

---

測試代碼:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Wincodec;procedure TForm1.Button1Click(Sender: TObject); varWicImg: TWICImage;Factory: IWICImagingFactory;Clipper: IWICBitmapClipper; {修剪圖像的接口}r: WICRect; beginWicImg := TWICImage.Create;WicImg.LoadFromFile('c:\temp\test.jpg');Factory := WicImg.ImagingFactory;Factory.CreateBitmapClipper(Clipper);r.X := WicImg.Width div 4;r.Y := WicImg.Height div 4;r.Width := WicImg.Width div 2;r.Height := WicImg.Height div 2;Clipper.Initialize(WicImg.Handle, r);WicImg.Handle := IWICBitmap(Clipper);Canvas.Draw(0, 0, WicImg);Clipper := nil;Factory := nil;WicImg.Free; end;end. 超強干貨來襲 云風專訪：近40年碼齡，通宵達旦的技術人生

總結

以上是生活随笔為你收集整理的Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。