ToB企服应用市场:ToB评测及商务社交产业平台

标题: C#/VB.NET 创建PDF/UA文件 [打印本页]
作者: 圆咕噜咕噜    时间: 2022-9-16 17:22
标题: C#/VB.NET 创建PDF/UA文件
1.什么是PDF/UA文件

PDF/UA，即Universally Accessible PDF，该格式的PDF文件是于2012年8月以ISO标准14289-1发布的、具有普遍可访问的PDF文档标准。为带标签的PDF文档（Tagged PDF Document）和表单的开发人员和作者设定了明确的规则。（PDF/UA-1是作为PDF/UA标准的第一部分，PDF/UA-2作为PDF/UA标准的第二部分）[1]2.文件格式要求

PDF/UA在其基础上有着明确的要求，即该标准都是基于PDF标签，所有PDF/UA文档都必须以PDF标签来正确标记，并且，要求标签在语义上适当，并按逻辑顺序排列。[1]3.如何创建PDF/UA文件

PDF/UA文件作为PDF文件的一种标准格式，要创建该标准的的PDF文档，可使用调用PDF API的方法来创建。下面，是以Spire.PDF for .NET来创建的方法。注：可在Visual Studio 中通过NuGet搜索“Spire.PDF”安装dll到程序中；或者下载包（hotfix版本）到本地，手动添加本地路径下的Spire.Pdf.dll文件到程序。C#
  1. using Spire.Pdf;
  2. using Spire.Pdf.Graphics;
  3. using Spire.Pdf.Interchange.TaggedPdf;
  4. using System.Drawing;
  5. namespace CreatePDFUAfile
  6. {
  7. class Program
  8.     {
  9. static void Main(string[] args)
  10.         {
  11.             //创建PdfDocument类的对象
  12.             PdfDocument doc = new PdfDocument();
  14.              //添加一页
  15.             doc.Pages.Add();
  17.              //设置tab order
  18.             doc.Pages[0].SetTabOrder(TabOrder.Structure);
  20.              //创建PdfTaggedContent类的对象
  21.             PdfTaggedContent taggedContent = new PdfTaggedContent(doc);
  22.             taggedContent.SetLanguage("en-US");
  23.             taggedContent.SetTitle("test");
  25.              //设置PDF/UA1验证
  26.             taggedContent.SetPdfUA1Identification();
  28.              //创建字体、画刷
  29.             PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Times New Roman", 10), true);
  30.             PdfSolidBrush brush = new PdfSolidBrush(Color.Black);
  32.              //添加要素
  33.             PdfStructureElement article = taggedContent.StructureTreeRoot.AppendChildElement(PdfStandardStructTypes.Document);
  34.             PdfStructureElement paragraph1 = article.AppendChildElement(PdfStandardStructTypes.Paragraph);
  35.             PdfStructureElement span1 = paragraph1.AppendChildElement(PdfStandardStructTypes.Span);
  36.             span1.BeginMarkedContent(doc.Pages[0]);
  37.             PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Justify);
  38.             doc.Pages[0].Canvas.DrawString("PDF/UA was published as ISO Standard 14289-1 in August 2012" +
  39. " and is by far the first complete definition " +
  40. "of a set of requirements for universally accessible PDF documents.",
  41.                font, brush, new Rectangle(40, 80, 450, 80), format);
  42.             span1.EndMarkedContent(doc.Pages[0]);
  43.             PdfStructureElement paragraph2 = article.AppendChildElement(PdfStandardStructTypes.Paragraph);
  44.             paragraph2.BeginMarkedContent(doc.Pages[0]);
  45.             doc.Pages[0].Canvas.DrawString("The PDF/UA has some definite requirements at its base that act as the essence of this standard.",
  46.                font, brush, new Rectangle(40, 120, 450, 60), format);
  47.             paragraph2.EndMarkedContent(doc.Pages[0]);
  48.             PdfStructureElement figure1 = article.AppendChildElement(PdfStandardStructTypes.Figure);
  49.              //Set Alternate text
  50.             figure1.Alt = "replacement text1";
  51.             figure1.BeginMarkedContent(doc.Pages[0], null);
  52.             PdfImage image = PdfImage.FromFile(@"logo.jpg");
  53.             doc.Pages[0].Canvas.DrawImage(image, new PointF(40, 200), new SizeF(100, 100));
  54.             figure1.EndMarkedContent(doc.Pages[0]);
  55.             PdfStructureElement figure2 = article.AppendChildElement(PdfStandardStructTypes.Figure);
  56.              //Set Alternate text
  57.             figure2.Alt = "replacement text2";
  58.             figure2.BeginMarkedContent(doc.Pages[0], null);
  59.             doc.Pages[0].Canvas.DrawRectangle(PdfPens.Black, new Rectangle(300, 200, 100, 100));
  60.             figure2.EndMarkedContent(doc.Pages[0]);
  62.              //保存文档
  63.             doc.SaveToFile("CreatePDFUAFile_result.pdf");
  64.             System.Diagnostics.Process.Start("CreatePDFUAFile_result.pdf");
  65.         }
  66.     }
  67. }
