文档章节

用 GDI 操作 EMF 文件[6]: GetEnhMetaFileHeader - 获取 EMF 的头文件

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 446
阅读 8
收藏 0
//增强图元文件的头文件结构 TEnhMetaHeader:
tagENHMETAHEADER = packed record
  iType: 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;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  HMetaFile: HENHMETAFILE; {EMF 文件句柄}

{建立带说明的 EMF 文件}
procedure TForm1.FormCreate(Sender: TObject);
const
  Path = 'C:\Temp\MyMeateFile.emf';
  Description = 'ABCDE'; {当作 EMF 文件的说明}
var
  MetaFileDC: 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);
const
  n = #13#10;
var
  MetaHeaderSize: Integer;    {文件头大小}
  MetaHeader: PEnhMetaHeader; {文件头结构的指针}
  str: string;
  buf: array[Word] of Char;
begin
  MetaHeaderSize := 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);
begin
  PlayEnhMetaFile(Canvas.Handle, HMetaFile, Rect(11,11,111,111));
end;

{删除 EMF 文件句柄}
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteEnhMetaFile(HMetaFile);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/06/05/1214007.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
EMF介绍系列(二、从模型生成应用程序)

还是从一个例子里看看EMF的使用方法和作用吧。假设我们的应用是一个网上商店,在系统里有这些对象:商店Shop、类别Category、 商品Product,其中类别可以包含子类别。现在我们用EMF从头到尾生...

青夜之衫
2017/12/06
0
0
C# 文档转换—Excel 转PDF/IMAGE/HTML/TXT/XML/XPS/CSV/ODS等

在日常工作中可能会遇到将某文件转换为其他格式的文件的情况,在本篇文章中将介绍如何用控件Free Spire.XLS for.NET(社区版)将Excel文档转为PDF、IMAGE、HTML、TXT、XML、XPS、CSV、ODS、S...

E_iceblue
2018/03/16
0
0
Word中 Visio 图片到 LaTeX PDF

参考网页: https://unix.stackexchange.com/questions/271904/how-do-i-open-it-emz-files-on-linux https://tex.stackexchange.com/questions/21418/inserting-a-emf-file-into-a-latex-do......

不避风云
2018/08/01
0
0
写代码的代码:JET

用过EMF的人想必都对它的代码生成功能印象深刻吧,有没有想过这是怎样实现的呢? 代码生成一般是通过写好的模板,在用户输入一些限制条件后,由程序把这两者结合起来得到需要的代码。EMF也是...

青夜之衫
2017/12/06
0
0
EMF Validation Builder

EMF Validation Builder 是一个Eclipse的插件,实现自动的 EMF 验证过程,当你保持模型时,该模型就会自动进行验证。EMF Validation Builder 会维护一个依赖关系表,因此整个验证过程可以在需...

匿名
2011/02/18
718
0

没有更多内容

加载失败,请刷新页面

加载更多

Linux下端口转发工具rinetd介绍

linux下简单好用的工具rinetd,实现端口映射/转发/重定向,针对TCP协议,不支持UDP。 官网地址 http://www.boutell.com/rinetd 里面介绍及使用齐全。 使用场景举例: 阿里云内网Redis连接问题...

ouhoo
18分钟前
1
0
Oracle学习日志-5(算数运算符,比较运算符和逻辑运算符)

因为有编程基础,所以对于这一章还是很好理解,只需要注意对NULL的运算。 操作的表格 算数运算符 查询商品名字和商品售价,并商品售价乘2 SELECT product_name,sale_price * 2 AS "sale_pri...

白话
30分钟前
1
0
搜索引擎(Lucene介绍、分词器详解)

Lucene介绍 Lucene简介 最受欢迎的java开源全文搜索引擎开发工具包。提供了完整的查询引擎和索引引擎,部分文本分词引擎(英文与德文两种西方语言)。Lucene的目的是为软件开发人员提供一个简...

这很耳东先生
35分钟前
0
0
quartz详细介绍

quartz常用api Scheduler 调度程序交互的主要API。 Job 希望由调度程序执行的组件实现的接口。 JobDetail 用于定义作业的实例。 JobDataMap 可以包含不限量的序列化数据,在job运行的时候可以...

大笨象会跳舞吧
35分钟前
1
0
kotlin使用jackson序列化enum

默认情况下,我们序列化与反序列化enum是它的name,事实上大部分情况下我们需要序列化的是我们自定义的value,那应该怎么做呢? 这种情况下我们就需要@JsonValue与@JsonCreator data class U...

weidedong
40分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部