0xAA55 发表于 2014-6-16 19:23:36

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

这东西不能保证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下载：
SRC下载：

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

非常感谢
页: [1]
查看完整版本: 【VB】VB6写的从PDF文件中提取JPG图片的程序