Tiff-Datei Multipage in SQL ablegen und wieder holen - als Multipage

michl75 · 27. Juni 2024, 11:32

Hallo zusammen,

ich muss mich an euch wenden, da ich einfach nicht weiter komme.

Mittels folgendem Programm kopiere ich eine Datei die per DragDrop auf die Form gezogen wird:

VB.NET-Quellcode

My.Computer.FileSystem.CopyFile(_Datei_AusDragDrop, _TempDaten)
Dim _PE As New FileConvert_Posteingang_01
_PE._DIDimage = _did
_PE._DokQuelle = _TempDaten
_PE.ShowDialog()

In der anderen Form (FileConvert_Posteingang_01) soll dann folgendes passieren:

1. ist es PDF soll es zu Tiff gewandelt werden
2. Posteinfangsstempel in das Tif zeichnen

zu 1 (dazu per NuGet das Spire.PDF installiert):

VB.NET-Quellcode

Friend _DIDimage As Integer
Friend _DokQuelle As String
...
Dim pdf As PdfDocument = New PdfDocument()
pdf.LoadFromFile(_DokQuelle)
Dim images As Image() = SaveAsImage(pdf)
JoinTiffImages(images, _TempDaten, EncoderValue.CompressionNone)
PictureBox1.Image = Image.FromFile(_TempDaten)

dazugehörige Unter-Subs:

Spoiler anzeigen

VB.NET-Quellcode

Private Function SaveAsImage(ByVal document As PdfDocument) As Image()
Dim images As Image() = New Image(document.Pages.Count - 1) {}
For i As Integer = 0 To document.Pages.Count - 1
images(i) = document.SaveAsImage(i)
Next
Return images
End Function
Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
Dim encoders As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
For j As Integer = 0 To encoders.Length - 1
If encoders(j).MimeType = mimeType Then Return encoders(j)
Next
Throw New System.Exception(mimeType & " mime type not found in ImageCodecInfo")
End Function
Private Sub JoinTiffImages(ByVal images As Image(), ByVal outFile As String, ByVal compressEncoder As EncoderValue)
Dim enc As Encoder = Encoder.SaveFlag
Dim ep As EncoderParameters = New EncoderParameters(2)
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
ep.Param(1) = New EncoderParameter(Encoder.Compression, CLng(compressEncoder))
Dim pages As Image = images(0)
Dim frame As Integer = 0
Dim info As ImageCodecInfo = GetEncoderInfo("image/tiff")
For Each img As Image In images
If frame = 0 Then
pages = img
pages.Save(outFile, info, ep)
Else
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
pages.SaveAdd(img, ep)
End If
If frame = images.Length - 1 Then
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.Flush))
pages.SaveAdd(ep)
End If
frame += 1
Next
End Sub

zu 2 (Posteingangsstempel in Tiff zeichnen):

VB.NET-Quellcode

Private Sub PictureBox2_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseUp
Dim b As Bitmap = New Bitmap(_TempDaten) 'Picturebox1.Image
Dim g As Graphics = Graphics.FromImage(b)
g.DrawString("Dieses Dokument wurde durch den Sachbearbeiter: " & My.Settings.clm_benutzername & " am " & Date.Now.ToShortDateString & " bearbeitet/archiviert.", New Font("Aptos", 18, FontStyle.Bold), Brushes.Black, 10, 10)
If cb_DruckDokIdImBeleg.Checked = True Then
g.DrawString("DOKUMENTEN-ID. " & _DIDimage.ToString, New Font("Aptos", 8, FontStyle.Bold), Brushes.Black, 500, 10)
End If
If cb_PoststempelAufdrucken.Checked = True Then
g.DrawString("POSTEINGANG", New Font("Aptos", 12, FontStyle.Bold), Brushes.Blue, CInt((_L_Pb2.X - _L_Pb1.X) * 1.9701), CInt((_L_Pb2.Y - _L_Pb1.Y) * 1.9701))
g.DrawString(Date.Now.ToShortDateString, New Font("Aptos", 12, FontStyle.Bold), Brushes.Blue, CInt((_L_Pb2.X - _L_Pb1.X) * 1.9701) + 4, CInt((_L_Pb2.Y - _L_Pb1.Y) * 1.9701) + 14)
End If
PictureBox1.Image = b
[b]PictureBox1.Image.Save(_ClmTempDaten, System.Drawing.Imaging.ImageFormat.Tiff) <<<<< ---- FEHLER[/b]
End Sub

Bis zum markierten Fehler scheint alles gut zu laufen, aber dann kommt die Fehlermeldung: System.Runtime.InteropServices.ExternalException: "Allgemeiner Fehler in GDI+."
Als Anlage habe ich n Bild aus Fehlerdetails angehängt... InnerException ist Nothing...

Allgemeiner Fehler kann nun für mich erst mal alles sein, da ich zum ersten mal mit Tiff's und Graphics arbeite.

Vielleicht hat einer eine gute Idee? Oder fällt jemanden Fehler auf die ich gemacht habe?

Für Rückantworten wäre ich sehr dankbar...

Viele Grüße
Michl

*Topic verschoben*

-Franky- · 27. Juni 2024, 12:01

Hi

Deinen Code fix überflogen. Du erstellst ein Graphics vom Bitmap, gibst es aber vor dem Speichern nicht frei (Dispose). Verwende nach Möglichkeit auch Using Blöcke.

michl75 · 27. Juni 2024, 12:11

@-Franky- Danke für deine Antwort...

Ich hatte es so auch schon mal versucht ...

VB.NET-Quellcode

PictureBox1.Image = b
b.Dispose()
PictureBox1.Image.Save(_ClmTempDaten)

da kommt "Ungültiger Parameter"

und so auch

VB.NET-Quellcode

PictureBox1.Image = b
PictureBox1.Image.Save(_ClmTempDaten)
b.Dispose()

auch mit diesem Fehler: System.Runtime.InteropServices.ExternalException: "Allgemeiner Fehler in GDI+" >> wird ja danach erst freigegeben
...

Habe es auch schon mal mit Image statt New Bitmap versucht...

VB.NET-Quellcode

Dim b As Image = Image.FromFile(_ClmTempDaten) 'Picturebox1.Image
Dim g As Graphics = Graphics.FromImage(b)
g.DrawString("Dieses Dokument wurde durch den Sachbearbeiter: " & My.Settings.clm_benutzername & " am " & Date.Now.ToShortDateString & " bearbeitet/archiviert.", New Font("Aptos", 18, FontStyle.Bold), Brushes.Black, 10, 10)
If cb_DruckDokIdImBeleg.Checked = True Then
g.DrawString("DOKUMENTEN-ID. " & _DIDimage.ToString, New Font("Aptos", 8, FontStyle.Bold), Brushes.Black, 500, 10)
End If
usw.......

