在Delphi XE2中将Windows图元文件转换为位图时模糊的文本

时间:2013-06-02 09:00:16

标签: delphi text bitmap metafile

我正在研究Delphi XE2中的程序,该程序需要能够将Windows增强型图元文件转换为位图。以下代码用于执行转换:

procedure TForm1.Button8Click(Sender: TObject);
var
  Bitmap : TBitmap;
  Metafile : TMetafile;
begin
  Metafile := TMetafile.Create();
  Bitmap := TBitmap.Create;
  try
    Metafile.LoadFromFile(Edit1.Text);
    Bitmap.Width := Metafile.Width;
    Bitmap.height:= Metafile.Height;
    Bitmap.Canvas.Draw(0,0,Metafile);
    Bitmap.SaveToFile(ChangeFileExt(Edit1.Text, '.bmp'));
  finally
    Bitmap.Free();
    Metafile.Free();
  end;
end;

对于某些图像文件,原始图元文件中非常清晰的文本在最终位图中显得有些模糊。不幸的是我不能在这里发布一个示例图像,因为我没有足够的声誉点,但是如果你在下面的问题中比较两个图像,你可以看到我正在谈论的那种东西:

when rendering metafile, the texts are too large

我在两台机器上测试了这个(Windows 7;一个32位,另一个64位)。问题只发生在64位机器上;在32位计算机上转换完全相同的图像文件会产生具有正常文本的位图。

到目前为止我尝试过的事情:

  • 安装32位计算机上但不在64位计算机上的所有字体到64位计算机上。生成的位图中的文本仍然模糊不清。

  • 尝试使用SynGdiPlus库而不是上面的代码执行转换。生成的位图中的文本仍然模糊不清。

  • 尝试在EMF Explorer中打开原始图像文件。无论是否启用GDI +,显示的文本都是非模糊的。

有人对我如何解决这个问题有任何建议吗?

以下是两张图片:

在64位机器上制作的版本:

enter image description here

在32位机器上制作的版本:

enter image description here

对于我正在处理的场景,我更喜欢在32位机器上制作的第二张图像。

1 个答案:

答案 0 :(得分:2)

  

{1}编辑:由于我们已经确定您在发布此答案后不是创建原始元的人,因此请参阅从现有MetaFile中检索记录部分。< / p>

  

{2}编辑:根据识别字体设置的第二个问题,请参阅第二个更新部分检索字体结构记录

ClearType非常挑剔。任何人都可以根据需要改变混合颜色的强度,这要归功于集成的ClearType调谐器。考虑到图像,您不能依赖每个系统的ClearType设置。

AFAIK唯一真正的解决方案是忽略自定义ClearType渲染并使用预先配置的渲染。


编辑1:从现有MetaFile中检索记录

您可以通过Enhanced Metafile Operations更具体地通过EnumEnhMetaFile函数修改现有的图元文件,该函数具有可用于处理记录的回调函数EnhMetaFileProc

使用PlayEnhMetaFileRecord函数一次解析并检查每条记录。 更多关于如何编辑&amp;修改特定记录,请参阅here

在某些时候,你必须使用下面的代码来修改现有的字体渲染。


编辑2:检索字体结构记录

就像您可以通过EMREXTTEXTOUTA结构检索位置和文本一样,您也可以检索通过EMREXTCREATEFONTINDIRECTW结构使用的字体设置。此结构将允许您获取LOGFONT定义类型的字体记录,其中包含有关字体的大部分信息,但使用的画笔除外。

如果查看我的原始答案代码,您可以看到字体的颜色是由所使用的画笔定义的。同样,您必须使用不同的结构来获取该信息,即EMRCREATEBRUSHINDIRECT结构。 LOGBRUSH32类型成员包含有关所用画笔颜色和样式的信息。


原始答案

为了实现这一点,您必须使用GDI +,因为Win32增强型图元文件的delphi封装不完整。使用Delphi GDI+ library

uses 
 GDIPlus,GDIPlusHelpers

const
  Deftext = 'Lorem ipsum dolor sit amet,'
  +sLineBreak+'consectetur adipisicing elit, sed do eiusmod tempor incididunt'
  +sLineBreak+'ut labore et dolore magna aliqua.';

procedure CreateEmF(const EmfFileName : TFileName);
var
  Graphics : IGPGraphics;
  xBrush: IGPBrush;
  xFontFamily: IGPFontFamily;
  xFont: IGPFont;
  DC: HDC;
  Metafile: IGPMetafile;

begin

  xBrush := TGPSolidBrush.Create(TGPColor.Create(0, 0, 0));
  xFontFamily := TGPFontFamily.Create('Segoe UI');
  xFont := TGPFont.Create(xFontFamily, 12, FontStyleRegular, UnitPoint{UnitPixel});

  DC := GetDC(0);

  try

    Metafile := TGPMetafile.Create(EmfFileName, DC);
    Graphics := TGPGraphics.Create(Metafile);

    {
      Use Presets instead of the DefaultSystemRendering 

      TextRenderingHintAntiAliasGridFit - Preset ClearType Rendering
      TextRenderingHintSingleBitPerPixelGridFit - Preset Normal Rendering
    }

    Graphics.TextRenderingHint := TextRenderingHintAntiAliasGridFit;
    Graphics.DrawString(Deftext, xFont, TGPPointF.Create(50, 50), xBrush);

    Graphics := nil;

  finally
    ReleaseDC(0, DC);
  end;

end;

procedure ConvertEmf2Bmp(const EMFFileName, BMPFileName: TFileName) ;
var
  MetaFile : TMetafile;
  Bitmap : TBitmap;
begin
  Metafile := TMetaFile.Create;
  Bitmap := TBitmap.Create;
  try
    MetaFile.LoadFromFile(EMFFileName);
    with Bitmap do
    begin
      SetSize(MetaFile.Width,MetaFile.Height);
      Canvas.Draw(0, 0, MetaFile) ;
      SaveToFile(BMPFileName) ;
    end;
  finally
    Bitmap.Free;
    MetaFile.Free;
  end;
end;