Foxtable(狐表)用户栏目专家坐堂 → PDF数据处理请教


  共有6602人关注过本帖树形打印复制链接

主题:PDF数据处理请教

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1357 积分:11960 威望:0 精华:0 注册:2012/3/5 11:32:00
PDF数据处理请教  发帖心情 Post By:2017/7/24 17:18:00 [只看该作者]

请问大神,


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

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1357 积分:11960 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2017/7/25 9:44:00 [只看该作者]

甜版

可能我描述不清楚,

如何截获PDF图片

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 

 


 回到顶部
客人(61.142.*.*)
  5楼


  发帖心情 Post By:2017/7/25 10:37:00 [只看该作者]

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

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

请问 如何转换为 PDF 格式呢

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1357 积分:11960 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2017/7/25 11:06:00 [只看该作者]

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1357 积分:11960 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2017/7/26 8:54:00 [只看该作者]

甜版 在问下   
专业报表   方法  savepdf  

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

 提示(正在保存).  

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 9:51:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jackyfashion
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5085 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2022/7/4 21:48:00 [只看该作者]

老师:您 好!
搞掂了.
谢谢!!!

 回到顶部
总数 12 1 2 下一页