ABCPDF 不呈現鏈接

Question

我正在使用 ABCPDF 庫的 AddImageUrl 函數並讓頁面以 PDF 格式呈現。 但是我遇到了一個問題，鏈接（標簽）沒有在 PDF 鏈接中呈現，而是作為沒有鏈接功能的普通文本呈現。 我已經檢查了 HTML 頁面以確保頁面上存在鏈接。

Answer 1

我想通了。 希望這會幫助遇到此問題的其他人。 在生成 pdf 以使鏈接處於活動狀態之前，您需要包含以下幾行。

theDoc.HtmlOptions.AddLinks = true;

Answer 2

我們正在使用 ABCPDF.Net 版本 6 從 HTML 創建 PDF 文件。 但是，除了在 HTML 中顯示為 URL 的鏈接之外，即使 HtmlOptions.AddLinks 設置為 true，這些鏈接也是無效的。 事實上，當它設置為 true 時，鏈接呈現為棕色背景，當它設置為 false 時不存在。 這是我們使用 vb.net 創建 PDF 的代碼

     Dim theID As Object
        Dim pageRect As String
        Dim Header As String = Nothing
        If SubBank.Length <> 0 Then
            If HttpContext.Current.Session("BankType") IsNot Nothing And (HttpContext.Current.Session("BankType") = 1 Or HttpContext.Current.Session("BankType") = 4) Then
                Header = "<br/><br/> <br/><br/><div class='bankname1' align='center'>" & SubBank & " </div><div style='float:right'><img src='" & getBaseUrl() & "/Images_Modern/SGPSMainLogo.png' /> </div>"
            Else
                Header = "<br/><br/> <br/><br/><div class='bankname1' align='center'>" & SubBank & " </div><div style='float:right'><img src='" & getBaseUrl() & "/Images_Modern/bankers_gps_logo_pdf.gif' /> </div>"
            End If

            If PeerGroup.Length <> 0 AndAlso HttpContext.Current.Session("Product_Id") = 1 Then
                Header &= "<div class='bankname2' align='center'>Vs&nbsp;&nbsp;&nbsp;" & PeerGroup & " </div>"
            End If
            strContent = Header & strContent
        End If

        Dim objAbc As New WebSupergoo.ABCpdf6.Doc
        objAbc.Rect.Inset(15, 15)
        CreateErrorText(Header)
        Dim ObjSet As New PDFSettings
        ObjSet.objAbc = objAbc
        ObjSet.OriWidth = objAbc.MediaBox.Width
        ObjSet.OriHeight = objAbc.MediaBox.Height

        objAbc.HtmlOptions.AddLinks = True
        objAbc.HtmlOptions.TargetLinks = True

        'objAbc.HtmlOptions.MaxAtomicImageSize = 100
        'objAbc.HtmlOptions.ImageQuality = 101
        ObjSet.Rotate(Orientation)
        'theID = objAbc.AddImageHtml(strContent, True, 0, False)
        'objAbc.SetInfo(theID, "/Rotate", "90")
        theID = objAbc.AddImageHtml(strContent)

        objAbc.Rendering.DotsPerInch = 96S
        pageRect = objAbc.Rect.String

        Do
            'theDoc.FrameRect
            If Not objAbc.Chainable(theID) Then Exit Do
            objAbc.Page = objAbc.AddPage()
            theID = objAbc.AddImageToChain(theID)

        Loop

        Dim i
        For i = 1 To objAbc.PageCount
            objAbc.PageNumber = i
            objAbc.Flatten()
        Next
        'added By yuvraj For NS Headder :17/04/2012
        If (strContent.IndexOf("NSHEADSTART") > -1) Then
            objAbc.HPos = 0.5
            objAbc.VPos = 0.5
            '  objAbc.Color.String = "0 255 0"
            objAbc.FontSize = 16
            For i = 1 To objAbc.PageCount
                objAbc.PageNumber = i
                objAbc.Rect.Pin = 0
                objAbc.Rect.String = "20 20 400 400"
                objAbc.HPos = 0.5
                objAbc.AddHtml(getHeadText(strContent))
                objAbc.Rect.Move(200, 500)
                objAbc.Rect.String = pageRect
                objAbc.HPos = 0
            Next

        End If
        'theDoc.Rect.Move  0, -50
        objAbc.HPos = 0
        objAbc.Save(PDFPath)
        objAbc.Clear()
        'Response.Redirect(".\PDF\manoj12.pdf")
        objAbc = Nothing
        theID = Nothinge