程序自动更新问题

[swazyl]

请教各位高手：我用PB8+SQL SERVER2000做了一套管理系统,安装到了很多机器上,现在我有个问题就是:如果我的程序有改动,有没有什么办法让客户端运行程序时自动检测本机的程序是否是最新的,如果不是则自动从服务器下载最新程序,而不用每次程序有改动都要跑到各台客户机上去安装,这样就太浪费时间了.

[derry_mr]

这个问题刚刚尝试过，大致过程如下：
1.写一个独立的下载更新程序，和主程序一起打包分发到客户机上
2.主程序启动时判断是否需要下载更新，如果需要则启动下载程序并关闭主程序
3.下载程序用FTP进行文件下载并覆盖现有文件，（可根据时间比较）
4.下载完成后，启动主程序，即可完成更新

[eastpond]

我想思路应该这样：
可以在数据库里添加一个版本控制表（包括，版本号，数据库升级语句，升级pbd等)
程序中增加一全局变量，记录版本号，然后每次登录时，跟数据库里最新的版本号比较，不是最新就获取要更新的pbd文件

[swazyl]

derry_mr(MengRui),你好,谢谢你的回答,下载更新程序用pb8怎么编写,主程序启动时该加入什么语句用来判断是否需要下载更新,请赐教.

[liaolwj]

那你还不如拿一台好一点的电脑作为文件服务器，其他的电脑都作为客户端进行使用，这样你就只更新一台就可以了。

[zjhclf]

给你个实例，我的后台是oracle。
首先，applacation中close事件中脚本如下：（我用的是arj压缩）
string ls_host_computer,ls_host_user,ls_host_pass,ls_up_dir
string ls_down_dir,ls_extract_s,ls_extract_name,ls_download_name
integer li_filenum,li_rpt,li_len,li_i,li_start

if gb_down_new = true then
gs_download_name = 'check.arj'
ls_host_computer = ProfileString("97.INI","AUTO_FTP","HOST_IP",'0')
ls_host_user = ProfileString("97.INI","AUTO_FTP","USER",'0')
ls_host_pass = ProfileString("97.INI","AUTO_FTP","PASS",'0')
ls_up_dir = ProfileString("97.INI","CHECK","UP_DIR",'0')
ls_down_dir = ProfileString("97.INI","CHECK","PATH",'0')

li_filenum = FileOpen("check.cfg",StreamMode!,Write!,LockWrite!,Replace!)
filewrite(li_filenum,"open "+ls_host_computer+"~n")
filewrite(li_filenum,ls_host_user+'~n'+ls_host_pass+'~n'+"prompt~n")
filewrite(li_filenum,"cd "+ls_up_dir+'~n')
// filewrite(li_filenum,"lcd "+ls_down_dir+'~nbinary~nmget *.arj~nbye~n')
filewrite(li_filenum,"lcd "+ls_down_dir+'~nbinary~nmget '+gs_download_name+'~nbye~n')
fileclose(li_filenum)

ls_download_name=gs_download_name+' '
li_start=1
for li_i=1 to gi_down
li_len=pos(ls_download_name,' ',li_start)
ls_extract_name=mid(ls_download_name,li_start,li_len - li_start)
ls_extract_s=ls_extract_s+'arj x '+ls_extract_name+' -y~r~n'
li_start=li_len+1
next
li_filenum = fileopen("check.bat",StreamMode!,Write!,LockWrite!,Replace!)
// filewrite(li_filenum,"del *.arj~r~nftp -s:om_ftp.cfg~r~narj x *.arj -y~r~ndel *.arj~r~n")
filewrite(li_filenum,"del *.arj~r~nftp -s:check.cfg~r~n"+ls_extract_s+"del *.arj~r~n")
fileclose(li_filenum)
li_rpt = run("check.bat",Normal!)
end if

其次，登陆时判断

li_down = wf_get_version(9998)

