gpt4 book ai didi

.net - iTextSharp 中的 Unicode 符号

转载 作者:行者123 更新时间:2023-12-01 11:57:56 27 4
gpt4 key购买 nike

我试图在我的 PDF 文件中使用 Unicode 符号 iTextSharp .

Dim base As BaseFont = BaseFont.CreateFont("C:\\WINDOWS\\Fonts\\WINGDING.TTF", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)

Dim wd As Font = New Font(base, 12, Font.NORMAL, BaseColor.BLACK)
phrase = New Phrase("q", wd)

即翼鼎中的Q键。但在 PDF 文件中它不起作用。它只是在应该是 Char 的地方不打印任何内容。

哪里出错了?

最佳答案

我刚刚执行了以下操作,它完全按照预期工作。 Wingdings 字体显示在两个单词之间,显示为带有右下角阴影的方框。唯一的问题是我实际上无法让 Wingdings 字体真正嵌入自身,我相信它是一个 iTextSharp 隐式规则,因为它假定无处不在。我尝试使用 WINGDNG2.TTF 并正确嵌入。

您可能没有正确添加短语吗?或者您是否在没有 Wingdings 的机器上打开它?

    ''//Create a new document
Dim Doc As New iTextSharp.text.Document(PageSize.LETTER, 20, 20, 20, 20)
''//Store the document on the desktop
Dim writer = PdfWriter.GetInstance(Doc, New FileStream(Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Output.pdf"), FileMode.Create, FileAccess.Write, FileShare.Read))

''//Open the PDF for writing
Doc.Open()

''//Insert a page
Doc.NewPage()

''//Add a regular text block using the default font
Dim Phrase = New Phrase("Hello")
Doc.Add(Phrase)


''//Create our base font
Dim base As BaseFont = BaseFont.CreateFont("C:\Windows\Fonts\wingding.ttf", BaseFont.CP1252, BaseFont.EMBEDDED)
''//Create our usable font
Dim wd As Font = New Font(base, 12, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)

''//Add a text block using Wingdings
Phrase = New Phrase("q", wd)
Doc.Add(Phrase)

''//Add a trailing text block using the default font again
Phrase = New Phrase("Bye")
Doc.Add(Phrase)

''//Close the PDF
Doc.Close()

关于.net - iTextSharp 中的 Unicode 符号,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5042988/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com