复制代码
VB.NET
  1. Imports Spire.Pdf
  2. Imports Spire.Pdf.Graphics
  3. Imports Spire.Pdf.Interchange.TaggedPdf
  4. Imports System.Drawing
  6. Namespace CreatePDFUAfile
  7.     Class Program
  8.         Private Shared Sub Main(args As String())
  9.             '创建PdfDocument类的对象
  10.             Dim doc As New PdfDocument()
  12.             '添加一页
  13.             doc.Pages.Add()
  15.             '设置tab order
  16.             doc.Pages(0).SetTabOrder(TabOrder.[Structure])
  18.             '创建PdfTaggedContent类的对象
  19.             Dim taggedContent As New PdfTaggedContent(doc)
  20.             taggedContent.SetLanguage("en-US")
  21.             taggedContent.SetTitle("test")
  23.             '设置PDF/UA1验证
  24.             taggedContent.SetPdfUA1Identification()
  26.             '创建字体、画刷
  27.             Dim font As New PdfTrueTypeFont(New Font("Times New Roman", 10), True)
  28.             Dim brush As New PdfSolidBrush(Color.Black)
  30.             '添加要素
  31.             Dim article As PdfStructureElement = taggedContent.StructureTreeRoot.AppendChildElement(PdfStandardStructTypes.Document)
  32.             Dim paragraph1 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph)
  33.             Dim span1 As PdfStructureElement = paragraph1.AppendChildElement(PdfStandardStructTypes.Span)
  34.             span1.BeginMarkedContent(doc.Pages(0))
  36.             Dim format As New PdfStringFormat(PdfTextAlignment.Justify)
  37.             doc.Pages(0).Canvas.DrawString("PDF/UA was published as ISO Standard 14289-1 in August 2012" + " and is by far the first complete definition " + "of a set of requirements for universally accessible PDF documents.", font, brush, New Rectangle(40, 80, 450, 80), format)
  38.             span1.EndMarkedContent(doc.Pages(0))
  40.             Dim paragraph2 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph)
  41.             paragraph2.BeginMarkedContent(doc.Pages(0))
  42.             doc.Pages(0).Canvas.DrawString("The PDF/UA has some definite requirements at its base that act as the essence of this standard.", font, brush, New Rectangle(40, 120, 450, 60), format)
  43.             paragraph2.EndMarkedContent(doc.Pages(0))
  45.             Dim figure1 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Figure)
  46.             'Set Alternate text
  47.             figure1.Alt = "replacement text1"
  48.             figure1.BeginMarkedContent(doc.Pages(0), Nothing)
  49.             Dim image As PdfImage = PdfImage.FromFile("logo.jpg")
  50.             doc.Pages(0).Canvas.DrawImage(image, New PointF(40, 200), New SizeF(100, 100))
  51.             figure1.EndMarkedContent(doc.Pages(0))
  53.             Dim figure2 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Figure)
  54.             'Set Alternate text
  55.             figure2.Alt = "replacement text2"
  56.             figure2.BeginMarkedContent(doc.Pages(0), Nothing)
  57.             doc.Pages(0).Canvas.DrawRectangle(PdfPens.Black, New Rectangle(300, 200, 100, 100))
  58.             figure2.EndMarkedContent(doc.Pages(0))
  60.             '保存文档
  61.             doc.SaveToFile("CreatePDFUAFile_result.pdf")
  62.             System.Diagnostics.Process.Start("CreatePDFUAFile_result.pdf")
  63.         End Sub
  64.     End Class
  65. End Namespace
复制代码

 
参考资料： 
—END—
 
相关阅读推荐：C# 创建标签PDF文件
 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！



欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/) Powered by Discuz! X3.4