Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1084317
  • 博文数量: 282
  • 博客积分: 10865
  • 博客等级: 上将
  • 技术积分: 2480
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-12 12:35
文章存档

2017年(1)

2016年(3)

2015年(10)

2014年(12)

2013年(5)

2012年(10)

2011年(29)

2010年(3)

2008年(13)

2007年(92)

2006年(104)

我的朋友

分类: Delphi

2014-03-16 20:58:09

转自http://fxh7622.blog.51cto.com/63841/50182

通过上两次的介绍我们可以得到一个打印任务的EMF文件。有了EMF文件以后再将它转换成BMP、JPG等等的类型就比较容易了。这次我就写一写如何将一个EMF文件转换成一个BMP文件。
在DELPHI中有一个类叫做TMetaFile,可以利用它来将EMF文件转换成BMP文件。具体的实现如下:
function EMFTOBMP(): Boolean;stdcall;export;//将EMF类型转换为BMP文件
var
  SearchRes : TSearchRec;// 查找文件的结构
  nFound, i : Integer;
  Temp:Tbitmap;
  EMF:TMetaFile;
  reg       : TRegistry;
  m_DestDir:String;
  m_BmpDestFile:String;
  DivNum,ModNum:integer;
  BmpNum,BmpWidth:Integer;//定义BMP的显示位数和显示宽度
  JudgeWidth:Integer;//定义BMP图是否限制宽度
begin
  //初始化BMP文件的宽和显示位数。
  BmpNum:=16;
  BmpWidth:=832;
  JudgeWidth:=1;
  nFound := FindFirst(m_DestDir+'\*.emf', faAnyFile, SearchRes);
  while nFound = 0 do
  begin
    //转换开始将EMF文件装换成BMP文件
    EMF:=TMetaFile.Create;
    Temp:=Tbitmap.Create();
    case BmpNum of
    1:
    begin
      Temp.PixelFormat:=pf1bit;
    end;
    4:
    begin
      Temp.PixelFormat:=pf4bit;
    end;
    16:
    begin
      Temp.PixelFormat:=pf16bit;
    end;
    24:
    begin
      Temp.PixelFormat:=pf24bit;
    end;
    32:
    begin
      Temp.PixelFormat:=pf32bit;
    end;
    end;
    try
      EMF.LoadFromFile(m_DestDir+'\'+SearchRes.Name);
      if JudgeWidth=0 then
      begin
        temp.Width:=emf.Width;
      end
      else
      begin
        if emf.Widththen
        begin
          DivNum:=emf.Width div  32;
          ModNum:=emf.Width mod  32;
          if  ModNum>16 then
          begin
            Inc(DivNum);
          end;
          temp.Width:=DivNum * 32;
        end
        else
        begin
          temp.Width:=BmpWidth;
        end;
      end;
      temp.Height:=emf.Height;
      temp.Canvas.Draw(0,0,emf);
      m_BmpDestFile:=Copy(SearchRes.Name,0,strlen(Pchar(SearchRes.Name))-4);
      temp.SaveToFile(m_DestDir+'\'+m_BmpDestFile+'.bmp');
       //删除Emf文件
      DeleteFile(m_DestDir+'\'+SearchRes.Name);
    finally
      temp.free;
      emf.free;
    end;
    nFound := FindNext(SearchRes);
  end;
  FindClose(SearchRes);
  Result:=true;
end;
 
通过上面的代码我们可以将一个EMF文件转换成一个BMP文件。至于如何转换成JPG、GIF文件网上有很多的代码,大家搜一下就知道了。
到现在为止,一个虚拟打印的编程部分已经完成了。但是如何将这个虚拟打印安装到系统中,让它真正的运行起来呢?下次我将会写关于如何安装这个虚拟打印的方法。
阅读(1376) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~