文档章节

用 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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

内存模型是怎么解决缓存一致性的?

在再有人问你Java内存模型是什么,就把这篇文章发给他。这篇文章中,我们介绍过关于Java内容模型的来龙去脉。 我们在文章中提到过,由于CPU和主存的处理速度上存在一定差别,为了匹配这种差距...

Java填坑之路
20分钟前
1
0
vue-cli 3.0 初体验

最近复习了下vue,突然发现vue-cli已经更新到3.0版本了,并且变化蛮大,看来要不停的学习,真是一入前端深似海。 安装步骤: 1、全局安装 npm install -g @vue/cli Vue CLI 的包名称由 vue-...

tianyawhl
21分钟前
0
0
Angular进阶之路

【初级】会写页面,能出东西。 给定环境和 rest API,不用第三方库,能在十分钟内完成一个 master/detail 结构的带路由的应用(可以不管美观)。 知识点:Angular CLI、组件、路由、HTTP 服务...

陆小七的主页
24分钟前
0
0
Redis缓存数据库安全加固指导(一)

背景 在众多开源缓存技术中,Redis无疑是目前功能最为强大,应用最多的缓存技术之一,参考2018年国外数据库技术权威网站DB-Engines关于key-value数据库流行度排名,Redis暂列第一位,但是原生...

中间件小哥
24分钟前
0
0
百万级数据mysql分区

1. 什么是表分区? 表分区,是指根据一定规则,将数据库中的一张表分解成多个更小的,容易管理的部分。从逻辑上看,只有一张表,但是底层却是由多个物理分区组成。 2. 表分区与分表的区别 分表...

罗文浩
27分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部