想实现PB客户端程序自动更新,求个设计思路。
------解决方案--------------------
CSDN不允许上传文件,这是我电脑中的资料.
- SQL code
上传局域网内自动升级文件(update.pbw)和上传最新升级文件(ftp_update.pbw)把编辑好的update.exe放在当前应用的下面,即可自动升级。需建表系统版本控制表system_set字段cur_ver vchar程序升级表CREATE TABLE t_updata( [ver] [char] (5) NOT NULL , [filename] [varchar] (30) NOT NULL , [fileblob] [image] NULL , [filesize] [int] NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]update原理从表中取得当前最新版的程序拷贝到当前目录。注意事项变量str_ini赋当前应用的配置文件名。在应用程序中得注意事项。以下为应用的open事件program_ver='1.02'//当前程序版本 SELECT isnull(system_set.cur_ver,'') //取表中的最新版本 INTO :str_ver FROM system_set; SELECT count(t_updata.ver) //是否存在更新的程序文件 INTO :i_cnt FROM t_updata WHERE t_updata.ver = :str_ver ;setprofilestring(str_ini, "system","ver",program_ver)//对配置文件进行赋值,以便update.exe比较版本。if (str_ver<>program_ver) then if i_cnt>0 then if FileExists('updata.exe') then messagebox('提示','当前程序已有升级版本,现在马上升级!') run('updata.exe')//运行升级程序 halt close; return; else messagebox('提示','当前程序已有升级版本!') end if end ifend if