Imports DigitalData.Modules.Logging
Imports GdPicture14

Public Class frmTest
    Private LogConfig As LogConfig

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath,
                                            Application.StartupPath,
                                            Nothing,
                                            My.Application.Info.CompanyName,
                                            My.Application.Info.ProductName)

        LogConfig = oLogConfig
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oResult = OpenFileDialog1.ShowDialog()

        If oResult = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Dim oKey = "0467389434974657969312056"
            Dim oSubform As New frmTest_SubForm(LogConfig, oKey)

            oSubform.FilePath = TextBox1.Text
            oSubform.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Using oGdPicturePDF As GdPicturePDF = New GdPicturePDF()
            If oGdPicturePDF.LoadFromFile(TextBox1.Text, False) = GdPictureStatus.OK Then
                Dim embeddedFileCount As Integer = oGdPicturePDF.GetEmbeddedFileCount()
                If oGdPicturePDF.GetStat() = GdPictureStatus.OK Then
                    If embeddedFileCount > 0 Then
                        Dim FileName As String = oGdPicturePDF.GetEmbeddedFileName(0)
                        If oGdPicturePDF.GetStat() = GdPictureStatus.OK Then
                            Dim FileSize As Integer = oGdPicturePDF.GetEmbeddedFileSize(0)
                            If oGdPicturePDF.GetStat() = GdPictureStatus.OK Then
                                Dim FileData As Byte() = New Byte(FileSize) {}
                                Dim status As GdPictureStatus = oGdPicturePDF.ExtractEmbeddedFile(0, FileData)
                                If status = GdPictureStatus.OK Then
                                    MessageBox.Show("The content of the first embedded file has been extracted successfully.", "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                    Dim oFileStream As System.IO.FileStream = Nothing
                                    oFileStream = New System.IO.FileStream(FileName + "_content.dat", System.IO.FileMode.Create)
                                    oFileStream.Write(FileData, 0, FileData.Length)
                                    oFileStream.Close()
                                    MessageBox.Show("The content of the embedded file has been saved successfully.", "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                Else
                                    MessageBox.Show("The embedded file has failed to extract. Status: " + status.ToString(), "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Error)
                                End If
                            Else
                                MessageBox.Show("An error occurred getting the file size. Status: " + oGdPicturePDF.GetStat().ToString(), "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Error)
                            End If
                        Else
                            MessageBox.Show("An error occurred getting the file name. Status: " + oGdPicturePDF.GetStat().ToString(), "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                    Else
                        MessageBox.Show("This PDF file does not contain embedded files.", "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                Else
                    MessageBox.Show("An error occurred getting the number of embedded files. Status: " + oGdPicturePDF.GetStat().ToString(), "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Else
                MessageBox.Show("The file can't be loaded.", "Example: Emdedded files (Attachments)", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Using
    End Sub
End Class