二开指南-K3文件存储之数据库式存储通用组件

K3系统中有一个数据库式存储文件的方法，可以把50M以下的文件压缩转为2进制流存储数据库的image字段中；

下面演示工程如何压缩文件，如何解压缩文件，打开文件（如何将2进制流存储到数据库中不介绍了，网上搜sql教程）

新建工程，并引用

microsoft scripting runtime, microsoft activeX data Object 2.6 Library;

工程头注入：用于打开文件

Private Declare Function ShellExecute Lib "SHELL32.DLL" Alias "ShellExecuteA" (ByVal HWND As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

压缩的代码：

假设我现在要处理c盘的note.log文件

再