diff --git a/Controls.DocumentViewer/DocumentViewer.vbproj b/Controls.DocumentViewer/DocumentViewer.vbproj
index be8b750a..0d016151 100644
--- a/Controls.DocumentViewer/DocumentViewer.vbproj
+++ b/Controls.DocumentViewer/DocumentViewer.vbproj
@@ -5,12 +5,13 @@
Debug
AnyCPU
{0958CDDF-4A16-41F6-8837-8335F71D599C}
- WinExe
- DigitalData.Controls.DocumentViewer.My.MyApplication
+ Library
+
+
DigitalData.Controls.DocumentViewer
DigitalData.Controls.DocumentViewer
512
- WindowsForms
+ Windows
v4.6.1
true
@@ -120,18 +121,6 @@
UserControl
-
- frmTest.vb
-
-
- Form
-
-
- frmTest.SubForm.vb
-
-
- Form
-
frmViewerSettings.vb
@@ -159,12 +148,6 @@
DocumentViewer.vb
-
- frmTest.vb
-
-
- frmTest.SubForm.vb
-
frmViewerSettings.vb
diff --git a/Controls.DocumentViewer/My Project/Application.Designer.vb b/Controls.DocumentViewer/My Project/Application.Designer.vb
index bec0f000..8ab460ba 100644
--- a/Controls.DocumentViewer/My Project/Application.Designer.vb
+++ b/Controls.DocumentViewer/My Project/Application.Designer.vb
@@ -11,28 +11,3 @@
Option Strict On
Option Explicit On
-
-Namespace My
-
- 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
- ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
- ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
- ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
- '
- Partial Friend Class MyApplication
-
- _
- Public Sub New()
- MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
- Me.IsSingleInstance = false
- Me.EnableVisualStyles = true
- Me.SaveMySettingsOnExit = true
- Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
- End Sub
-
- _
- Protected Overrides Sub OnCreateMainForm()
- Me.MainForm = Global.DigitalData.Controls.DocumentViewer.frmTest
- End Sub
- End Class
-End Namespace
diff --git a/Controls.DocumentViewer/frmTest.Designer.vb b/Controls.DocumentViewer/frmTest.Designer.vb
deleted file mode 100644
index 0994ba60..00000000
--- a/Controls.DocumentViewer/frmTest.Designer.vb
+++ /dev/null
@@ -1,90 +0,0 @@
- _
-Partial Class frmTest
- Inherits System.Windows.Forms.Form
-
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
- _
- Protected Overrides Sub Dispose(ByVal disposing As Boolean)
- Try
- If disposing AndAlso components IsNot Nothing Then
- components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
-
- 'Wird vom Windows Form-Designer benötigt.
- Private components As System.ComponentModel.IContainer
-
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
- _
- Private Sub InitializeComponent()
- Me.TextBox1 = New System.Windows.Forms.TextBox()
- Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
- Me.Button1 = New System.Windows.Forms.Button()
- Me.Button3 = New System.Windows.Forms.Button()
- Me.Button4 = New System.Windows.Forms.Button()
- Me.SuspendLayout()
- '
- 'TextBox1
- '
- Me.TextBox1.Location = New System.Drawing.Point(12, 12)
- Me.TextBox1.Name = "TextBox1"
- Me.TextBox1.Size = New System.Drawing.Size(637, 20)
- Me.TextBox1.TabIndex = 1
- '
- 'OpenFileDialog1
- '
- Me.OpenFileDialog1.FileName = "OpenFileDialog1"
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(655, 9)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(50, 23)
- Me.Button1.TabIndex = 2
- Me.Button1.Text = "..."
- Me.Button1.UseVisualStyleBackColor = True
- '
- 'Button3
- '
- Me.Button3.Location = New System.Drawing.Point(12, 38)
- Me.Button3.Name = "Button3"
- Me.Button3.Size = New System.Drawing.Size(637, 23)
- Me.Button3.TabIndex = 2
- Me.Button3.Text = "Load DocView"
- Me.Button3.UseVisualStyleBackColor = True
- '
- 'Button4
- '
- Me.Button4.Location = New System.Drawing.Point(12, 67)
- Me.Button4.Name = "Button4"
- Me.Button4.Size = New System.Drawing.Size(637, 23)
- Me.Button4.TabIndex = 3
- Me.Button4.Text = "Extract Files from PDF"
- Me.Button4.UseVisualStyleBackColor = True
- '
- 'Form1
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(800, 450)
- Me.Controls.Add(Me.Button4)
- Me.Controls.Add(Me.Button3)
- Me.Controls.Add(Me.Button1)
- Me.Controls.Add(Me.TextBox1)
- Me.Name = "Form1"
- Me.Text = "Form1"
- Me.ResumeLayout(False)
- Me.PerformLayout()
-
- End Sub
- Friend WithEvents TextBox1 As TextBox
- Friend WithEvents OpenFileDialog1 As OpenFileDialog
- Friend WithEvents Button1 As Button
- Friend WithEvents Button3 As Button
- Friend WithEvents Button4 As Button
-End Class
diff --git a/Controls.DocumentViewer/frmTest.SubForm.Designer.vb b/Controls.DocumentViewer/frmTest.SubForm.Designer.vb
deleted file mode 100644
index 0e684ff4..00000000
--- a/Controls.DocumentViewer/frmTest.SubForm.Designer.vb
+++ /dev/null
@@ -1,61 +0,0 @@
- _
-Partial Class frmTest_SubForm
- Inherits System.Windows.Forms.Form
-
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
- _
- Protected Overrides Sub Dispose(ByVal disposing As Boolean)
- Try
- If disposing AndAlso components IsNot Nothing Then
- components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
-
- 'Wird vom Windows Form-Designer benötigt.
- Private components As System.ComponentModel.IContainer
-
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
- _
- Private Sub InitializeComponent()
- Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
- Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
- Me.SuspendLayout()
- '
- 'DocumentViewer1
- '
- Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Bottom
- Me.DocumentViewer1.FileLoaded = False
- Me.DocumentViewer1.Location = New System.Drawing.Point(0, 56)
- Me.DocumentViewer1.Name = "DocumentViewer1"
- Me.DocumentViewer1.Size = New System.Drawing.Size(1056, 499)
- Me.DocumentViewer1.TabIndex = 0
- '
- 'SimpleButton1
- '
- Me.SimpleButton1.Location = New System.Drawing.Point(12, 12)
- Me.SimpleButton1.Name = "SimpleButton1"
- Me.SimpleButton1.Size = New System.Drawing.Size(75, 23)
- Me.SimpleButton1.TabIndex = 1
- Me.SimpleButton1.Text = "Load PDF"
- '
- 'Form4
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(1056, 555)
- Me.Controls.Add(Me.SimpleButton1)
- Me.Controls.Add(Me.DocumentViewer1)
- Me.Name = "Form4"
- Me.Text = "Form4"
- Me.ResumeLayout(False)
-
- End Sub
-
- Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
- Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
-End Class
diff --git a/Controls.DocumentViewer/frmTest.SubForm.resx b/Controls.DocumentViewer/frmTest.SubForm.resx
deleted file mode 100644
index 1af7de15..00000000
--- a/Controls.DocumentViewer/frmTest.SubForm.resx
+++ /dev/null
@@ -1,120 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- text/microsoft-resx
-
-
- 2.0
-
-
- System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
\ No newline at end of file
diff --git a/Controls.DocumentViewer/frmTest.SubForm.vb b/Controls.DocumentViewer/frmTest.SubForm.vb
deleted file mode 100644
index 9793771a..00000000
--- a/Controls.DocumentViewer/frmTest.SubForm.vb
+++ /dev/null
@@ -1,42 +0,0 @@
-Imports System.ComponentModel
-Imports DigitalData.Modules.Logging
-
-Public Class frmTest_SubForm
- Public FilePath As String
- Private Key As String
- Private LogConfig As LogConfig
- Private Logger As Logger
-
- Public Sub New(LogConfig As LogConfig, Key As String)
- ' Dieser Aufruf ist für den Designer erforderlich.
- InitializeComponent()
-
- ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
- Me.LogConfig = LogConfig
- Me.Key = Key
- End Sub
-
- Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Logger = LogConfig.GetLogger
- Logger.Info("DocumentViewer Form Loaded")
- DocumentViewer1.Init(LogConfig, Key)
-
- Logger.Info("File Loaded")
- End Sub
-
- Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
- Logger.Info("Form closed")
- End Sub
-
- Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-
- DocumentViewer1.Done()
- Logger.Info("Form closing")
-
-
- End Sub
-
- Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
- DocumentViewer1.LoadFile(FilePath)
- End Sub
-End Class
\ No newline at end of file
diff --git a/Controls.DocumentViewer/frmTest.resx b/Controls.DocumentViewer/frmTest.resx
deleted file mode 100644
index 33c7f672..00000000
--- a/Controls.DocumentViewer/frmTest.resx
+++ /dev/null
@@ -1,123 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- text/microsoft-resx
-
-
- 2.0
-
-
- System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- 17, 17
-
-
\ No newline at end of file
diff --git a/Controls.DocumentViewer/frmTest.vb b/Controls.DocumentViewer/frmTest.vb
deleted file mode 100644
index 2aab6e93..00000000
--- a/Controls.DocumentViewer/frmTest.vb
+++ /dev/null
@@ -1,76 +0,0 @@
-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