主题：PDF数据处理请教

mark 提取pdf图片

 

需要的dll

 

http://pan.baidu.com/s/1i5FpQvV

 

 

调用的代码

 

Dim doc As org.apache.pdfbox.pdmodel.PDDocument = Nothing
Try
    doc = org.apache.pdfbox.pdmodel.PDDocument.load("d:\test.pdf")
    Dim pages = doc.getDocumentCatalog().getAllPages()
    Dim i As Integer = 1
    For Each page As object In pages
        Dim resources = page.getResources()
        Dim imgs = resources.getImages()
        If imgs IsNot Nothing Then
            For Each key As object In imgs.keySet
                imgs.get(key).write2file("d:\image" & i)
                i += 1
            Next
        End If
    Next
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
Finally
    If doc IsNot Nothing Then
        doc.close()
    End If
End Try

转为图片，然后处理图片，截取对应位置的图出来，即可

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&replyID=533433&skin=1

 

截图代码，参考

 

Dim img = getimage("d:\test.jpg")
Dim bmp As new bitmap(100, 100) '宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = 10 '开始坐标
Dim y As Integer = 20 '开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\test001.jpg")
bmp.dispose

 

 

1、你可以用专业报表生成pdf，如

 

http://www.foxtable.com/webhelp/scr/1182.htm

 

http://www.foxtable.com/webhelp/scr/2450.htm

 

2、也可以用itextsharp生成pdf

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70686&skin=0

 

下载信息  [文件大小：621.0 KB  下载次数：20]

点击浏览该文件:itextsharp 中文帮助文档.rar

 

 

回复8楼，这个没有办法的。你需要用 itextsharp生成pdf，也很简单的。