以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  PDF数据处理请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104162)

--  作者:ljh29206
--  发布时间:2017/7/24 17:18:00
--  PDF数据处理请教
请问大神,


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

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


http://download.csdn.net/detail/wodaoai/6549401
[此贴子已经被作者于2017/7/25 14:11:12编辑过]

--  作者:有点甜
--  发布时间:2017/7/24 18:20:00
--  

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


--  作者:ljh29206
--  发布时间:2017/7/25 9:44:00
--  
甜版

可能我描述不清楚,

如何截获PDF图片

麻烦帮忙再看看
[此贴子已经被作者于2017/7/25 14:12:28编辑过]

--  作者:有点甜
--  发布时间:2017/7/25 10:01:00
--  

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

 

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

 

 


--  作者:客人
--  发布时间:2017/7/25 10:37:00
--  
甜版,基本OK了,太谢谢了!  还差一点点

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

请问 如何转换为 PDF 格式呢

--  作者:ljh29206
--  发布时间:2017/7/25 11:06:00
--  
问下 能否 把 同一个文件夹 所有生成的 jpg 文件  全部放入同一个   PDF文件 里面


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

--  作者:有点甜
--  发布时间:2017/7/25 11:32:00
--  

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

 

 


--  作者:ljh29206
--  发布时间:2017/7/26 8:54:00
--  
甜版 在问下   
专业报表   方法  savepdf  

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

 提示(正在保存).  

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

--  作者:有点甜
--  发布时间:2017/7/26 9:51:00
--  
回复8楼,这个没有办法的。你需要用 itextsharp生成pdf,也很简单的。
--  作者:jackyfashion
--  发布时间:2022/7/4 21:48:00
--  
老师:您 好!
搞掂了.
谢谢!!!