在iSEDQuickPDF中如何输出带中文的PDF文件

在Delphi下操作PDF文件的控件中我已经提到，iSEDQuickPDF是一个功能非常强的PDF操作控件。在使用这个控件的时候遇到的一个最大问题就是如何输出中文。经过摸索终于找到了解决的办法，与大家分享一下。

1、正文中带中文的情况

在iSEDQuickPDF的FAQ中介绍了一种方法，就是使用AddSubsettedFont函数，例如：

procedure TForm1.Button1Click(Sender: TObject);

var

 QP: TiSEDQuickPDF;

 s: string;

begin

 QP := TiSEDQuickPDF.Create;

 try

   s := 'Hello 热情软件屋!';

   QP.AddSubsettedFont('宋体', 10, s);

   QP.DrawText(100, 500, QP.GetSubsetString(S));

   QP.SaveToFile('g:\test.pdf');

 finally

   QP.Free;

 end;

end;

2、书签中带中文的情况

如果直接使用NewOutline函数添加中文书签，则最后显示的一定是乱码。要先使用ToPDFUnicode将中文转换为PDF中的Unicode格式才行，如：

QP.NewOutline(Integer(currentNode.Parent.Data),

                            QP.ToPDFUnicode("热情软件屋"), nPageNumber, 0)