foxit pdfium怎么往pdf文件里写入文字,尤其是汉字
InitPdfDll(GetCurrentPath+'pdfium.dll');
if SaveDialog1.Execute = false then Exit;
pdffn := SaveDialog1.FileName; //'C:\Users\lenovo\Desktop\test1.pdf';
txt :='abc123,sss哈是a';// +st.Text;//.Encode(edit1.text,IndyTextEncoding_UTF16LE); //'我日测试123abcd哈';
hpdfdoc := FPDF_CreateNewDocument; // FPDF_LoadDocument(pansichar(pdffn0), pansichar(''));//('C:\Users\lenovo\Desktop\PDFlib-manual-COM-dotNET-CS.pdf'); //FPDF_CreateNewDocument
try
hpdfpage := FPDFPage_New(hpdfdoc, 0, 700, 800); // FPDF_LoadPage(hpdfdoc, 1); //
ho := FPDFPageObj_NewTextObj(hpdfdoc,'Arial',20); //hpdfdoc,'SimSun',40
FPDFText_SetText(ho, PChar(txt));
FPDFPageObj_SetFillColor(ho, $FFFF0000);
FPDFPageObj_Transform(ho, 1, 0, 0, 1, 200, 200);
FPDFPage_InsertObject(hpdfpage, ho);
FPDFPage_GenerateContent(hpdfpage);
FPDF_ClosePage(hpdfpage);
hpdfpage:=0;
deletefile(PansiChar(pdffn));
if PdfSaveAs0(hpdfdoc, pdffn) = false then
raise exception.create('pdf文件保存失败');
showmessage('ok');
finally
FPDF_CloseDocument(hpdfdoc);
hpdfdoc:=0;
end;
这样啥也不显示,全部代码可以这里下http://www.dxmylove.com/download/foxitpdf.zip