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

我正在使用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;

对于某些图像文件，原始图元文件中非常清晰的文本在最终位图中显得有些模糊。不幸的是，我无法在这里发布示例图像，因为我没有足够的声誉点数，但是如果您在下面的问题中比较两张图像，您可以看到我所谈论的内容：

我已经在两台机器上测试过了（两台都是Windows7；一台是32位，另一台是64位）。问题只发生在64位机器上；在32位机器上转换完全相同的图像文件会生成具有正常外观文本的位图

到目前为止我已经尝试过的事情：

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

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

• 尝试在EMF资源管理器中打开原始图像文件。无论是否启用GDI+，此处显示的文本都不模糊

有人对我如何解决这个问题有什么建议吗

以下是两张图片：

在64位计算机上生成的版本：

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

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

{1} 编辑：因为我们已经确定您不是在发布此答案后创建原始元的人，请参阅从现有元文件检索记录一节

{2} 编辑：关于识别字体设置的第二个问题，请参阅第二次更新部分检索字体结构记录

这真是一件难事。由于集成了ClearType调谐器，任何人都可以随心所欲地改变混合颜色的强度。考虑到图像，因此您不能依赖每个单独系统的ClearType设置

AFAIK唯一真正的解决方案是忽略自定义ClearType呈现，并使用预配置的呈现

---

编辑1：从现有图元文件检索记录

您可以通过更具体地说是通过函数修改现有的图元文件，该函数具有一个回调函数，您可以使用该函数来处理记录

使用函数一次解析和检查每条记录。 有关如何编辑和修改特定记录的详细信息，请参阅

在接下来的某个时候，您必须使用下面的代码来修改现有的字体呈现

---

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

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

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

---

原始答案

为了实现这一点，您必须求助于使用GDI+，因为Win32增强元文件的delphi封装尚未完成。使用

---

使用上载站点上载图元文件和一些图像。我们可以编辑问题以包含图片。谢谢大卫，图片如下：好的，我编辑了这篇文章。我理解对了吗？我的说明准确吗？现在，对于正在发生的事情，显然一个版本使用了抗锯齿（可能是ClearType），而另一个版本，坏版本，没有任何抗锯齿。不知道为什么，请注意。元文件和GDI绝对不是我声称拥有专业知识的领域。@SertacAkyuz您可以使用

EnumEnhMetaFile

在设备上播放元文件。并修改所有的

LOGFONT

记录，以相应地设置质量。@PeterVonča完全正确，我没有检查，谢谢您的指导！在64位机器上禁用ClearType确实解决了这个问题。有没有办法在每个应用程序的基础上禁用ClearType？我认为我们的客户不会接受必须在系统范围内禁用ClearType才能让我们的程序正常工作；）谢谢Peter的代码，它工作得很好。然而，我不确定我是否能在我们的项目中使用这种方法。我们需要转换的元文件是从Windows打印机假脱机（.spl）文件中提取的页面，我们无法控制其内容。目标是确定每页上使用的颜色量，以及启用ClearType时位图中包含的颜色像素会干扰这一点。我将看一看Delphi GID库，这可能会很有用。@Tim，我已经更新了我的答案，因为我们知道您不是自己直接创建文件的。我的代码仍然有效且有用，因为在编辑现有图元文件的过程中，您必须调用这些代码来更改文本的绘图。Peter，我已经尝试按照您建议的思路实现了这一点。我遇到的一个问题是知道在EnhmateFileProc中使用哪些字体设置。我可以从tagemrextextouta.emrtext.rclBounds获得的位置，以及我可以使用tagemrextextouta.emrtext.offString和tagemrextextouta.emrtext.nChars提取的文本本身。但是我如何提取字体类型、大小、颜色等？@Tim，我已经再次更新了关于如何检索字体信息的答案，请看“Edit2：检索字体结构记录部分”，希望您觉得它有用，干杯。非常感谢

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;