5

複数の画像から単一のPDFファイルを作成する必要があります。たとえば、12枚の画像がある場合、pdfは3ページを生成し、1ページに4枚の画像が2枚続けて表示されます。

それで、画像からpdfを生成するために使用できるdll、サンプルはありますか?ここに画像の説明を入力してください

4

3 に答える 3

5

これをサポートするライブラリは複数あります。

  1. iTextSharp-画像チュートリアルの操作:
  2. pdfSharp-画像チュートリアルの操作
  3. PDFピエロ
于 2013-02-04T12:42:56.250 に答える
3

おかげで、私はpdfの1ページに6つの画像を作成するためにテーブルを使用しました。

Public Function CreatePDF(images As System.Collections.Generic.List(Of Byte())) As String
        Dim PDFGeneratePath = Server.MapPath("../images/pdfimages/")
        Dim FileName = "attachmentpdf-" & DateTime.Now.Ticks & ".pdf"

        If images.Count >= 1 Then
            Dim document As New Document(PageSize.LETTER)
            Try
                ' Create pdfimages directory in images folder.
                If (Not Directory.Exists(PDFGeneratePath)) Then
                    Directory.CreateDirectory(PDFGeneratePath)
                End If

                ' we create a writer that listens to the document
                ' and directs a PDF-stream to a file
                PdfWriter.GetInstance(document, New FileStream(PDFGeneratePath & FileName, FileMode.Create))

                ' opens up the document
                document.Open()
                ' Add metadata to the document.  This information is visible when viewing the

                ' Set images in table
                Dim imageTable As New PdfPTable(2)
                imageTable.DefaultCell.Border = Rectangle.NO_BORDER
                imageTable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER

                For ImageIndex As Integer = 0 To images.Count - 1
                    If (images(ImageIndex) IsNot Nothing) AndAlso (images(ImageIndex).Length > 0) Then
                        Dim pic As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(SRS.Utility.Utils.ByteArrayToImage(images(ImageIndex)), System.Drawing.Imaging.ImageFormat.Jpeg)

                        ' Setting image resolution
                        If pic.Height > pic.Width Then
                            Dim percentage As Single = 0.0F
                            percentage = 400 / pic.Height
                            pic.ScalePercent(percentage * 100)
                        Else
                            Dim percentage As Single = 0.0F
                            percentage = 240 / pic.Width
                            pic.ScalePercent(percentage * 100)
                        End If

                        pic.Border = iTextSharp.text.Rectangle.BOX
                        pic.BorderColor = iTextSharp.text.BaseColor.BLACK
                        pic.BorderWidth = 3.0F

                        imageTable.AddCell(pic)
                    End If
                    If ((ImageIndex + 1) Mod 6 = 0) Then
                        document.Add(imageTable)
                        document.NewPage()

                        imageTable = New PdfPTable(2)
                        imageTable.DefaultCell.Border = Rectangle.NO_BORDER
                        imageTable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
                    End If
                    If (ImageIndex = (images.Count - 1)) Then
                        imageTable.AddCell(String.Empty)
                        document.Add(imageTable)
                        document.NewPage()
                    End If
                Next
            Catch ex As Exception
                Throw ex
            Finally
                ' Close the document object
                ' Clean up
                document.Close()
                document = Nothing
            End Try
        End If

        Return PDFGeneratePath & FileName
    End Function
于 2013-02-05T11:19:01.810 に答える
2

「iTextinAction」という本を見てください。これは、多かれ少なかれ、iTextPDFライブラリの.NETバージョンであるiTextSharpについても説明しています。つまり、作成する必要のあるC#は、Javaコードサンプルとほぼ同じです。

サンプルはhttp://itextpdf.com/book/examples.phpからダウンロードできます。特に興味深い例(Javaのコード)は、画像を追加する方法のサンプルです。対応するC#の例は、SourceForgeにあります。

幸運を!

于 2013-02-04T12:32:36.027 に答える