找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 5392|回复: 5

【VB】VB6写的从PDF文件中提取JPG图片的程序

[复制链接]

1109

主题

1649

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24180 个
贡献
46222 次
宅之契约
0 份
在线时间
2294 小时
注册时间
2014-1-26
发表于 2014-6-16 19:23:36 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

×
这东西不能保证100%完美识别PDF文件中的JPG。
用VB编写。而且函数和变量主要用中文定义。
注意不是VB.NET

源代码很好地演示了VB6如何判断数组1里面有没有数组2的内容、如何进行Binary模式读取文件以及指定读取的位置、如何实现拖放功能。
用法就是把你的PDF文件拖入窗口左上角那个很窄的框。然后它就会自动从PDF文件里找到JPG格式的图片。

原理就是通过逐字节比较来找到“/Image/”标识,然后找到“/Length ”来获取图片的长度,找到“>>stream\r\n”来找到图片文件的开始位置。然后判断图片文件第6、7、8、9个字节是不是“JFIF”,如果是的话,就认为已找到JPG图片。然后程序会自动将其取出,保存到临时文件夹。当用户在左边列表框点选序号的时候,右边图片框就会自动显示临时文件夹里面对应的图片。用户再在右边图片框进行拖拽操作的时候,拖出的文件其实就是来自于临时文件夹。

20140616191351.png
BIN下载: 提取PDF中的JPG.exe (28 KB, 下载次数: 3, 售价: 1 个宅币)
SRC下载: 提取PDF中的JPG.7z (9.7 KB, 下载次数: 12, 售价: 10 个宅币)

本帖被以下淘专辑推荐:

回复

使用道具 举报

0

主题

13

回帖

18

积分

用户组: 初·技术宅

UID
606
精华
0
威望
2 点
宅币
1 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2014-12-21
发表于 2014-12-21 07:14:16 | 显示全部楼层
vb学习中,非常有收获
回复 赞! 靠!

使用道具 举报

1

主题

60

回帖

333

积分

用户组: 中·技术宅

UID
6035
精华
0
威望
2 点
宅币
266 个
贡献
0 次
宅之契约
0 份
在线时间
29 小时
注册时间
2020-7-7
发表于 2020-7-8 09:55:05 | 显示全部楼层
本帖最后由 china_shy_wzb 于 2020-7-20 13:32 编辑

学会了提取JPG图片
回复 赞! 靠!

使用道具 举报

1

主题

157

回帖

605

积分

用户组: 大·技术宅

UID
7535
精华
0
威望
0 点
宅币
447 个
贡献
0 次
宅之契约
0 份
在线时间
68 小时
注册时间
2021-10-16
发表于 2022-5-10 11:50:08 | 显示全部楼层

正需要,支持楼主大人了!
回复 赞! 靠!

使用道具 举报

0

主题

20

回帖

45

积分

用户组: 初·技术宅

UID
6382
精华
0
威望
2 点
宅币
22 个
贡献
0 次
宅之契约
0 份
在线时间
21 小时
注册时间
2020-11-9
发表于 2023-3-8 21:35:12 | 显示全部楼层
感谢楼主分享~~~
回复 赞! 靠!

使用道具 举报

0

主题

9

回帖

13

积分

用户组: 初·技术宅

UID
5120
精华
0
威望
2 点
宅币
0 个
贡献
0 次
宅之契约
0 份
在线时间
1 小时
注册时间
2019-7-9
发表于 2023-4-19 23:50:40 | 显示全部楼层
非常感谢
回复

使用道具 举报

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-3-29 09:38 , Processed in 0.042236 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表