用 GDI 操作 EMF 文件[2]: PlayEnhMetaFile、DeleteEnhMetaFile
2008-06-04 16:43
483 查看
创建 EMF 文件, 并同时绘制在窗体.
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'; var MetaFileDC: HDC; {EMF 画布句柄} HMetaFile: HENHMETAFILE; {EMF 文件句柄} begin MetaFileDC := CreateEnhMetaFile(0, PChar(Path), nil, nil); Ellipse(MetaFileDC, 10, 10, 100, 60); HMetaFile := CloseEnhMetaFile(MetaFileDC); {在窗体上按原始大小绘制 EMF} PlayEnhMetaFile(Canvas.Handle, HMetaFile, Rect(10,10,100,60)); DeleteObject(MetaFileDC); DeleteEnhMetaFile(HMetaFile); end; end.
相关文章推荐
- 用 GDI 操作 EMF 文件[7]: EnumEnhMetaFile、PlayEnhMetaFileRecord - 枚举文件中的图形命令
- 用 GDI 操作 EMF 文件[1]: CreateEnhMetaFile、CloseEnhMetaFile
- 用 GDI 操作 EMF 文件[6]: GetEnhMetaFileHeader - 获取 EMF 的头文件
- 用 GDI 操作 EMF 文件[5]: GetEnhMetaFileDescription - 获取 EMF 文件的说明文本
- 用 GDI 操作 EMF 文件[4]: 重绘 EMF
- 用 GDI 操作 EMF 文件[3]: GetEnhMetaFile
- 用 GDI 操作 EMF 文件(转)
- 用 GDI 操作 EMF 文件[8]: 绘制图元文件时改变画笔与画刷
- GDI+ 学习记录(30) MetaFile 文件操作
- GDI+ 学习记录(30): MetaFile 文件操作
- VB.NET文件操作(zz)
- asp下利用fso实现文件夹或文件移动改名等操作函数
- C#实现ini文件读写操作
- 简单实用的文件操作-流读写器
- 使用iText操作pdf文件
- iOS 应用沙盒机制与文件操作
- 11级_Java_曹建波5.15 Java流与文件操作
- linux___FILE__文件操作
- Python小白的发展之路之Python基础(二)【字符串、列表、集合、文件操作】
- python文件操作,写入,write, writelines, writeable