GdPicture Imaging Forums

Code: Select all

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oGdPictureImaging As New GdPicture.GdPictureImaging
        oGdPictureImaging.SetLicenseNumber("XXX") 'Replace XXX by valid commercial or demo KEY

        Dim hPDF As Integer = oGdPictureImaging.PdfReaderLoadFromFile("c:\test.pdf")
        If hPDF > 0 Then
            oGdPictureImaging.PdfReaderSelectPage(hPDF, 1) 'Select Page1
            Dim ImageCount As Integer = oGdPictureImaging.PdfReaderGetImageCount(hPDF)

            For i As Integer = 1 To ImageCount
                Dim ImageID As Integer = oGdPictureImaging.PdfReaderExtractImage(hPDF, i)
                If ImageID <> 0 Then
                    MsgBox("Image No: " + Str(i) + Chr(13) + _
                           "Res X: " + Str(oGdPictureImaging.GetHorizontalResolution(ImageID)) + Chr(13) + _
                           "Res Y: " + Str(oGdPictureImaging.GetVerticalResolution(ImageID)) + Chr(13))
                    oGdPictureImaging.ReleaseGdPictureImage(ImageID)
                End If
            Next
            oGdPictureImaging.PdfReaderCloseDocument(hPDF)
        End If
    End Sub