//增強圖元文件的頭文件結構 TEnhMetaHeader: tagENHMETAHEADER = packed recordiType: DWORD; {記錄類型}nSize: DWORD; {結構大小}rclBounds: TRect; {外接矩形(單位是像素)}rclFrame: TRect; {圖片矩形(單位是 0.1 毫米)}dSignature: DWORD; {文件簽名}nVersion: DWORD; {文件版本}nBytes: DWORD; {文件尺寸}nRecords: DWORD; {記錄數}nHandles: Word; {句柄數}sReserved: Word; {保留}nDescription: DWORD; {說明文本的長度}offDescription: DWORD; {說明文本的偏移量}nPalEntries: DWORD; {調色板的元素數}szlDevice: TSize; {分辨率(像素)}szlMillimeters: TSize; {分辨率(毫米)}cbPixelFormat: DWORD; {}offPixelFormat: DWORD; {}bOpenGL: DWORD; {} end; 本例效果圖:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}varHMetaFile: HENHMETAFILE; {EMF 文件句柄}{建立帶說明的 EMF 文件} procedure TForm1.FormCreate(Sender: TObject); constPath = 'C:\Temp\MyMeateFile.emf';Description = 'ABCDE'; {當作 EMF 文件的說明} varMetaFileDC: HDC; begin{建立并寫入說明}MetaFileDC := CreateEnhMetaFile(0, PChar(Path), nil, PChar(Description));{繪圖}Rectangle(MetaFileDC, 11, 11, 111, 111);{結束編輯、保存文件, 并返回文件句柄}HMetaFile := CloseEnhMetaFile(MetaFileDC);{刪除 DC}DeleteObject(MetaFileDC); end;{讀取 EMF 文件頭} procedure TForm1.Button1Click(Sender: TObject); constn = #13#10; varMetaHeaderSize: Integer; {文件頭大小}MetaHeader: PEnhMetaHeader; {文件頭結構的指針}str: string;buf: array[Word] of Char; beginMetaHeaderSize := GetEnhMetaFileHeader(HMetaFile, 0, nil);GetMem(MetaHeader, MetaHeaderSize);GetEnhMetaFileHeader(HMetaFile, MetaHeaderSize, MetaHeader);str := 'iType: %d' + n +'nSize: %d' + n +'rclBounds: %d,%d,%d,%d' + n +'rclFrame: %d,%d,%d,%d' + n +'dSignature: %d' + n +'nVersion: %d' + n +'nBytes: %d' + n +'nRecords: %d' + n +'nHandles: %d' + n +//'sReserved: %d' + n +'nDescription: %d' + n +'offDescription: %d' + n +'nPalEntries: %d' + n +'szlDevice: %d,%d' + n +'szlMillimeters: %d,%d' + n +'cbPixelFormat: %d' + n +'offPixelFormat: %d' + n +'bOpenGL: %d';wvsprintf(buf, PChar(str), PChar(MetaHeader));ShowMessage(buf);FreeMem(MetaHeader); end;{繪制在窗體} procedure TForm1.Button2Click(Sender: TObject); beginPlayEnhMetaFile(Canvas.Handle, HMetaFile, Rect(11,11,111,111)); end;{刪除 EMF 文件句柄} procedure TForm1.FormDestroy(Sender: TObject); beginDeleteEnhMetaFile(HMetaFile); end;end.

轉載于:https://www.cnblogs.com/del/archive/2008/06/05/1214007.html

總結

以上是生活随笔為你收集整理的用 GDI 操作 EMF 文件[6]: GetEnhMetaFileHeader - 获取 EMF 的头文件的全部內容，希望文章能夠幫你解決所遇到的問題。

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