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

0xAA55 · 发表于 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图片。然后程序会自动将其取出，保存到临时文件夹。当用户在左边列表框点选序号的时候，右边图片框就会自动显示临时文件夹里面对应的图片。用户再在右边图片框进行拖拽操作的时候，拖出的文件其实就是来自于临时文件夹。

BIN下载：

提取PDF中的JPG.exe (28 KB, 下载次数: 3, 售价: 1 个宅币)
SRC下载：

提取PDF中的JPG.7z (9.7 KB, 下载次数: 12, 售价: 10 个宅币)

wypabcd · 发表于 2014-12-21 07:14:16

vb学习中，非常有收获

大宝 · 发表于 2020-7-8 09:55:05

本帖最后由 china_shy_wzb 于 2020-7-20 13:32 编辑

学会了提取JPG图片

xiawan · 发表于 2022-5-10 11:50:08

正需要，支持楼主大人了！

xman2000 · 发表于 2023-3-8 21:35:12

感谢楼主分享~~~

aguai2008 · 发表于 2023-4-19 23:50:40

非常感谢

账号		自动登录	找回密码
密码			立即注册→加入我们

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

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

本帖被以下淘专辑推荐:

相关帖子