Da kommt genau der gleiche Fehler.

-Franky- · 27. Juni 2024, 12:22

Hi. Nicht b.dispose. g.dispose.

michl75 · 27. Juni 2024, 12:26

Sofort ausprobiert...

... aber leider nein, der Fehler bleibt bestehen , "Allgemeiner Fehler in GDI+"

RodFromGermany · 27. Juni 2024, 13:00

@michl75 Setze einen Haltepunkt auf die Zeile und sieh Dir den Inhalt der Variablen an.
Irgend etwas ist da wohl Nothing.
Lerne zu debuggen:
Debuggen, Fehler finden und beseitigen

-Franky- · 27. Juni 2024, 13:12

Hi. Ok. Da gibt es für mich weitere Ungereimtheiten. Du weist b einer PB zu um dann PB.Image zu speichern. Da kannst doch gleich b.Save aufrufen. Dann erzeugst Du aus der PDF eine MultiFrame-TIFF und speicherst diese zuerst auf die Platte um diese später wieder von der Platte zu laden um vermutlich auf der ersten Seite den Stempel anzubringen. Dabei hast du schon in images alle Bilder. Bearbeite daraus das erste Bild und dann erst werden die einzelnen Bilder zu einer MultiFrame-TIFF zusammengefasst-> JoinTiffImages Wobei der Name der Sub ein wenig irreführend ist.

michl75 · 27. Juni 2024, 13:54

Ich hab jetzt gleich ein Meeting, melde mich heute Abend bzw. spätestens morgen Vormittag zurück.
Wollte nur kurz Bescheid geben, dass Ihr nicht denkt.....

Und danke schon mal für die Rückmeldungen !

M

michl75 · 27. Juni 2024, 20:31

-Franky- schrieb:

Hi. Ok. Da gibt es für mich weitere Ungereimtheiten. Du weist b einer PB zu um dann PB.Image zu speichern. Da kannst doch gleich b.Save aufrufen. Dann erzeugst Du aus der PDF eine MultiFrame-TIFF und speicherst diese zuerst auf die Platte um diese später wieder von der Platte zu laden um vermutlich auf der ersten Seite den Stempel anzubringen. Dabei hast du schon in images alle Bilder. Bearbeite daraus das erste Bild und dann erst werden die einzelnen Bilder zu einer MultiFrame-TIFF zusammengefasst-> JoinTiffImages Wobei der Name der Sub ein wenig irreführend ist.

So ... Sorry... Endlich fertig und wollte eben noch wenigstens kurz Antworten.

Tatsächlich ist das alles noch recht durcheinander, liegt unteranderem daran, dass ich mich Stück für Stück dran gemacht hab.
Habe bereits begonnen Das ohne "Zwischenspeichern" auf der Platte und erneut laden umzuschreiben bzw. zu korrigieren.
Habe dazu

VB.NET-Quellcode

Private _Image as Image

gesetzt und meine Picbox wird erst am Schluss mit neuen Daten versorgt.

Was ich aber gern beibehalten möchte ist, dass die Ursprungsdatei beim übersetzen von DPF auf Tiff in mein temporäres Verzeichnis kopiert wird. Das wird auch einmal am Tag gelöscht, also kein Datenmüll...

Ich werde ganz unten meinen "Versuchscode" mal komplett posten

Worauf ich noch keine Lösung habe ist...

VB.NET-Quellcode

If _FileInfo.Extension = ".pdf" Or _FileInfo.Extension = ".PDF" Then
Dim pdf As PdfDocument = New PdfDocument()
pdf.LoadFromFile(_DokQuelle)
[b]Dim images As Image() = SaveAsImage(pdf)
JoinTiffImages(images, TextBox1.Text, EncoderValue.CompressionLZW)[/b]
Using tiff As Stream = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim _b As Image = Image.FromStream(tiff)
Dim _g As Graphics = Graphics.FromImage(_b)
PictureBox1.Image = _b
_Image = _b
_g.Dispose()
End Using

Ich würde gerne ab dem images bereits die Daten in mein _Image für die weitere Bearbeitung bereitstellen. Hier ist aber das Images als Array vorhanden ...
Außerdem ist mir aufgefallen, dass meine auf der Platte gespeicherte Datei mehrere Seiten hat, was aber bei mir im _Image liegt ist nur die erste Seite...

