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