49 lines
1.4 KiB
Text
49 lines
1.4 KiB
Text
|
VERSION 5.00
|
||
|
|
Begin VB.Form Form1
|
||
|
|
Caption = "Form1"
|
||
|
|
ClientHeight = 3195
|
||
|
|
ClientLeft = 60
|
||
|
|
ClientTop = 345
|
||
|
|
ClientWidth = 4680
|
||
|
|
LinkTopic = "Form1"
|
||
|
|
ScaleHeight = 3195
|
||
|
|
ScaleWidth = 4680
|
||
|
|
StartUpPosition = 3 'Windows-Standard
|
||
|
|
Begin VB.CommandButton Command1
|
||
|
|
Caption = "Command1"
|
||
|
|
Height = 855
|
||
|
|
Left = 960
|
||
|
|
TabIndex = 0
|
||
|
|
Top = 960
|
||
|
|
Width = 2775
|
||
|
|
End
|
||
|
|
End
|
||
|
|
Attribute VB_Name = "Form1"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = True
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Private Sub Command1_Click()
|
||
|
|
Dim pdf As New PDFPARSERLib.Document
|
||
|
|
Dim content As PDFPARSERLib.content
|
||
|
|
|
||
|
|
a = 0
|
||
|
|
|
||
|
|
If pdf.Open("P:\PDF\support\SamplesClassic\pdf\out_content.pdf") Then
|
||
|
|
pdf.PageNo = 1
|
||
|
|
Set content = pdf.Page.content ' get the page content
|
||
|
|
If Not (content Is Nothing) Then
|
||
|
|
Do
|
||
|
|
Path = content.GetNextPath ' the the next image from the page
|
||
|
|
If Path = "" Then Exit Do
|
||
|
|
Loop
|
||
|
|
Else
|
||
|
|
MsgBox "There is no content on this page"
|
||
|
|
End If
|
||
|
|
pdf.Close
|
||
|
|
Else
|
||
|
|
MsgBox "Couldn't open input file"
|
||
|
|
End If
|
||
|
|
a = 1
|
||
|
|
End Sub
|