So nun auch hier mal der Gesamte Code. Bin mir sicher, das man das viel besser machen kann als mein Versuch derzeit ist

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.ComponentModel
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Tesseract
Imports Spire.Pdf
Public Class FileConvert_Posteingang_01
Friend _DIDimage As Integer
Friend _DokQuelle As String
Private _nV As Single = 0
Private _nH As Single = 0
Private _nW As Single = 0
Private tessdataPath As String = Windows.Forms.Application.StartupPath.Replace("\bin\Debug", "") + Path.DirectorySeparatorChar & "\Archiv\tessdata"
Private _Image As Image
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Verwaltung mit Dokumentenanbindung - Vers. " & My.Application.Info.Version.ToString
tslbl_benutzername_system.Text = Environment.UserName.ToString
If My.Settings.clm_benutzer_isadmin = True Then
txb_faktor_X.Enabled = True
txb_faktor_Y.Enabled = True
End If
DatenLaden()
End Sub
#Region "DatenLaden und Verarbeitung bzw. Hauptconvertierung"
Private Sub DatenLaden()
Dim _FileInfo As FileInfo
_FileInfo = New FileInfo(_DokQuelle)
Dim _Speichercode1 As String = Nothing
NeuerVorgangCode1:
_Speichercode1 = getrandombystring("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", 12)
If CDec(Archiv_Dokumentenstam_BinardatenPDFTableAdapter.ScalarQuery_SPEICHERCODEPRUEFUNG_nachSpeichercode(_Speichercode1)) > 0 Then
GoTo NeuerVorgangCode1
End If
Dim _ClmTempDaten_Pfad As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\CLM_TempFile\"
Dim _ClmTempDaten_Dateiname As String = "MSCLM_DC_" & _DIDimage.ToString("0000000") & "_" & _Speichercode1 & ".Tiff"
'Dim _ClmTempDaten As String = _ClmTempDaten_Pfad & _ClmTempDaten_Dateiname
TextBox1.Text = _ClmTempDaten_Pfad & _ClmTempDaten_Dateiname
If _FileInfo.Extension = ".pdf" Or _FileInfo.Extension = ".PDF" Then
Dim pdf As PdfDocument = New PdfDocument()
pdf.LoadFromFile(_DokQuelle)
Dim images As Image() = SaveAsImage(pdf)
JoinTiffImages(images, TextBox1.Text, EncoderValue.CompressionLZW)
Using tiff As Stream = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim _b As Image = Image.FromStream(tiff)
Dim _g As Graphics = Graphics.FromImage(_b)
PictureBox1.Image = _b
_Image = _b
_g.Dispose()
End Using
ElseIf _FileInfo.Extension = ".tiff" Or _FileInfo.Extension = ".Tiff" Or _FileInfo.Extension = ".tif" Or _FileInfo.Extension = ".Tif" Then
ElseIf _FileInfo.Extension = ".xps" Or _FileInfo.Extension = ".XPS" Then
Else
MessageBox.Show("Die übergebene Datei hat ein Format, dass nicht gelesen werden kann. Bitte in ein Lesbares Format umwandeln, empfohlen wird: Tiff oder PDF. In der Datenbank werden die Daten als Tiff abgelegt.", "STOP der Verarbeitung", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Exit Sub
End If
txb_faktor_X.Text = My.Settings.archiv_faktor_stempelberechnungX.ToString("N4")
txb_faktor_Y.Text = My.Settings.archiv_faktor_stempelberechnungY.ToString("N4")
lbl_Bildaufloesung.Text = "Höhe: " & PictureBox1.Image.PhysicalDimension.Height.ToString & " Breite: " & PictureBox1.Image.PhysicalDimension.Width.ToString
lbl_fenstergroesse.Text = "Höhe: " & PictureBox1.Height.ToString & " Breite: " & PictureBox1.Width.ToString
Dim _Verhaeltnis_H As Double = CDbl(PictureBox1.Image.PhysicalDimension.Height / PictureBox1.Height)
Dim _Verhaeltnis_W As Double = CDbl(PictureBox1.Image.PhysicalDimension.Width / PictureBox1.Width)
_nV = CInt((_Verhaeltnis_H + _Verhaeltnis_W) / 2)
lbl_BilderVerhaeltnis.Text = _Verhaeltnis_H.ToString("N4") & " / " & _Verhaeltnis_W.ToString("N4")
_nH = 297 / PictureBox1.Image.PhysicalDimension.Height
_nW = 210 / PictureBox1.Image.PhysicalDimension.Width
lbl_MmPixel.Text = "Höhe: " & _nH.ToString("N4") & " Breite: " & _nW.ToString("N4")
PictureBox2.Size = New Size(CInt((29 * _Verhaeltnis_H) - 5), CInt((16 * _Verhaeltnis_W)) - 5)
tslbl_PS.Text = "nein"
End Sub
Private Function SaveAsImage(ByVal document As PdfDocument) As Image()
Dim images As Image() = New Image(document.Pages.Count - 1) {}
For i As Integer = 0 To document.Pages.Count - 1
images(i) = document.SaveAsImage(i)
Next
Return images
End Function
Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
Dim encoders As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
For j As Integer = 0 To encoders.Length - 1
If encoders(j).MimeType = mimeType Then Return encoders(j)
Next
Throw New System.Exception(mimeType & " mime type not found in ImageCodecInfo")
End Function
Private Sub JoinTiffImages(ByVal images As Image(), ByVal outFile As String, ByVal compressEncoder As EncoderValue)
Dim enc As Encoder = Encoder.SaveFlag
Dim ep As EncoderParameters = New EncoderParameters(2)
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
ep.Param(1) = New EncoderParameter(Encoder.Compression, CLng(compressEncoder))
Dim pages As Image = images(0)
Dim frame As Integer = 0
Dim info As ImageCodecInfo = GetEncoderInfo("image/tiff")
For Each img As Image In images
If frame = 0 Then
pages = img
pages.Save(outFile, info, ep)
Else
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
pages.SaveAdd(img, ep)
End If
If frame = images.Length - 1 Then
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.Flush))
pages.SaveAdd(ep)
End If
frame += 1
Next
End Sub
#End Region
#Region "Poststempel"
Private nStartPos As Point
Private nDragPos As Point
Private _L_Pb1 As Point
Private _L_Pb2 As Point
Private _Sp_X As Integer
Private _SP_Y As Integer
Private Sub PictureBox2_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
nStartPos = PictureBox2.Location
nDragPos = PictureBox2.PointToScreen(New Point(e.X, e.Y))
_L_Pb1 = PictureBox1.Location
_L_Pb2 = PictureBox2.Location
End If
End Sub
Private Sub PictureBox2_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nCurPos As Point = PictureBox2.PointToScreen(New Point(e.X, e.Y))
PictureBox2.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, nStartPos.Y + nCurPos.Y - nDragPos.Y)
_L_Pb1 = PictureBox1.Location
_L_Pb2 = PictureBox2.Location
End If
End Sub
Private Sub PictureBox2_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseUp
_Sp_X = CInt((_L_Pb2.X - _L_Pb1.X) * 1.9701)
_SP_Y = CInt((_L_Pb2.Y - _L_Pb1.Y) * 1.9701)
End Sub
Private Sub DrawImage(x As Graphics)
Throw New NotImplementedException()
End Sub
#End Region
#Region "Buttons"
Private Sub btn_abbruch_Click(sender As Object, e As EventArgs) Handles btn_abbruch.Click
Zwischenablage_Archiv.__PEverarbe = False
Me.Close()
End Sub
Private Sub btn_Ubernahme_Click(sender As Object, e As EventArgs) Handles btn_Ubernahme.Click
Zwischenablage_Archiv.__PEverarbe = True
Dim _TextAusOCT_TIFF As String = Nothing
If cb_TexterkennungDurchfuehren.Checked = True Then
Using engine As TesseractEngine = New TesseractEngine(tessdataPath, My.Settings.system_start_posteingang_sprache, EngineMode.Default)
Using pix As Pix = Pix.LoadFromFile(TextBox1.Text)
Using page As Tesseract.Page = engine.Process(pix)
_TextAusOCT_TIFF = page.GetText()
End Using
End Using
End Using
End If
Dim _g As Graphics = Graphics.FromImage(_Image)
_g.DrawString("Dieses Dokument wurde durch den Sachbearbeiter: " & My.Settings.clm_benutzername & " am " & Date.Now.ToShortDateString & " archiviert.", New Font("Arial", 8, FontStyle.Bold), Brushes.Black, 25, 15)
If cb_DruckDokIdImBeleg.Checked = True Then
_g.DrawString("DOKUMENTEN-ID. " & _DIDimage.ToString, New Font("Arial", 8, FontStyle.Bold), Brushes.Black, 590, 10)
End If
If cb_PoststempelAufdrucken.Checked = True Then
Dim rec As Rectangle = New Rectangle(_Sp_X - 10, _SP_Y - 30, 140, 80)
_g.DrawRectangle(Pens.Blue, rec)
_g.DrawString("XXXXXX GmbH", New Font("Arial", 8, FontStyle.Regular), Brushes.Blue, _Sp_X + 30, _SP_Y - 21)
_g.DrawString("POSTEINGANG", New Font("Arial", 12, FontStyle.Bold), Brushes.Blue, _Sp_X - 2, _SP_Y)
_g.DrawString(Date.Now.ToShortDateString, New Font("Arial", 12, FontStyle.Bold), Brushes.Red, _Sp_X + 16, _SP_Y + 24)
End If
PictureBox1.Image = _Image
Archiv_Dokumentenstam_BinardatenPDFTableAdapter.UpdateQuery_DokUpd_PE_nachDokID(imageToByteArray(_Image), _TextAusOCT_TIFF, My.Settings.clm_benutzername, Date.Now, _DIDimage)
_g.Dispose()
Me.Close()
End Sub
#End Region
#Region "Sonstiges und Image convertieren für Datenbank"
Function getrandombystring(ByVal input As String, ByVal charamount As Integer) As String
Dim r As New Random
Dim strb As New System.Text.StringBuilder
Dim chararray() As Char = input.ToCharArray
For i As Integer = 1 To charamount
Dim ti As Integer = r.Next(0, chararray.Length)
strb.Append(chararray(ti))
Next
Return strb.ToString
End Function
Public Function imageToByteArray(ByVal imageIn As System.Drawing.Image) As Byte()
Dim ms As MemoryStream = New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Tiff)
Return ms.ToArray()
End Function
Public Function byteArrayToImage(ByVal byteArrayIn As Byte()) As Image
Dim ms As MemoryStream = New MemoryStream(byteArrayIn)
Dim returnImage As Image = Image.FromStream(ms)
Return returnImage
End Function
#End Region
End Class

