Konvertierung von mehreren Bildern in pdf mit pdfsharp
Ich versuche zu konvertieren mehrerer Bilder in das pdf-Dokument mit pdfsharp Bibliothek.
Ich bin in der Lage zu konvertieren einzelne Bild und es funktioniert ziemlich gut.
Und während der Konvertierung bulk images
zu single pdf
ich bin vor problem, dass es dauert, all die Bilder und konvertiert Sie aber nach der Bekehrung, Wenn ich überprüfen, es zeigt mir nur das Letzte Bild, da es nicht Anhängen das vorhandene Bild und es überschreibt das Vorherige Bild.
Also wie kann ich das beheben?
Jede Hilfe wird geschätzt als ich bin ersten mal die Arbeit mit pdf-Bibliothek und zeigen Sie mir aus, Wenn ich mache keinen Fehler.Und ich werde gald mehr darüber wissen und ich habe nicht das Gefühl, Wenn man zeigte mir den Fehler, den ich getan habe.
Hier ist mein code:
Private Sub btnAddFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddFolder.Click
If Me.FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim f As New DirectoryInfo(Me.FolderBrowserDialog1.SelectedPath)
Dim fso As New System.Object
For Each file As FileInfo In f.GetFiles
Select Case file.Extension.ToLower
Case ".jpg", ".bmp", ".gif", ".png"
Me.ThumbControl1.BackgroundImage = Nothing
Me.CheckedListBox1.Items.Add(file.FullName, CheckState.Checked)
Me.ThumbControl1.AddThumbnail(file.FullName)
Me.ThumbControl1.BackgroundImage = Nothing
Me.CheckedListBox1.SelectedIndex = 0
End Select
Next
End If
End Sub
Hintergrund Arbeiter:
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork
For pix As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
Try
Dim source As String = CheckedListBox1.Items(pix).ToString()
Dim destinaton As String = (TryCast(e.Argument, String()))(1)
Dim doc As New PdfDocument()
doc.Pages.Add(New PdfPage())
Dim xgr As XGraphics = XGraphics.FromPdfPage(doc.Pages(0))
Dim img As XImage = XImage.FromFile(source)
xgr.DrawImage(img, 0, 0)
doc.Save(destinaton)
doc.Close()
success = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Next
End Sub
Schaltfläche "konvertieren":
Private Sub btnConvert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConvert.Click
bw.RunWorkerAsync(New String(1) {srcFile, destFile})
End sub
Speichern Von Pdf:
Private Sub btnSelectDest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSelectDest.Click
sfdDestFile.Filter = "PDF Files(*.pdf)|*.pdf"
If sfdDestFile.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then
Return
End If
destFile = sfdDestFile.FileName
End Sub
InformationsquelleAutor coder | 2011-12-12
Du musst angemeldet sein, um einen Kommentar abzugeben.
Das problem ist, dass Sie beim erstellen eines neuen PDF-Dokuments bei jedem Durchlauf durch die Schleife. Sie müssen, verschieben Sie diese außerhalb der Schleife. Auch Sie verweisen auf Seite 0, Seite nicht
pix
. Hier ist, wie ich es beheben:InformationsquelleAutor competent_tech