文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 446
阅读 7
收藏 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
深圳
程序员
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
03/16
0
0
EMF介绍系列(二、从模型生成应用程序)

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

青夜之衫
2017/12/06
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......

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

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

青夜之衫
2017/12/06
0
0
Graphical Modeling Framework简介

本文假设读者有Eclipse平台应用程序开发经验,了解Eclipse平台的插件机制,使用EMF和GEF开发过应用程序。在本文中,“Eclipse应用程序”等价于“Eclipse插件”。 Eclipse是一个开源的平台,从...

青夜之衫
2017/12/07
0
0

没有更多内容

加载失败,请刷新页面

加载更多

arcgis jsapi接口入门系列:总览

开发环境: arcgis jsapi版本4.9 由于我们这套代码是基于vue,webpack开发的,会有少数vue代码,但总体不影响 里面还有些我们公司的js库和html css,给出的代码不能百分百直接运行,主要还是...

canneljls
8分钟前
0
0
月薪80k阿里架构师漫谈他是如何从一名小码农走到架构师的

01 刚当程序员时,我是属于那种勤勤恳恳类型的员工,工作态度用认真来形容不为过,每天我几乎是团队里最早到公司,又最晚下班的一个。而组员张工一般情况下都是准时上下班的,即使项目进度比...

Java填坑之路
11分钟前
0
0
oracle的resetlogs机制浅析

oracle的resetlogs机制浅析 alter database open resetlogs 这个命令我想大家都很熟悉了,那有没有想过这个resetlogs选项为什么要用?什么时候用? 它的原理机制是什么?他都起哪些作用? 我...

突突突酱
12分钟前
0
0
JAVA 获取两个日期间的所有日期

public static List<String> getDates(String startDate, String endDate){    Date d1 = new SimpleDateFormat("yyyyMMdd").parse(startDate);//定义起始日期    Date d2 = new Simple......

尘叙缘
19分钟前
0
0
Innodb中的事务隔离级别和锁的关系

#一次封锁or两段锁? 因为有大量的并发访问,为了预防死锁,一般应用中推荐使用一次封锁法,就是在方法的开始阶段,已经预先知道会用到哪些数据,然后全部锁住,在方法运行之后,再全部解锁。...

Skqing
33分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部