PDF数据处理请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问大神,

如何读取PDF图片,及文字,

不懂怎么分析出图片的代码, 及放到foxtable 求指点下.

http://download.csdn.net/detail/wodaoai/6549401

[此贴子已经被作者于2017/7/25 14:11:12编辑过]

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

甜版

可能我描述不清楚,

如何截获PDF图片

麻烦帮忙再看看

[此贴子已经被作者于2017/7/25 14:12:28编辑过]

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

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

甜版,基本OK了,太谢谢了! 还差一点点

请问 bmp.save("d:\test001.jpg") 这个不能直接保存为 pdf 格式

请问如何转换为 PDF 格式呢

问下能否把同一个文件夹所有生成的 jpg 文件全部放入同一个 PDF文件里面

[此贴子已经被作者于2017/7/25 11:06:35编辑过]

甜版在问下

专业报表方法 savepdf

总是会提示一个对话框出来

提示(正在保存).

这个框框怎么去掉, 帮助中没找到相关说明

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

老师:您好!

搞掂了.

谢谢!!!

主题：PDF数据处理请教