Hyperlink ABCPDF不呈现链接
我正在使用ABCPDF库的AddImageUrl函数，并使页面以PDF格式呈现。但是我遇到了一个问题，链接（a标签）没有在PDF链接中呈现，而是作为没有链接功能的普通文本呈现。我已经检查了HTML页面，以确保页面上存在链接。我发现了这一点。希望这能帮助其他有这个问题的人。在生成pdf之前，您需要包含以下行以激活链接Hyperlink ABCPDF不呈现链接,hyperlink,abcpdf,Hyperlink,Abcpdf,我正在使用ABCPDF库的AddImageUrl函数，并使页面以PDF格式呈现。但是我遇到了一个问题，链接（a标签）没有在PDF链接中呈现，而是作为没有链接功能的普通文本呈现。我已经检查了HTML页面，以确保页面上存在链接。我发现了这一点。希望这能帮助其他有这个问题的人。在生成pdf之前，您需要包含以下行以激活链接 theDoc.HtmlOptions.AddLinks=true 我们正在使用ABCPDF.Net版本6从HTML创建PDF文件。但是，除了那些在HTML中显示为URL的链接之外，这
theDoc.HtmlOptions.AddLinks=true 我们正在使用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 " & 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
Dim theID作为对象
Dim pageRect作为字符串
将标题设置为字符串=无
如果子库长度为0，则
如果HttpContext.Current.Session（“BankType”）不是空且（HttpContext.Current.Session（“BankType”）=1或HttpContext.Current.Session（“BankType”）=4），则
Header=“
”和子库
其他的
Header=“
”和子库
如果结束
如果PeerGroup.Length为0，HttpContext.Current.Session（“Product_Id”）也为1，那么
标题&=“Vs”&对等组&“
如果结束
strContent=标题和strContent
如果结束
Dim objAbc作为新的WebSupergoo.ABCpdf6.Doc
对象直接插入（15，15）
CreateErrorText（标题）
Dim ObjSet作为新的PDF设置
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
对象集旋转（方向）
'theID=objAbc.AddImageHtml（strContent，True，0，False）
'objAbc.SetInfo（theID，“/Rotate”，“90”）
theID=objAbc.AddImageHtml（strContent）
objAbc.Rendering.DotsPerInch=96S
pageRect=objAbc.Rect.String
做
'theDoc.FrameRect
如果不是objAbc.Chainable（theID），则退出Do
objAbc.Page=objAbc.AddPage（）
theID=objAbc.AddImageToChain（theID）
环
昏暗的我
对于i=1到objAbc.PageCount
objAbc.PageNumber=i
objAbc.Flatten（）
下一个
由yuvraj为NS Header添加：17/04/2012
如果（strContent.IndexOf（“NSHEADSTART”）>-1），则
objAbc.HPos=0.5
objAbc.VPos=0.5
'objAbc.Color.String=“0 255 0”
objAbc.FontSize=16
对于i=1到objAbc.PageCount
objAbc.PageNumber=i
objAbc.Rect.Pin=0
objAbc.Rect.String=“20 20 400”
objAbc.HPos=0.5
objAbc.AddHtml（getHeadText（strContent））
对象直接移动（200500）
objAbc.Rect.String=pageRect
objAbc.HPos=0
下一个
如果结束
'doc.Rect.Move 0，-50
objAbc.HPos=0
objAbc.Save（PDFPath）
objAbc.Clear（）
'Response.Redirect（“.\PDF\manoj12.PDF”）
objAbc=无
theID=什么都没有