Wünsche einen schönen Abend

-Franky- · 27. Juni 2024, 21:15

Hi. Da ich noch im Urlaub bin, kann ich nur Psydocode liefern, wie man Dein Problem angehen könnte. Der erste Teil ist klar. Die Seiten der PDF werden als Image gerendert in ein ImageArray abgelegt <- SaveAsImage(pdf). An jedes einzelne Image kommst Du über den Index vom Array. images(0) wäre hier also die erste Seite auf der Du einen Stempel anbringen möchtest. Bedeutet das Du von images(0) ein Graphics erstellen müsstest. Using g As Graphics = Graphics.FromImage(images(0)). Zeichne jetzt deinen Stempel drauf und End Using. Erst danach per JoinTiffImages die images zu einer MultiFrame-TIFF speichern. Am Ende sollten dann auch die Images im ImageArray Disposed werden wenn diese nicht mehr benötigt werden. Grundsatz ist ja immer, lasse ein Objekt nur so lange leben, wie es benötigt wird.

Zu Deiner anderen Frage: Wenn Du wieder ein MultiFrame-TIFF von der Platte lädst, wird Dir immer nur das erste Bild angezeigt. Du müsstest hier erst das entsprechende Image Property (Image.GetFrameDimensionsCount) auslesen, wieviel Bilder in der MultiFrame-TIFF enthalten sind und über entsprechenden Code kannst Du dann wieder auf jedes einzelne Bild zugreifen bzw das ganze wieder in ein ImageArray schaufeln.

michl75 · 27. Juni 2024, 21:49

Also erst mal danke für die Antwort aus dem Urlaub ... und schönen Urlaub gleich dazu

Mein letzter Urlaub war 2016 ....

Ok die Erklärung bringt mich zum Denken, werde das morgen direkt mal versuchen umzusetzen.

Vielen Dank für die Erklärung !

Schönen Abend

-Franky- · 27. Juni 2024, 22:50

Ich sage auch erst einmal Danke.

michl75 schrieb:

Mein letzter Urlaub war 2016 ....

Oha, dann wird es aber mal wieder Zeit.

Ansonsten ist Deine Problemstellung ja kein Hexenwerk das nicht gelöst werden könnte.

michl75 · 28. Juni 2024, 21:38

Ja tatsächlich wäre es mal wieder an der Zeit und wenn es nur 2 Wochen durchgehend in der Hängematte im Garten ist

So also ich hab heute immer wieder mal daran gebastelt.

Das ganze Zwischenspeichern ist weg. Es wird nur noch die Originaldatei einmalig als Original PDF in mein Tempverzeichnis kopieret (was ja Abends gelöscht wird) ... das soll ja auch so bleiben.

Weiterhin habe ich ein Blättern eingefügt um im Tiff vor und zurück zu blättern.

Den Namen Join habe ich auch umbenannt : MultiFrameTiff

-Franky- schrieb:

Zeichne jetzt deinen Stempel drauf und End Using. Erst danach per JoinTiffImages die images zu einer MultiFrame-TIFF speichern

Der Stempel soll nicht gleich am Anfang rein, da dieser verschoben werden kann... so das er möglichst wenig bedeckt: Siehe Anlage x1

Wird dann Übernehmen gedrückt, soll der Stempel auf die Seite drauf , so wie die anderen sagen die in der (x1) Form stehen. (Drucken kommt später) ... wenn gedrückt, siehe Anlage x2
Hat also schon mal funktioniert, es werden zwei Seiten übernommen.....

Wenn das dann in der DB MSSQL (varbinary(MAX)) gespeichert und ich rufe diesen Datensatz auf ... kommt Anzahl Seiten 0 und ich kann auch nicht blättern (Anlage x3)

