Foxtable(狐表)用户栏目专家坐堂 → Spire.PDF.dll给PDF加印章 缺spire.pdf.graphics.dll有没有变通实现方法呢?


  共有4536人关注过本帖平板打印复制链接

主题:Spire.PDF.dll给PDF加印章 缺spire.pdf.graphics.dll有没有变通实现方法呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
Spire.PDF.dll给PDF加印章 缺spire.pdf.graphics.dll有没有变通实现方法呢?  发帖心情 Post By:2020/12/31 13:05:00 [只看该作者]

参照论坛例子http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=78567&ID=150881&skin=1拟做pdf文件加盖电子印章
遇到如下问题:
1、我下载得到的dll文件如下:

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
2.外部引用dll文件如下:【没有论坛例子里面的
spire.pdf.graphics这个文件

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


执行代码【凡是sG红色部分均报错,有没有办法解决呢?】
Dim pdf As Spire.Pdf.PdfDocument =  New Spire.Pdf.PdfDocument() 
pdf.LoadFromFile("C:\Users\Administrator\Desktop\公文助手20201224\Reports\ 入党申请谈话通知书.pdf")

Dim page As Spire.Pdf.PdfPageBase = pdf.Pages(0)
Dim state As sG.PdfGraphicsState = page.Canvas.Save()

Dim x As Integer = 200
Dim y As Integer = 300
Dim width As Integer = 200
Dim height As Integer = 120

Dim pen As New sG.PdfPen(Color.Black, 1f) 
Dim brush As sG.PdfBrush = New sG.PdfSolidBrush(Color.OrangeRed)
page.Canvas.DrawRectangle(pen, brush, New Rectangle(New Point(x, y), New Size(width, height)))
page.Canvas.Restore(state)

Dim result As String = "C:\Users\Administrator\Desktop\公文助手20201224\Reports\ 入党申请谈话通知书00.pdf"
pdf.SaveToFile(result)

报错如下:

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


 回到顶部
总数 23 1 2 3 下一页