Как вставить изображение в существующий файл PDF или DOCX? - PullRequest
0 голосов
/ 24 января 2019

Мой шаблон станет понятным, если я вставлю картинкуbox1.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        Dim pdfDoc As New Document
        Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("C:\Users\PC\Desktop\CERTIFICATION.PDF", FileMode.Open))
        pdfDoc.Open()
        dbpic()
        Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(PictureBox1.Image, System.Drawing.Imaging.ImageFormat.Jpeg)
        img.ScalePercent(50.0F)
        img.ScaleToFit(100.0F, 100.0F)
        pdfDoc.Add(img)
        pdfDoc.Close()
        AxAcroPDF1.src = ("C:\Users\PC\Desktop\CERTIFICATION.PDF")
    Catch ex As Exception
    End Try
End Sub
Public Sub dbpic()
    'Dim konek As New MySqlConnection("server = 192.168.1.1; user id = capstone; password = server; database = db_bisadms")
    Dim konek As New MySqlConnection("server = localhost; user id = root ; password =  ; database = db_bisadms")
    Dim command2 As New MySqlCommand("SELECT profile FROM images WHERE barcode = @iid", konek)
    command2.Parameters.Add("@iid", MySqlDbType.VarChar).Value = TextBox1.Text
    Dim adapter2 As New MySqlDataAdapter(command2)
    Dim table2 As New DataTable()
    Try
        konek.Open()
        adapter2.Fill(table2)
        Dim imgByte() As Byte

        If table2.Rows.Count = 1 Then
            imgByte = table2(0)(0)
            Dim ms As New MemoryStream(imgByte)
            PictureBox1.Image = FromStream(ms)
        End If
        konek.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

PictureBox1.Image отправить в PDF или Word документ.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...