Das ist der Code vom Dokument aufnehmen:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.ComponentModel
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Tesseract
Imports Spire.Pdf
Public Class FileConvert_Posteingang_01
Friend _DIDimage As Integer
Friend _DokQuelle As String
Private _nV As Single = 0
Private _nH As Single = 0
Private _nW As Single = 0
Private tessdataPath As String = Windows.Forms.Application.StartupPath.Replace("\bin\Debug", "") + Path.DirectorySeparatorChar & "\Archiv\tessdata"
Private _TextAusOCT_TIFF As String = Nothing
Private _Bmp_Subweit As Bitmap
'Private _BmpActikDisplay As Bitmap
Private _totalPages As Integer
Private _currentPage As Integer = 0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tslbl_benutzername_system.Text = Environment.UserName.ToString
If My.Settings.clm_benutzer_isadmin = True Then
txb_faktor_X.Enabled = True
txb_faktor_Y.Enabled = True
End If
DatenLaden()
End Sub
#Region "DatenLaden und Verarbeitung bzw. Hauptconvertierung"
Private Sub DatenLaden()
Dim _FileInfo As FileInfo
_FileInfo = New FileInfo(_DokQuelle)
Dim _Speichercode1 As String = Nothing
NeuerVorgangCode1:
_Speichercode1 = getrandombystring("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", 12)
If CDec(Archiv_Dokumentenstam_BinardatenPDFTableAdapter.ScalarQuery_SPEICHERCODEPRUEFUNG_nachSpeichercode(_Speichercode1)) > 0 Then
GoTo NeuerVorgangCode1
End If
Dim _ClmTempDaten_Pfad As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\CLM_TempFile\"
Dim _ClmTempDaten_Dateiname As String = "MSCLM_DC_" & _DIDimage.ToString("0000000") & "_" & _Speichercode1 & ".Tiff"
TextBox1.Text = _ClmTempDaten_Pfad & _ClmTempDaten_Dateiname
If _FileInfo.Extension = ".pdf" Or _FileInfo.Extension = ".PDF" Then
' Jetzt wird die kopierte Originaldatei von PDF in Multi-Tiff gewandelt
Dim pdf As PdfDocument = New PdfDocument()
pdf.LoadFromFile(_DokQuelle)
Dim images As Image() = PDFzuImage(pdf)
MultiFrameTiff(images, TextBox1.Text, EncoderValue.CompressionLZW)
Dim _fs As FileStream = File.Open(TextBox1.Text, FileMode.Open, FileAccess.Read)
_Bmp_Subweit = CType(Bitmap.FromStream(_fs), Bitmap)
_totalPages = CInt(_Bmp_Subweit.GetFrameCount(FrameDimension.Page) - 1)
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
' Soll natürlich sofort angezeigt werden
PictureBox1.Image = _Bmp_Subweit
ElseIf _FileInfo.Extension = ".tiff" Or _FileInfo.Extension = ".Tiff" Or _FileInfo.Extension = ".tif" Or _FileInfo.Extension = ".Tif" Then
ElseIf _FileInfo.Extension = ".xps" Or _FileInfo.Extension = ".XPS" Then
Else
MessageBox.Show("Die übergebene Datei hat ein Format, dass nicht gelesen werden kann. Bitte in ein Lesbares Format umwandeln, empfohlen wird: TIF oder PDF. In der Datenbank werden die Daten als TIF abgelegt.", "STOP der Verarbeitung", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Exit Sub
End If
txb_faktor_X.Text = My.Settings.archiv_faktor_stempelberechnungX.ToString("N4")
txb_faktor_Y.Text = My.Settings.archiv_faktor_stempelberechnungY.ToString("N4")
lbl_Bildaufloesung.Text = "Höhe: " & PictureBox1.Image.PhysicalDimension.Height.ToString & " Breite: " & PictureBox1.Image.PhysicalDimension.Width.ToString
lbl_fenstergroesse.Text = "Höhe: " & PictureBox1.Height.ToString & " Breite: " & PictureBox1.Width.ToString
Dim _Verhaeltnis_H As Double = CDbl(PictureBox1.Image.PhysicalDimension.Height / PictureBox1.Height)
Dim _Verhaeltnis_W As Double = CDbl(PictureBox1.Image.PhysicalDimension.Width / PictureBox1.Width)
_nV = CInt((_Verhaeltnis_H + _Verhaeltnis_W) / 2)
lbl_BilderVerhaeltnis.Text = _Verhaeltnis_H.ToString("N4") & " / " & _Verhaeltnis_W.ToString("N4")
_nH = 297 / PictureBox1.Image.PhysicalDimension.Height
_nW = 210 / PictureBox1.Image.PhysicalDimension.Width
lbl_MmPixel.Text = "Höhe: " & _nH.ToString("N4") & " Breite: " & _nW.ToString("N4")
End Sub
Private Function PDFzuImage(ByVal document As PdfDocument) As Image() ' DAS FUNKTIONIERT NUN GUT !!!
Dim images As Image() = New Image(document.Pages.Count - 1) {}
For i As Integer = 0 To document.Pages.Count - 1
images(i) = document.SaveAsImage(i)
Next
lbl_DokSeitenGesamt.Text = document.Pages.Count.ToString
For Each img As Image In images
Using engine As TesseractEngine = New TesseractEngine(tessdataPath, My.Settings.system_start_posteingang_sprache, EngineMode.Default)
Using pix As Pix = PixConverter.ToPix(DirectCast(img, Bitmap)) ' Pix.LoadFromFile(TextBox1.Text)
Using page As Tesseract.Page = engine.Process(pix)
_TextAusOCT_TIFF = _TextAusOCT_TIFF + page.GetText()
End Using
End Using
End Using
Next
Return images
End Function
Private Sub MultiFrameTiff(ByVal images As Image(), ByVal outFile As String, ByVal compressEncoder As EncoderValue)
Dim enc As Encoder = Encoder.SaveFlag
Dim ep As EncoderParameters = New EncoderParameters(2)
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
ep.Param(1) = New EncoderParameter(Encoder.Compression, CLng(compressEncoder))
Dim pages As Image = images(0)
Dim frame As Integer = 0
Dim info As ImageCodecInfo = GetEncoderInfo("image/tiff")
For Each img As Image In images
If frame = 0 Then
pages = img
pages.Save(outFile, info, ep)
Else
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
pages.SaveAdd(img, ep)
End If
If frame = images.Length - 1 Then
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.Flush))
pages.SaveAdd(ep)
End If
frame += 1
Next
End Sub
Private Shared Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
Dim encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
If encoders IsNot Nothing Then
For i As Integer = 0 To encoders.Length - 1
If encoders(i).MimeType = mimeType Then
Return encoders(i)
End If
Next
End If
Return Nothing
End Function
#End Region
#Region "Poststempel"
Private nStartPos As Point
Private nDragPos As Point
Private _L_Pb1 As Point
Private _L_Pb2 As Point
Private _Sp_X As Integer
Private _SP_Y As Integer
Private Sub PictureBox2_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
nStartPos = PictureBox2.Location
nDragPos = PictureBox2.PointToScreen(New Point(e.X, e.Y))
_L_Pb1 = PictureBox1.Location
_L_Pb2 = PictureBox2.Location
End If
End Sub
Private Sub PictureBox2_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nCurPos As Point = PictureBox2.PointToScreen(New Point(e.X, e.Y))
PictureBox2.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, nStartPos.Y + nCurPos.Y - nDragPos.Y)
_L_Pb1 = PictureBox1.Location
_L_Pb2 = PictureBox2.Location
End If
End Sub
Private Sub PictureBox2_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseUp
_Sp_X = CInt((_L_Pb2.X - _L_Pb1.X) * 1.9701)
_SP_Y = CInt((_L_Pb2.Y - _L_Pb1.Y) * 1.9701)
End Sub
Private Sub DrawImage(x As Graphics)
Throw New NotImplementedException()
End Sub
#End Region
#Region "Sonstiges und Image convertieren für Datenbank"
Function getrandombystring(ByVal input As String, ByVal charamount As Integer) As String
Dim r As New Random
Dim strb As New System.Text.StringBuilder
Dim chararray() As Char = input.ToCharArray
For i As Integer = 1 To charamount
Dim ti As Integer = r.Next(0, chararray.Length)
strb.Append(chararray(ti))
Next
Return strb.ToString
End Function
Public Function imageToByteArray(ByVal imageIn As System.Drawing.Image) As Byte()
Dim ms As MemoryStream = New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Tiff)
Return ms.ToArray()
End Function
Public Function byteArrayToImage(ByVal byteArrayIn As Byte()) As Image
Dim ms As MemoryStream = New MemoryStream(byteArrayIn)
Dim returnImage As Image = Image.FromStream(ms)
Return returnImage
End Function
#End Region
#Region "Buttons"
Private Sub btn_abbruch_Click(sender As Object, e As EventArgs) Handles btn_abbruch.Click
Zwischenablage_Archiv.__PEverarbe = False
Me.Close()
End Sub
Private Sub btn_Ubernahme_Click(sender As Object, e As EventArgs) Handles btn_Ubernahme.Click
Zwischenablage_Archiv.__PEverarbe = True
If cb_TexterkennungDurchfuehren.Checked = False Then
_TextAusOCT_TIFF = Nothing
End If
Dim _g As Graphics = Graphics.FromImage(_Bmp_Subweit)
_g.DrawString("Dieses Dokument wurde durch den Sachbearbeiter: " & My.Settings.clm_benutzername & " am " & Date.Now.ToShortDateString & " archiviert.", New Font("Arial", 8, FontStyle.Bold), Brushes.Black, 25, 15)
If cb_DruckDokIdImBeleg.Checked = True Then
_g.DrawString("DOKUMENTEN-ID. " & _DIDimage.ToString, New Font("Arial", 8, FontStyle.Bold), Brushes.Black, 590, 10)
End If
If cb_PoststempelAufdrucken.Checked = True Then
Dim rec As Rectangle = New Rectangle(_Sp_X - 10, _SP_Y - 30, 140, 80)
_g.DrawRectangle(Pens.Blue, rec)
_g.DrawString("XXXXX", New Font("Arial", 8, FontStyle.Regular), Brushes.Blue, _Sp_X + 30, _SP_Y - 21)
_g.DrawString("POSTEINGANG", New Font("Arial", 12, FontStyle.Bold), Brushes.Blue, _Sp_X - 2, _SP_Y)
_g.DrawString(Date.Now.ToShortDateString, New Font("Arial", 12, FontStyle.Bold), Brushes.Red, _Sp_X + 16, _SP_Y + 24)
End If
PictureBox1.Image = _Bmp_Subweit
Dim count As Integer = _Bmp_Subweit.GetFrameCount(FrameDimension.Page)
MsgBox("Es werden zwei Seiten gespeichert: " & count.ToString)
Archiv_Dokumentenstam_BinardatenPDFTableAdapter.UpdateQuery_DokUpd_PE_nachDokID(imageToByteArray(_Bmp_Subweit), _TextAusOCT_TIFF, My.Settings.clm_benutzername, Date.Now, _DIDimage)
_g.Dispose()
Me.Close()
End Sub
Private Sub Btn_SeiteZurueck_Click(sender As Object, e As EventArgs) Handles Btn_SeiteZurueck.Click
If _currentPage > 0 Then
_currentPage -= 1
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox1.Refresh()
End If
End Sub
Private Sub Btn_SeiteWeiter_Click(sender As Object, e As EventArgs) Handles Btn_SeiteWeiter.Click
If _currentPage < _totalPages Then
_currentPage += 1
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox1.Refresh()
End If
End Sub
#End Region
End Class

