iTextSharp插入图像GetFieldPosition

Question

我正在使用VB.NET和iTextSharp库尝试将图像以PDF格式放置在现有字段上。

我正在尝试确定野外位置，以便我可以将图像绝对放置在此处，但是它对我失败了，我不知道为什么。

我的代码是：

        Dim sig1file As String = HttpContext.Current.Server.MapPath("../files/userfiles/forms/" & tcode & "/" & tcode & "_pap_signature1.png")
        Dim sig1img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(sig1file)

        Dim sig1positon() As Single = PDFFields.GetFieldPositions("payer1_signature1")
        Dim sig1rect As New Rectangle(sig1positon(1), sig1positon(2), sig1positon(3), sig1positon(4))
        sig1img.ScaleToFit(sig1rect.Width, sig1rect.Height)

        sig1img.SetAbsolutePosition(sig1positon(1) + (sig1rect.Width() - sig1img.ScaledWidth()) / 2, sig1positon(2) + (sig1rect.Height() - sig1img.ScaledHeight()) / 2)
        Dim imagewriter As iTextSharp.text.pdf.PdfContentByte = PDFStamper.GetUnderContent(1)
        imagewriter.AddImage(sig1img)

我收到以下错误：

App_Web_y4xg45gn.dll中发生类型为'System.InvalidCastException'的异常，但未在用户代码中处理

附加信息：无法将类型为“ System.Collections.Generic.List`1 [iTextSharp.text.pdf.AcroFields + FieldPosition]”的对象转换为类型为“ System.Single []”的对象。

有人可以帮忙吗？

谢谢

Answer 1

我实际上解决了自己的问题。

解决方案是这个

        Dim sig1file As String = HttpContext.Current.Server.MapPath("../files/userfiles/forms/" & tcode & "/" & tcode & "_pap_signature1.png")
        Dim sig1img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(sig1file)

        Dim sig1position As System.Collections.Generic.IList(Of AcroFields.FieldPosition) = PDFFields.GetFieldPositions("payer1_signature1")
        Dim test As AcroFields.FieldPosition = sig1position(0)
        Dim left, right, top, bottom As Single
        left = test.position.Left
        right = test.position.Right
        top = test.position.Top
        bottom = test.position.Bottom