Platforms to show: All Mac Windows Linux Cross-Platform

/DynaPDF/Parse PDF Content iOS


Required plugins for this example: MBS DynaPDF Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Parse PDF Content iOS

This example is the version from Sat, 24th Jun 2022.

Project "Parse PDF Content iOS.xojo_binary_project"
Class App Inherits MobileApplication
End Class
Class MainScreen Inherits MobileScreen
Control PDFTable Inherits iOSMobileTable
ControlInstance PDFTable Inherits iOSMobileTable
Constraint Constraint 1
Constraint Constraint 2
Constraint Constraint 3
Constraint Constraint 4
End Control
EventHandler Sub Opening() Dim f As FolderItem = SpecialFolder.Resource("license.pdf") If Not f.Exists Then MessageBox "PDF file missing?" Else Dim p As New DynapdfMBS p.SetLicenseKey "Pro" // For this example you can use a Pro or Enterprise License Call p.CreateNewPDF // Skip anything that is not required Call p.SetImportFlags p.kifContentOnly+p.kifImportAsPage // From which PDF file do you want to extract the images? Call p.OpenImportFile(f, p.kptOpen, "") // Comment this out if you want to extract the images from specific pages only Call p.ImportPDFFile(1, 1.0, 1.0) // Uncomment this section if you want to extract images from specific pages only 'dim pageCount as integer = p.GetPageCount 'for i as integer = 1 to pageCount 'call p.Append 'call p.ImportPageEx(i, 1.0, 1.0) 'call p.EndPage 'next Call p.CloseImportFile Dim stack As New MyDynaPDFParseInterfaceMBS stack.Screen = Self stack.dest=SpecialFolder.Documents // destination folder stack.pdf=p 'If you want to create a multipage TIFF then create the output image here 'and call AddImage() only in the callback function. After the loop 'returns call CloseImage() to close the image file. Dim pageCount As Integer = p.GetPageCount For i As Integer=1 To pageCount Call p.EditPage i Call p.ParseContent(stack, p.kpfNone) Call p.EndPage Next stack.screen = nil End If End EventHandler
End Class
Class LaunchScreen Inherits iosView
End Class
Class MyDynaPDFParseInterfaceMBS Inherits DynaPDFParseInterfaceMBS
EventHandler Function ApplyPattern(ObjectPtr as integer, Type as integer, PatternPtr as integer) As integer Write CurrentMethodName End EventHandler
EventHandler Function BeginLayer(OCHandle as integer, InVisible as boolean) As integer dim s as string if InVisible then s = ", visible" else s = ", non visible" end if Write CurrentMethodName End EventHandler
EventHandler Function BeginPattern(ObjectPtr as integer, Fill as Boolean, PatternType as integer, BBox as DynaPDFRectMBS, Matrix as DynaPDFMatrixMBS, XStep as double, YStep as double) As integer Write CurrentMethodName End EventHandler
EventHandler Function BeginTemplate(ObjectPtr as integer, Handle as integer, BBox as DynaPDFRectMBS, Matrix as DynaPDFMatrixMBS) As integer Write CurrentMethodName End EventHandler
EventHandler Function BezierTo1(ObjectPtr as integer, x1 as double, y1 as double, x3 as double, y3 as double) As integer Write CurrentMethodName+" "+x1.ToString+"/"+y1.ToString+" to "+x3.ToString+"/"+y3.ToString End EventHandler
EventHandler Function BezierTo2(ObjectPtr as integer, x2 as double, y2 as double, x3 as double, y3 as double) As integer Write CurrentMethodName+" "+x2.ToString+"/"+y2.ToString+" to "+x3.ToString+"/"+y3.ToString End EventHandler
EventHandler Function BezierTo3(ObjectPtr as integer, x1 as double, y1 as double, x2 as double, y2 as double, x3 as double, y3 as double) As integer Write CurrentMethodName+" "+x1.ToString+"/"+y1.ToString+" to "+x2.ToString+"/"+y2.ToString+" to "+x3.ToString+"/"+y3.ToString End EventHandler
EventHandler Function ClipPath(ObjectPtr as integer, EvenOdd as boolean, Mode as integer) As integer Write CurrentMethodName End EventHandler
EventHandler Function ClosePath(ObjectPtr as integer, Mode as integer) As integer Write CurrentMethodName End EventHandler
EventHandler Function DrawShading(ObjectPtr as integer, Type as integer, Shading as integer) As integer Write CurrentMethodName End EventHandler
EventHandler Sub EndLayer(OCHandle as integer, InVisible as boolean) Write CurrentMethodName End EventHandler
EventHandler Sub EndPattern() Write CurrentMethodName End EventHandler
EventHandler Sub EndTemplate() Write CurrentMethodName End EventHandler
EventHandler Function InsertImage(image as DynaPDFImageMBS) As integer Write CurrentMethodName End EventHandler
EventHandler Function LineTo(ObjectPtr as integer, x as double, y as double) As integer Write CurrentMethodName+" "+x.ToString+"/"+y.ToString End EventHandler
EventHandler Function MoveTo(ObjectPtr as integer, x as double, y as double) As integer Write CurrentMethodName+" "+x.ToString+"/"+y.ToString End EventHandler
EventHandler Sub MulMatrix(ObjectPtr as integer, matrix as DynaPDFMatrixMBS) Write CurrentMethodName End EventHandler
EventHandler Function Rectangle(ObjectPtr as integer, x as double, y as double, w as double, h as double) As integer Write CurrentMethodName+" "+x.ToString+"/"+y.ToString+" with size "+w.ToString+"/"+h.ToString End EventHandler
EventHandler Function RestoreGraphicState() As integer prefix = prefix.Middle(4-1) Write CurrentMethodName End EventHandler
EventHandler Function SaveGraphicState() As integer Write CurrentMethodName prefix = prefix + " " End EventHandler
EventHandler Sub SetCharSpacing(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Sub SetExtGState(ObjectPtr as integer, GS as DynaPDFExtGState2MBS) Write CurrentMethodName End EventHandler
EventHandler Sub SetFillColor(ObjectPtr as integer, NumComps as integer, Color1 as double, Color2 as double, Color3 as double, Color4 as double, Colors() as double, ColorspaceType as integer, ColorSpace as DynaPDFColorSpaceMBS) dim lines(-1) as string for i as integer = 0 to NumComps-1 lines.Append colors(i).ToString Next Write CurrentMethodName+" "+String.FromArray(lines, ", ") End EventHandler
EventHandler Sub SetFont(ObjectPtr as integer, fontType as integer, Embedded as boolean, FontName as string, Style as integer, FontSize as double, FontHandle as integer, FontInfo as DynaPDFFontInfoMBS) Write CurrentMethodName End EventHandler
EventHandler Sub SetLeading(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Sub SetLineCapStyle(ObjectPtr as integer, Style as integer) Write CurrentMethodName+" "+Style.ToString End EventHandler
EventHandler Sub SetLineDashPattern(ObjectPtr as integer, dash() as Double, NumValues as integer, Phase as Double) Write CurrentMethodName End EventHandler
EventHandler Sub SetLineJoinStyle(ObjectPtr as integer, Style as integer) Write CurrentMethodName+" "+Style.ToString End EventHandler
EventHandler Sub SetLineWidth(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Sub SetMiterLimit(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Sub SetStrokeColor(ObjectPtr as integer, NumComps as integer, Color1 as double, Color2 as double, Color3 as double, Color4 as double, Colors() as double, ColorspaceType as integer, ColorSpace as DynaPDFColorSpaceMBS) dim lines(-1) as string for i as integer = 0 to NumComps-1 lines.Append colors(i).ToString next Write CurrentMethodName+" "+String.FromArray(lines, ", ") End EventHandler
EventHandler Sub SetTextDrawMode(ObjectPtr as integer, Mode as integer) Write CurrentMethodName+" "+Mode.ToString End EventHandler
EventHandler Sub SetTextScale(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Sub SetWordSpacing(ObjectPtr as integer, Value as double) Write CurrentMethodName+" "+value.ToString End EventHandler
EventHandler Function ShowTextArrayA(ObjectPtr as integer, Matrix as DynaPDFMatrixMBS, Kerning() as DynaPDFTextRecordAMBS, Count as integer, Width as double) As integer dim texts() as string for each k as DynaPDFTextRecordAMBS in Kerning texts.Append k.Text next Write CurrentMethodName+" "+String.FromArray(texts) End EventHandler
EventHandler Function ShowTextArrayW(Source() as DynaPDFTextRecordAMBS, Matrix as DynaPDFMatrixMBS, Kerning() as DynaPDFTextRecordWMBS, Count as integer, Width as double, Decoded as boolean) As integer Dim texts() As String for each k as DynaPDFTextRecordWMBS in Kerning texts.Append k.Text next Dim t As String = String.FromArray(texts) t = t.ReplaceAllBytes(Encodings.UTF8.Chr(0), "") Write CurrentMethodName+" "+t End EventHandler
Sub Write(s as string) Dim cn As String = "MyDynaPDFParseInterfaceMBS." If s.Left(cn.Length) = cn Then s = s.Middle(cn.Length) End If screen.PDFTable.AddRow prefix+s End Sub
Property Counter As Integer
Property dest As folderitem
Property pdf As dynaPDFmbs
Property prefix As string
Property screen As MainScreen
End Class
End Project

See also:

The items on this page are in the following plugins: MBS DynaPDF Plugin.


The biggest plugin in space...