将水印绘制为轮廓图形路径,有谁用过这种方法吗？
迟迟找不到原因所以，为啥绘制不了。。。。*PdfSharp 类,将水印绘制为轮廓图形路径
*使用PdfSharp，与VFP 的GDI+类似，XGraphics
*提供XColor（颜色） string
* XPen （画笔） string
* XBrush（画刷） object
* XFont (字体) object
* XPoint (位置) string
* XImage (图片) object BMP GIF PNG JPEG TIFF
* XStringFormat(格式) object
Local lcPath
If _vfp.StartMode = 0 Then
m.lcPath = Addbs( Justpath( _vfp.ActiveProject.Name ))
Else
m.lcPath = Addbs( Justpath( sys(16,0) ) )
Endif
Set Default To ( m.lcPath )
Set Procedure To netsuite.reg.prg Additive
*--载入H文件
#INCLUDE Netsuite.H
Public oPdfSharp
m.oPdfSharp = Createobjects ( "Netsuite.PdfSharp" )
*1--打开一个PDF文档对象
Local loDocument ;
, lcErrMsg ;
, lnPageCount ;
, lcPDFFilename
m.lcPDFFilename = Getfile( "PDF" )
If Empty( m.lcPDFFilename ) Then
Return
Endif
m.lcPassword = ""
Clear
?"打开文档："
??m.lcPDFFilename
Do While (.T.)
m.lcErrMsg = ""
*--如果设置有拥有者密码与打开密码时，当前文档需要修改，所以优先使用拥有者密码,否侧会一直循环
m.loDocument = m.oPdfSharp.OpenPdf( m.lcPDFFilename , @lcErrMsg , m.lcPassword , PdfDocumentOpenMode_Modify )
If Isnull( m.loDocument )Then
*该方式就表示打开需要密码
If "password" $ Lower( m.lcErrMsg ) && And "open" $ Lower( m.lcErrMsg ) Then
*弹出密码打开对话框
Local lofrm_pdfpassword ;
, loPDFOpenPassword
Do Form frm_pdfpassword.scx Name m.lofrm_pdfpassword With Justfname( m.lcPDFFilename ) ;
,Null To m.loPDFOpenPassword
If !Type("m.loPDFOpenPassword" ) == "O" Or Isnull( m.loPDFOpenPassword) Then
Exit
Endif
*--取消
If !m.loPDFOpenPassword.Result == "OK" Then
Exit
Else
m.lcPassword = m.loPDFOpenPassword.Password
Endif
Endif
Else
Exit
Endif
EndDo
If !Type( "m.loDocument" ) == "O" Or Isnull( m.loDocument )Then
Return
Endif
?"总页数："
m.lnPageCount = m.oPdfSharp.GetPageCount( m.loDocument )
??m.lnPageCount
IF !Empty( m.lcErrMsg ) Then
Messagebox( m.lcErrMsg , 16 )
Return
Endif
*2.--获取 PdfPage 对象(注意第一页从0开始)
Local loPage ;
, lnPage ;
, lnPageWidth;
, lnPageHeight
m.lnPage = 0
m.loPage = m.oPdfSharp.Getpage( m.loDocument , m.lnPage)
?"页宽(以点为单位)："
m.lnPageWidth = m.oPdfSharp.GetpageSize( m.loPage, 1 )
??m.lnPageWidth
?"页高(以点为单位)："
m.lnPageHeight = m.oPdfSharp.GetpageSize( m.loPage , 2 )
??m.lnPageHeight
*--添加水印----------------------------------------------------------------
* 说明：使用XGraphicsPdfPageOptions.Prepend,水印将绘制在原始PDF页面下方.
* 大多数PDF文件由透明背景上的黑色文本组成,
* 水印将在那里可见(您可以通过在Adobe Reader中激活透明网格来检查).
* 对于具有纯背景的PDF页面(例如图像,具有背景颜色的表格,……),水印将不可见时，请偿试方法二
If m.oPdfSharp.GetVer( m.loDocument ) < 14 Then
m.oPdfSharp.SetVer( m.loDocument , 14 )
Endif
Local lcWaterString
m.lcWaterString = "水印测试PDFSharp V1.0 For ZHZ 2023"
?"创建红色笔" &&int alpha, int red, int green, int blue,double width = 0.5
Local loXPen
m.loXPen = m.oPdfSharp.newXPen(128, 255, 0, 0 , 2 )
*--XStringFormat(格式)
?"创建 XStringFormat(格式)"
Local loXStringFormat
m.loXStringFormat = m.oPdfSharp.newXStringFormat( XStringAlignment_Near, XLineAlignment_Near )
?"创建 XFont(字体):"
Local loFont ;
, lnFontSize;
, lcFontName;
, logfx ;
, loXPen ;
, lcXPoint ;
, loXGraphicsPath
m.lnFontSize = 30
m.lcFontName = "SimHei"
m.loXFont = m.oPdfSharp.newxFont( m.lcFontName , m.lnFontSize , XFontStyle_Bold)
?"创建 XGraphicsPath(图形路径):"
m.loXGraphicsPath = m.oPdfSharp.newxGraphicsPath()
?"循环整个文档页,绘每页水印"
For m.lnCount = 0 To m.lnPageCount-1
With m.oPdfSharp
*--获取 页面 XGRAPHICS对象，以便在现有内容上方绘制
m.logfx = .FromPdfPage2( m.oPdfSharp.Getpage( m.loDocument , m.lnCount ) , XGraphicsPdfPageOptions_Prepend ) &&考虑到层次
*--获取文本的大小（以点为单位） 测量该XFont在oRenderer(XGraphics)中的宽高
m.lnFontWidth = .GetFontSize( m.lcWaterString , m.logfx , m.loXFont , 1 )
m.lnFontHeight = .GetFontSize( m.lcWaterString , m.logfx , m.loXFont , 2 )
*--在页面中心定义旋转转换 转换角度
*旋转有两个主要函数TranslateTransform（int x,int y）及RotateTransform(int angle)
*用TranslateTransform() 函数，参数x，y设置为待旋转椭圆中心，则坐标原点会移到（x，y）
*使用RotateTransform()函数，angle设置为希望旋转的整数角度，旋转方向是顺时针
m.logfx.TranslateTransform( m.lnPageWidth / 2 , m.lnPageHeight /2 )
*m.logfx .RotateTransform( -TAN( m.lnPageHeight / m.lnPageWidth) * 180 / Pi() )
m.logfx.RotateTransform( -45 )
m.logfx.TranslateTransform( -m.lnPageWidth / 2, -m.lnPageHeight /2 )
*--xPoint(位置) 必须以","为分隔符
m.lcxPoint = Alltrim( Transform( (m.lnPageWidth - m.lnFontWidth ) / 2 ) ) + "," +;
Alltrim( Transform( (m.lnPageHeight - m.lnFontHeight ) / 2 ) )
*--将文本添加到路径
If !.AddString( m.loXGraphicsPath ;
, m.lcWaterString ;
, m.loXFont ;
, m.lcXPoint ;
, m.loXStringFormat ;
, @lcErrMsg ) Then
MESSAGEBOX( m.lcErrMsg , 16 )
Exit
Endif
*--划出路径的轮廓
If !.DrawPath( m.logfx ;
, m.loXPen ;
, m.loXGraphicsPath ;
, @lcErrMsg ) Then
MESSAGEBOX( m.lcErrMsg , 16 )
Exit
Endif
Endwith
Endfor
*--另存
m.lcPDFFilename = Addbs( m.lcPath) + [testdata\ConvertPDF\] + Justfname( m.lcPDFFilename )
*--保存(若文件与打开文件名一样就覆盖保存)
m.oPdfSharp.Save( m.loDocument , m.lcPDFFilename , @lcErrMsg )
IF !Empty( m.lcErrMsg ) Then
m.oPdfSharp.PdfClose( m.loDocument )
Messagebox( m.lcErrMsg , 16 )
Return
Endif
*--关闭PDF
m.oPdfSharp.PdfClose( m.loDocument )
*--预览PDF
Do Form frm_pdfmain_demo.scx with m.lcPDFFilename