Und so wird in anderer Form das Tiff angezeigt, mit Funktion vor und zurück...

Spoiler anzeigen

VB.NET-Quellcode

Private Sub dgv_Dokumente_MouseClick(sender As Object, e As MouseEventArgs) Handles dgv_Dokumente.MouseClick
If dgv_Dokumente.SelectedRows.Count <> 0 Then
Try
Dim _temppath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\CLM_TempFile\"
Dim _tempfile As String = "BU_" & getrandombystring("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", 7) & ".pdf"
_fullfilename = _temppath & _tempfile
Dim _FE As String = Archiv_Dokumentenstam_PDFTableAdapter.ScalarQuery_nachID_FileExtension(CInt(dgv_Dokumente.CurrentRow.Cells(0).Value)).ToString
If Directory.Exists(_temppath) Then
If _FE = ".PDF" Then
Dim _file() As Byte = Archiv_Dokumentenstam_PDFTableAdapter.ScalarQuery_nachID_PDFBinardaten(CInt(dgv_Dokumente.CurrentRow.Cells(0).Value))
TabControl_DateiAnzeiger.SelectedTab = TbPDF
If _file Is Nothing Then
WebBrowser1.Text = "Es ist kein PDF vorhanden, bitte prüfen und ggf. Administrator ansprechen!"
'MessageBox.Show("Es ist kein PDF vorhanden, bitte prüfen und ggf. Administrator ansprechen!", "INFO", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
Else
Dim K As Long = UBound(_file)
Dim fs As New FileStream(_fullfilename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(_file, 0, (K + 1))
fs.Close()
'Me.PdfViewer1.LoadFromFile(_fullfilename)
WebBrowser1.Navigate(_fullfilename)
' Bilddaten decodieren
' txb_BelegText1
End If
Else
[b]TabControl_DateiAnzeiger.SelectedTab = TbTiff
_Bmp_Subweit = byteArrayToImage(Archiv_Dokumentenstam_PDFTableAdapter.ScalarQuery_nachID_PDFBinardaten(CInt(dgv_Dokumente.CurrentRow.Cells(0).Value)))
_totalPages = CInt(_Bmp_Subweit.GetFrameCount(FrameDimension.Page) - 1)
TsLbl_TiffAnzahlSeiten.Text = _totalPages.ToString
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox_Binaerdaten_Tiff.Image = _Bmp_Subweit[/b]
End If
End If
Catch ex As System.Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End If
End Sub
Private Sub Btn_SeiteZurueck_Click(sender As Object, e As EventArgs) Handles Btn_SeiteZurueck.Click
If _currentPage > 0 Then
_currentPage -= 1
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox_Binaerdaten_Tiff.Refresh()
End If
End Sub
Private Sub Btn_SeiteWeiter_Click(sender As Object, e As EventArgs) Handles Btn_SeiteWeiter.Click
If _currentPage < _totalPages Then
_currentPage += 1
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox_Binaerdaten_Tiff.Refresh()
End If
End Sub
Public Function imageToByteArray(ByVal imageIn As System.Drawing.Image) As Byte()
Dim ms As MemoryStream = New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Gif)
Return ms.ToArray()
End Function
Public Function byteArrayToImage(ByVal byteArrayIn As Byte()) As Image
Dim ms As MemoryStream = New MemoryStream(byteArrayIn)
Dim returnImage As Image = Image.FromStream(ms)
Return returnImage
End Function
[/code]

