VFP 愛用者社區

[iswith]

*--test_netpdftools DEMO
Clear


Local lcPath
If Type( "_vfp.ActiveProject" ) == "O" Then
m.lcPath = justPath( _vfp.ActiveProject.Name )
Else
m.lcPath = Justpath( Sys(16) )
Endif

Set Default To ( m.lcPath )
If !File( "netpdftools.vcx" ) And !File( "netpdftools.vct" ) Then
?"没找到“netpdftools.vcx”可视类库"
Endif

Set Classlib To netpdftools.vcx

Public oNetPdfTools
oNetPdfTools = Createobject( "NetPdfTools" )

*--初始化PdfTools
If !oNetPdfTools.PdfToolsInit() Then
?"初始化PdfTools失败"
Return .F.
Endif

*将目录下的全部PDF文件进行压缩,多线程执行,执行是的进度由类自动捕捉出现进度显示
*!* oNetPdfTools.CompressPdfAllAsync( "E:\NetPDFTools\testdata" )

*将PDF2Excel
*Format
* PDF = 0,
* XPS = 1,
* DOC = 2,
* DOCX = 3,
* HTML = 4,
* SVG = 5,
* PCL = 6,
* XLSX = 7,
* POSTSCRIPT = 8,
* OFD = 9,
* PPTX = 10,
* Bin = 11,
* Markdown = 12
Local lcpdffilename ;
, lctoFilename ;
, lnFormat ;
, lcErrorMsg ;
, llReturn

m.lcpdffilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.PDF"
m.lctoFilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.xls"
m.lnFormat = 7
m.lcErrorMsg = ""
?"将PDF2Excel"
m.llReturn = oNetPdfTools.Pdf2Doc( m.lcpdffilename , m.lctoFilename , m.lnFormat , @lcErrorMsg )
?Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )

*将PDF2Word(Doc)
m.lcpdffilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.PDF"
m.lctoFilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.Doc"
m.lnFormat = 2
m.lcErrorMsg = ""
?"将PDF2Word(Doc)"
m.llReturn = oNetPdfTools.Pdf2Doc( m.lcpdffilename , m.lctoFilename , m.lnFormat , @lcErrorMsg )
?Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )


*将PDF2Word(Docx)
m.lcpdffilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.PDF"
m.lctoFilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.Docx"
m.lnFormat = 3
m.lcErrorMsg = ""
?"将PDF2Word(Docx)"
m.llReturn = oNetPdfTools.Pdf2Doc( m.lcpdffilename , m.lctoFilename , m.lnFormat , @lcErrorMsg )
?Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )

*将PDF2XPS(XPS)
m.lcpdffilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.PDF"
m.lctoFilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.XPS"
m.lnFormat = 1
m.lcErrorMsg = ""
?"将PDF2XPS(XPS)"
m.llReturn = oNetPdfTools.Pdf2Doc( m.lcpdffilename , m.lctoFilename , m.lnFormat , @lcErrorMsg )
?Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )

*ImageFormat
*Png=0
*Bmp=1
*Jpeg=2
*Gif=3
*Emf=4
*Tiff=5
*Wmf=6

*将PDF2Image(Png)
m.lcpdffilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.PDF"
m.lctoFilename = Addbs( m.lcPath ) + "testdata\_6YD11S5A7.Png"&&(默认转换全部页 — > _6YD11S5A7(0).PDF
m.lnFormat = 1
m.lcErrorMsg = ""
?"将PDF2Image(Png)"
m.llReturn = oNetPdfTools.PDF2Image( m.lcpdffilename , m.lctoFilename , m.lnFormat , @lcErrorMsg )
?Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )

[gxouyuan]

超讚