用 GDI 操作 EMF 文件[1]: CreateEnhMetaFile、CloseEnhMetaFile
用 GDI 操作 EMF 文件[1]: CreateEnhMetaFile、CloseEnhMetaFile
涂孟超 发表于4年前
用 GDI 操作 EMF 文件[1]: CreateEnhMetaFile、CloseEnhMetaFile
  • 发表于 4年前
  • 阅读 5
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】买域名送云解析+SSL证书+建站!>>>   

EMF 文件是 Windows 下的增强图元文件, 本例用最简单的代码创建了一个 EMF 文件.
CreateEnhMetaFile(
  DC: HDC;         {所参照的 DC, 为 0 表示参照当前的显示设备}
  FileName: PChar; {文件名, 为 nil 表示创建内存文件}
  Rect: PRect;     {外接矩形(单位是 0.1 毫米), 为 nil 表示使用最小矩形}
  Desc: PChar      {描述性的说明文本, 可为 nil}
): HDC;

 
 
 
 
 

 

 

  
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  Path = 'C:\Temp\MyMetaFile.emf'; {CreateEnhMetaFile 创建文件时, 存在则覆盖}
var
  MetaFileDC: HDC; {EMF 文件 DC}
begin
  MetaFileDC := CreateEnhMetaFile(0, PChar(Path), nil, nil); {建立}
  Ellipse(MetaFileDC, 10, 10, 100, 60);                      {绘制}
  CloseEnhMetaFile(MetaFileDC);                              {关闭并保存}
  DeleteObject(MetaFileDC);
end;

end.

 
 
 
 
 

 

 

  
增强图元文件的相关函数:
CloseEnhMetaFile             {}
CopyEnhMetaFile              {}
CreateEnhMetaFile            {}
DeleteEnhMetaFile            {}
EnhMetaFileProc              {}
EnumEnhMetaFile              {}
GdiComment                   {}
GetEnhMetaFile               {}
GetEnhMetaFileBits           {}
GetEnhMetaFileDescription    {}
GetEnhMetaFileHeader         {}
GetEnhMetaFilePaletteEntries {}
GetWinMetaFileBits           {}
PlayEnhMetaFile              {}
PlayEnhMetaFileRecord        {}
SetEnhMetaFileBits           {}
SetWinMetaFileBits           {}

 
 
 
 
 

 

 

  
  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: