17、文档中嵌入和使用True Type字体的实现方法

文档中嵌入和使用True Type字体的实现方法

1. 字体来源说明

在这个示例中，使用的 Ventilate 字体由 Brian J. Bonislawsky - Astigmatic One Eye 慷慨捐赠，版权归其所有（© 1997），使用时已获得许可。Astigmatic One Eye 是各类共享软件和免费字体的优质来源，你可以访问 http://www.comptechdev.com/cavop/aoe/ 查看。需要注意的是，此示例使用的是已经包含嵌入式 True Type 字体的文档。

2. 保存包含嵌入式字体的文档

下面是保存包含嵌入式 True Type 字体文档的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  SavedFile: THandle;     // holds a handle to the open file
  TextSize: LongInt;      // holds the size of the text in the memo
  TheText: PChar;          // holds the text in the memo
  BytesWritten: DWORD;     // holds the number of bytes written to the file
  FontData: Pointer;