EDIT:
Was ich noch hinzufügen möchte... in der Anzeige gibts den Passus

VB.NET-Quellcode

If _FE = ".PDF" Then

, weil in der DB noch PDFs auch gespeichert sind, die ich aber wenn alles funktioniert auch auf Tiff umschreibe und dann wird das mit ="PDF" und WebBroser1 etc. verschwinden.

-Franky- · 28. Juni 2024, 22:59

Hi. So wie ich Dich verstehe läuft soweit alles bis auf die Tatsache das wenn Du die MultiFrame-TIFF wieder aus der DB holst kein Count und somit keine einzelnen Bilder daraus aufgerufen werden können. Deinen Code kann ich mir erst in zwei Wochen so richtig am PC anschauen. Auf dem Handy ist das nicht so wirklich übersichtlich. Bei Datenbanken bin ich allerdings etwas raus. Deswegen kann ich Dir auch nicht sagen ob varbinary(MAX) hier der richtige Type ist. Ich war bisher der Meinung das man für Dateien in einer DB den Type BLOB verwendet. Eventuell kann @ErfinderDesRades da etwas mehr Licht ins Dunkle bringen.

michl75 · 29. Juni 2024, 15:58

-Franky- schrieb:

Hi. So wie ich Dich verstehe läuft soweit alles bis auf die Tatsache das wenn Du die MultiFrame-TIFF wieder aus der DB holst kein Count und somit keine einzelnen Bilder daraus aufgerufen werden können.

Habe mich damit nochmal auseinander gesetzt... also das gespeicherte Bild ist kein Multipage.
So lasse ich es wieder anzeigen und hab da ein "Save" eingesetzt, so dass zum testen eine Datei erstellt wird. Macht man die über Windows normal als Anzeige auf, kein Multipage ... keine 2...3.. Seite...

VB.NET-Quellcode

_Bmp_Subweit = byteArrayToImage(Archiv_Dokumentenstam_PDFTableAdapter.ScalarQuery_nachID_PDFBinardaten(CInt(dgv_Dokumente.CurrentRow.Cells(0).Value)))
_totalPages = CInt(_Bmp_Subweit.GetFrameCount(FrameDimension.Page) - 1)
[b]TsLbl_TiffAnzahlSeiten.Text = _totalPages.ToString[/b]
_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)
PictureBox_Binaerdaten_Tiff.Image = _Bmp_Subweit
[b]_Bmp_Subweit.Save("C:\Users\Testuser\Documents\CLM_TempFile\Test_Mist01.tiff")[/b]

Wie eben geschrieben diese Datei hat nur eine Seite.

Also denke ich, dass mein Fehler im Speichern liegt.

VB.NET-Quellcode

Archiv_Dokumentenstam_BinardatenPDFTableAdapter.UpdateQuery_DokUpd_PE_nachDokID(BmpToBytes_MemStream(_Bmp_Subweit), _TextAusOCT_TIFF, My.Settings.clm_benutzername, Date.Now, _DIDimage)
_g.Dispose()
Me.Close()
End Sub
Private Function BmpToBytes_MemStream(ByVal bmp As Bitmap) As Byte()
Dim ms As MemoryStream = New MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Tiff)
Dim bmpBytes As Byte() = ms.GetBuffer()
bmp.Dispose()
ms.Close()
Return bmpBytes
End Function

Wie du schon sagtest @-Franky- ... wahrscheinlich weil ja diese Seite aktiviert ist/war...

VB.NET-Quellcode

_Bmp_Subweit.SelectActiveFrame(FrameDimension.Page, _currentPage)

Jetzt habe ich mir das Bitmap.Save mal angesehen, aber z. B. ein "Save ALL" gibts nicht.
Also gehe ich mal davon aus, dass ich mit einer Schleife das ganze zu "irgenwas" machen muss und erst dann ab in die DB.

Liege ich da richtig?

Lg M

michl75 · 29. Juni 2024, 16:37

RodFromGermany schrieb:

@michl75 Setze einen Haltepunkt auf die Zeile und sieh Dir den Inhalt der Variablen an.
Irgend etwas ist da wohl Nothing.

Hallo @RodFromGermany
deinen Beitrag habe ich ganz übersehen... tut mir leid! War keine Absicht...

Tatsächlich war Nothing in der Fehlerausgabe vorhanden, dies ist aber mittlerweile "behoben" ...
Soweit läuft alles durch, speichert usw. und kann wieder auslesen.
Jedoch leider nur immer mit einer Seite, statt mehrerren... so wie im Beitrag eins vorher geschrieben.

