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
uj5u.com熱心網友回復：
ho := FPDFPageObj_NewTextObj(hpdfdoc,'Arial',20); //hpdfdoc,'SimSun',40第一個引數應該是 page的句柄吧 hpdfpage
uj5u.com熱心網友回復：
就是hpdfdoc轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/9613.html