文件远程存取服务系统v1.05，系统环境：PB9.0
本程序只有在编译以后才可以正常调试和使用，否则某些功能会异常或错误。
一.功能介绍
1.将文件以二进制方式存放于数据表中。
2.本程序没有权限控制，所有文件存放在唯一的一张表里。
3.不存在真实的目录概念。
4.本程序无法提供类似FTP的复杂功能。
5.本程序只是一个维护自动升级文件的一个工具而已。
6.基于以上几点，本程序仍然可以模仿一个简单的FTP文件存取功能。
7.制作自动升级程序简单，在原有主程序中或者单独写一个应用，嵌入一小段函数调用即可完成。
二.用于自动升级时的几个要点
1.存储类型：分为“压缩、不压缩、主程序、手工压缩”，分别介绍如下：
a.压缩，程序在上传时自动压缩为zip文件，以便节约空间，并起到加密作用。
b.不压缩，按文件原格式存放，一些文件不能压缩存放(比如，压缩控件本身，一些下载时间先与压缩控件下载前的文件)。
c.主程序，也是压缩存放，主要用于升级文件本身，一些需要关闭程序才能重写的文件（如应用程序启动文件和一些dll文件），一些需要最后才被写入的文件（如版本控制文件）。
d.手工压缩，根据需要手工把部分文件压缩成一个文件，或把子目录文件压缩成带path一个文件，注意的是手工压缩时也要使用程序中定义的密码(nvo_zip中的is_pwd变量)来压缩。
2.版本号：格式为“2003-08-01 00:00:00”，升级程序依据此来下载文件。
3.相对路径：就是相对主应用程序的目录，要让升级程序下载文件后存放于相应的子目录中。
4.数据表中要建有"system"目录，存放pbunzip.exe(不压缩)和XceedZip.dll(不压缩)文件。
三.自动升级函数（of_liveupdate）参数说明：
as_verold string 当前版本号
as_softid string 文件在服务器的存放目录，用“,”相隔多个目录
as_filename string 用于下载单个文件（空串为所有文件，可使用“％”）
as_softexe string 软件启动程序exe文件名,也就是调用本函数的EXE文件名
as_trans transaction 连接文件数据库的事务
as_str string 系统保留（如果编写的是“在线安装”程序，本参数为“SETUP”）
as_msg string 'yes':跳出“存在新版本，是否升级的确认框”
as_show string 'show':显示下载进程窗口
函数返回： integer
1： 正常
-1,-2,-3: 出错
-100： 用户按了“取消”按钮
四.用于自动升级的代码范例如下(需要nvo_zip控件和w_upgrade窗口)：
//以下是调用自动升级的步骤
//版本号
string ls_ver='2003-05-22 00:00:00'
//远程目录
string ls_softid='ats_other,ats_pbd,ats_pbdll'
//软件启动程序exe文件名(就是本程序的exe文件名)
string ls_softexe='ats.exe'
nvo_zip lnvo_zip
//下面一段是用版本控制文件来控制软件的升级
//如果不使用版本控制文件，而采用版本号内嵌在主程序中的方法，那么注释下面一段
if FileExists ( 'ats_vercontrol.dll' ) then
blob s
string sd,ls_ver1
lnvo_zip.uf_fileread('ats_vercontrol.dll' ,s)
sd=string(s)
ls_ver1=lnvo_zip.of_str_xor(mid(sd,125,19),lnvo_zip.is_pwd)
sd=string(datetime(date(left(ls_ver1,10)),time(right(ls_ver1,8))))
if sd='1900-1-1 00:00:00' or ls_ver1='' or len(ls_ver1)<>19 then
else
ls_ver=ls_ver1
end if
end if
//版本控制文件结束
//下面执行升级函数
//参数
//ls_ver:当前版本
//ls_softid:文件在服务器的存放目录，用“,”相隔多个目录
//空串：用于下载单个文件（空串为所有文件，可使用“％”）
//ls_softexe:软件启动程序exe文件名,也就是本程序的EXE文件名
//sqlca:连接文件数据库的事务
//空串:系统保留
//'yes':是否跳出“存在新版本，是否升级的确认框”
//'show':显示下载进程窗口
lnvo_zip.of_liveupdate(ls_ver,ls_softid,'',ls_softexe,sqlca,'','yes','show')
//=============调用自动升级的步骤完成
//执行主应用程序
//如果上面的代码是内嵌在主应用程序中的，那么下面的代码就是open主窗口
run('ats_exe.exe')
