和在 Net 中不同的是, 在具體指定圖像格式時, 這里常常需要的不是格式名稱, 而是格式的 GUID;

知道了格式名稱, 用 GetEncoderClsid 函數可以獲取格式的 GUID;

GetEncoderClsid 函數來自 GDIPUTIL 單元, 本例并沒有用到前面一直不可或缺的 GDIPOBJ、GDIPAPI 單元.

如果要獲取 image/bmp、image/jpeg、image/gif、image/tiff、image/png 格式以外的 GUID 不能使用此函數.

另外, 為了把 GUID 轉換為字符串顯示, 本例用到了 GUIDToString 函數.

---

本例效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPUTIL;procedure TForm1.FormCreate(Sender: TObject); varList: TStringList;ImgGUID: TGUID;i: Integer; beginList := TStringList.Create;List.Add('image/bmp');List.Add('image/jpeg');List.Add('image/gif');List.Add('image/tiff');List.Add('image/png');Memo1.Clear;for i := 0 to List.Count - 1 dobeginGetEncoderClsid(List[i], ImgGUID);Memo1.Lines.Add(Format('%s: %s', [GUIDToString(ImgGUID), List[i]]));end;List.Free; end;end. 窗體文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 115ClientWidth = 329Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 0Top = 0Width = 321Height = 115Align = alLeftLines.Strings = ('Memo1')ScrollBars = ssBothTabOrder = 0ExplicitHeight = 128end end

總結

以上是生活随笔為你收集整理的再学 GDI+[98]: TGPImage(18) - 获取 GDI+ 图像格式对应的 GUID的全部內容，希望文章能夠幫你解決所遇到的問題。

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