請問各位, 有沒有人用過llionsoft 的產品TPDFDocument, 它說話可以support unicode, 但連中文Big5 都出不到
我不知是否我的coding有問題, 請大家幫忙:

在以下程式我的String 是 "你好嗎abc" 但用 PDFDocument1.CurrentPage.TextOut(10, 20, 0,S) 出不到 "你好嗎", 只出到"abc",
但如果我用 PDFDocument1.CurrentPage.UnicodeTextOut(10,20, 0,PWord(s),length('s')) (remark的一行) 就什麼都看不見...
是不是我程式上出問題?

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
PDFDocument1:TPDFDocument;
s:string;
begin
try
PDFDocument1:=TPDFDocument.Create(nil);
s:='你好嗎abc';
PDFDocument1.FileName := 'D:\test.pdf';
PDFDocument1.AutoLaunch := true;
PDFDocument1.BeginDoc;
PDFDocument1.CurrentPage.Orientation:=poPageLandscape;
PDFDocument1.CurrentPage.SetActiveFont('Courier',[],9,CHINESEBIG5_CHARSET);
PDFDocument1.CurrentPage.TextOut(10, 20, 0,S);
//PDFDocument1.CurrentPage.UnicodeTextOut(10,20, 0,PWord(s),length('s')
PDFDocument1.EndDoc;
finally
FreeAndNil(PDFDocument1);
end;
[/code]
TextOut 的定義是這樣:
procedure TextOut(X: Extended, Y: Extended, Orientation: Extended, TextStr: string);

UnicodeTextOut的定義是這樣:
procedure UnicodeTextOut(X: Extended, Y: Extended, Orientation: Extended, Text: PWord, Len:Integer);

編輯記錄