i use PDFjetPDF
and i need Write in Arabic
i see example in this link http://pdfjet.com/java/examples/example-07.html
'##########
publicclassExample_07{
publicExample_07()throwsException{
FileOutputStream fos =newFileOutputStream("Example_07.pdf");
PDF pdf =new PDF(fos,Compliance.PDF_A_1B);
Font f1 =newFont(pdf,newBufferedInputStream(getClass().getResourceAsStream("fonts/DroidFonts/DroidSerif-Regular.otf")),CodePage.UNICODE,Embed.YES);
Font f2 =newFont(pdf,newBufferedInputStream(getClass().getResourceAsStream("fonts/DroidFonts/DroidSerif-Italic.ttf")),CodePage.UNICODE,Embed.YES);
'########################
but i need write by b4a
i write this code but no work
Dim InputFile As InputStream=File.OpenInput(File.DirAssets, "myf.otf")
Dim cp As PDFjetCodePage
Dim PDFFont2 As PDFjetFont
PDFFont2.Initialize4(PDFjetPDF1,InputFile ,cp.UNICODE,True )
can help me please
and i need Write in Arabic
i see example in this link http://pdfjet.com/java/examples/example-07.html
'##########
publicclassExample_07{
publicExample_07()throwsException{
FileOutputStream fos =newFileOutputStream("Example_07.pdf");
PDF pdf =new PDF(fos,Compliance.PDF_A_1B);
Font f1 =newFont(pdf,newBufferedInputStream(getClass().getResourceAsStream("fonts/DroidFonts/DroidSerif-Regular.otf")),CodePage.UNICODE,Embed.YES);
Font f2 =newFont(pdf,newBufferedInputStream(getClass().getResourceAsStream("fonts/DroidFonts/DroidSerif-Italic.ttf")),CodePage.UNICODE,Embed.YES);
'########################
but i need write by b4a
i write this code but no work
Dim InputFile As InputStream=File.OpenInput(File.DirAssets, "myf.otf")
Dim cp As PDFjetCodePage
Dim PDFFont2 As PDFjetFont
PDFFont2.Initialize4(PDFjetPDF1,InputFile ,cp.UNICODE,True )
can help me please