if li_down>0 then
gi_down=li_down
li_ret=messagebox(‘提示','是否更新?'¸,question!,yesno!,1)
if li_ret=1 then
gb_down_new=true
disconnect;
halt close
end if
end if



附上窗口函数：
int li_down
string ls_new_version,ls_use_version,ls_count_name
boolean lb_update

if gl_staff_id =0 then
lb_update=true
end if
ls_use_version=f_ver_rm_check()
select current_value into :ls_new_version from sys_config where config_id=:count;
if sqlca.sqlcode<>0 then
messagebox("提示","请维护sys_config表中config_id=9998的信息")
return 0
end if
ls_new_version=trim(upper(ls_new_version))
ls_use_version=trim(upper(ls_use_version))
if ls_use_version>ls_new_version and lb_update then
update SYS_CONFIG set CURRENT_VALUE = :ls_use_version
where CONFIG_ID = :count;
commit;
elseif ls_use_version<ls_new_version then
li_down=1
end if
return(li_down)

[msy031]

是不是做成FTP服务器？如何实现？
看了资料上一种估，就是采用　　eastpond(东塘) 的那种方法，
可是俺不会将升级文件（比如*.dll文件加入到数据库中）
请高手两种方法都解释一下吧

[msy031]

后台是　SYBASE　sql server的升级文件怎么加入呢

[zjhclf]

你如果觉得麻烦，考虑在每个客户端都写好一个下载程序的bat，如果版本低就运行！

[msy031]

后台是　SYBASE　sql server的升级文件怎么加入呢

[zjhclf]

bat中实例如下：
del *.arj
ftp -s:check.cfg
arj x check.arj -y
del *.arj

check.cfg如下：
open 主机ip
用户名
密码
prompt
lcd 程序安装路径
cd 数据库上传程序的路径
binary
mput 你的压缩包

以上都是oracle下的，sqlserver我没用过，估计也差不多。给你作参考吧

[zjhclf]

原理：其实就是你想升级，把要升级的文件放到服务器的一个路径上，然后把后台配置表中的版本号修改为最新，如果程序判断版本号低就从服务器down下来。

[lwwxf]

在数据库里的表里面设置行，这一行存的就是你现在的版本，程序里判断数据库里面的版本和现在运行的版本是不是一个版本，如果不是的话，提示更新程序。
因为用PB编写的程序，所以只要更新你的PBD文件即可。所以可以做个批处理，更新你的PBD就行，例如：
net use z: \\服务器名\程序文件夹 /y
copy z:\*.* 本机程序文件夹 /y

net use z:\\server\mis /y
copy z:\*.pbd d:\mis /y

[derry_mr]

客户端启动程序判断是否需要升级可在程序中设一全局变量，和数据库中版本号判断，如果不相同，则启动下载程序

所用到的有关文件传送的函数如下：
Function Long SetCurrentDirectoryA(String as_path) Library "kernel32.dll"
FUNCTION ulong GetCurrentDirectoryA(ulong BufferLen, ref string currentdir) LIBRARY "kernel32.dll"
Function boolean GetFileDateTime(string lpFileName,uint nMode,ref string lpDate,ref string lpTime) Library "mHand.dll"
Function boolean MoveFileA(ref string lpExistingFileName,ref string lpNewFileName) LIBRARY "kernel32.dll"
FUNCTION long CreateDirectoryA(ref string pathname, int sa) LIBRARY "Kernel32.dll"

Function long MyFTP_GetListFileInfo(long FileNo,long InfoNo,ref string content) library 'MyFtp.dll'
Function long MyFTP_ChangeDirectoryUp() library 'MyFtp.dll'
Function long MyFTP_ChangeDirectory(ref string dirname) library 'MyFtp.dll'
function long MyFTP_ConnectServer(ref string Host,long port,ref string usrid,ref string pass) library 'MyFTP.dll'
function long MyFTP_Disconnect() library 'MyFTP.dll'
Function long MyFTP_DownloadFile(ref string srcFile,ref String DstFile) library 'MyFTP.dll'
Function long MyFTP_GetCurrentDirectory(ref string ls_dir) library 'MyFTP.dll'