-Franky- · 30. Juni 2024, 16:27

Hi. Da ich heute mal wieder vor einem PC sitze, zeige ich Dir wie ich mir das vorstellen könnte. Ich habe das relativ einfach gehalten. Aber zuerst etwas Code (zwei Button, eine PictureBox und eine TrackBar auf der Form). In der Zip ist eine MultiFrame-TIFF zum testen.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.ComponentModel
Imports System.Drawing.Imaging
Public Class Form1
Private Enum TiffCompression As Long
None = EncoderValue.CompressionNone
RLE = EncoderValue.CompressionRle
LZW = EncoderValue.CompressionLZW
End Enum
Private Images As List(Of Image)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DisposeImages()
Images = LoadTiff("D:\test1.tif")
If Images IsNot Nothing Then
TrackBar1.Maximum = Images.Count - 1
PictureBox1.Image = Images(TrackBar1.Value)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
SaveAsTiff("d:\test2.tif", Images)
End Sub
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
DisposeImages()
End Sub
Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged
If Images IsNot Nothing Then
PictureBox1.Image = Images(TrackBar1.Value)
End If
End Sub
Private Sub DisposeImages()
If Images IsNot Nothing Then
Do Until Images.Count = 0
Images(0).Dispose()
Images.RemoveAt(0)
Loop
Images = Nothing
End If
End Sub
Private Function SaveAsTiff(FileName As String,
Images As List(Of Image),
Optional Compression As TiffCompression = TiffCompression.LZW) As Boolean
Using FileStream As FileStream = File.Create(FileName)
Dim Encoder As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().First(Function(x) x.MimeType = "image/tiff")
Using EncoderParams As New EncoderParameters(2)
EncoderParams.Param(1) = New EncoderParameter(Imaging.Encoder.Compression, Compression)
For Item As Integer = 0 To Images.Count - 1
If Item = 0 Then
EncoderParams.Param(0) = New EncoderParameter(Imaging.Encoder.SaveFlag, EncoderValue.MultiFrame)
Images(0).Save(FileStream, Encoder, EncoderParams)
EncoderParams.Param(0).Dispose()
Else
EncoderParams.Param(0) = New EncoderParameter(Imaging.Encoder.SaveFlag, EncoderValue.FrameDimensionPage)
Images(0).SaveAdd(Images(Item), EncoderParams)
EncoderParams.Param(0).Dispose()
End If
Next
EncoderParams.Param(0) = New EncoderParameter(Imaging.Encoder.SaveFlag, EncoderValue.Flush)
Images(0).SaveAdd(EncoderParams)
For Each Param In EncoderParams.Param
Param.Dispose()
Next
End Using
End Using
Return File.Exists(FileName)
End Function
Private Function LoadTiff(FileName As String) As List(Of Image)
Dim Ret As New List(Of Image)
Using Img As Image = Image.FromFile(FileName)
Dim Pages As Integer = Img.GetFrameCount(FrameDimension.Page)
For Page As Integer = 0 To Pages - 1
Img.SelectActiveFrame(FrameDimension.Page, Page)
Using MemStream As New MemoryStream
Img.Save(MemStream, ImageFormat.Png)
Ret.Add(Image.FromStream(MemStream))
End Using
Next
End Using
Return Ret
End Function
End Class

Button1 lädt die test1.tif. Über die TrackBar kannst Du zwischen den Bildern wechseln. Button2 speichert dann wieder alles zu einer MultiFrame-TIFF. Irgendwo dazwischen kommt der Stempel drauf. Ich habe hier anstelle eines ImageArrays eine List(Of Image) verwendet. Es ist auch kein Problem ein Array in eine List zu konvertieren und umgekehrt. Wann Du nun den Stempel aufbringst ist egal. Wichtig ist ja nur das alle Bilder der TIFF wieder in eine List (oder ImageArray) decodiert werden müssen um diese später wieder zu einer TIFF zu codieren. Anstelle die List (oder das ImageArray) in eine Datei zu schreiben, kannst Du natürlich auch das ganze in einen MemoryStream schreiben, von dem man dann, wenn benötigt, ein ByteArray erstellen kann. Jenachdem was Du benötigst um die TIFF dann in die DB zu schreiben. Beim lesen aus der DB, kommt es drauf an wie Du die Daten erhältst. zB. DB -> ByteArray -> MemoryStream -> Image (TIFF) -> List(Of Image) (oder ImageArray) / Seite bearbeiten wo der Stempel drauf soll / List(Of Image) (oder ImageArray) -> MemoryStream -> ByteArray -> DB Letzteres ist nur eine grobe Darstellung wie es laufen könnte.

michl75 · 30. Juni 2024, 16:42

Wow ... einfach mal auf die schnelle so einen Code hingehauen...

Wir hatten aber immerhin heute schon die gleiche Idee .. List(Of Image)... ich wollte die nur direkt in die DB Schreiben, hat nicht geklappt darum anderer Thread.

Aber ich werde deins nachher testen, muss jetzt erst mal kochen ... Kinder haben hunger

EDIT : Und vielen herzlichen Dank für die Unterstützung !! Wirklich vielen Dank!

michl75 · 30. Juni 2024, 21:21

@-Franky-

Ich habe es erfolgreich implementieren können !! Läuft einfach perfekt und ich habe es direkt noch erweitert Basierend auf dem anderen Thread.... Die Tiff's werden in ein Verzeichnis mit kryptischen gespeichert usw.

Aber das TIFF mit Blättern und Stempel und eindrucke auf die Seiten, einfach perfekt...

Ich möchte mich nochmal für deine Hilfe herzlich bedanken !!! Vielen Dank!

Einfach klasse und ich bin froh... darauf wird nun alles basieren und wir haben bald was vernünftiges

Wünsch einen schönen Urlaub weiterhin ......

Vg M

-Franky- · 30. Juni 2024, 21:25

michl75 schrieb:

einfach mal auf die schnelle

Asche auf mein Haupt. Ich habe an einigen Stellen eine Überprüfung vergessen ob die List <> Nothing ist und der List.Count > 0 ist.

Tiff-Datei Multipage in SQL ablegen und wieder holen - als Multipage

Tiff-Datei Multipage in SQL ablegen und wieder holen - als Multipage

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

-Franky- schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

michl75 schrieb:

-Franky- schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

-Franky- schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

michl75 schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben