使用PB调用API自动更新(非FTP模式)(七、下载代码)

原创 2004年10月29日 12:28:00

七、下载代码

STRING GS_COPYSERVER1
STRING GS_COPYSERVER2
STRING GS_COPYSERVER3
string ls_path
string ls_mypath
long ll_count = 0

GS_COPYSERVER1    = ProfileString("autodown.ini","downpath","COPYSERVER1","")
GS_COPYSERVER2    = ProfileString("autodown.ini","downpath","COPYSERVER2","")
GS_COPYSERVER3    = ProfileString("autodown.ini","downpath","COPYSERVER3","")

st_ts.text = '正在检查需要更新软件的数量...'
ls_path = GS_COPYSERVER1
ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
if ll_count = -1 then
 ls_path = GS_COPYSERVER2
 ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
 if ll_count = -1 then
  ls_path = GS_COPYSERVER3
  ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
  if ll_count = -1 then
   st_ts.text = '正在检查是否需要更新软件版本...'
   ls_path = f_connect_copyserver()
   if ls_path = '' then
    messagebox('连接错误!','无法连接服务器!软件不能运行!',stopsign!)
    //close(this)
    return
   end if
  end if
 end if
end if

//messagebox('',ls_path)ls_path<> ''
if ll_count = -1 then
 st_ts.text = '正在检查需要更新软件的数量...'
 ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
end if
if ll_count = -1 then
 messagebox('连接错误!','无法连接服务器!软件不能运行!',stopsign!)
 close(this)
 return
end if
if ll_count = 0 then
 st_ts.text = '正在启动主程序...'
 
else
 st_ts.text = '正在更新软件版本...'
 choose case f_connect_copyfile(ls_path,hpb_1,ll_count,lb_files1,lb_files2,lb_files3)
  case 1
   st_ts.text = '正在启动主程序...'
   
  case 2 //启动参数不同,以便赋值更新程序
   st_ts.text = '正在启动主程序...'
   
 end choose
end if
string ls_file
ls_file = gs_application_path + '/xxxxx.exe qqaazzwwss'
run(ls_file)
//close(this)

PB使用WININET的FTP方式自动更新(四、下载)

四、下载(只是处理二级目录)global type f_connect_ftpcopyfile from function_objectend typeforward prototypesglobal...
  • handycyw
  • handycyw
  • 2004年11月23日 19:18
  • 1349

使用PB调用API自动更新(非FTP模式)(二、API说明及定义(1))

一、WNetAddConnection2Afunction ulong WNetAddConnection2A(ref s_netresource lpNetResource, String lpPa...
  • handycyw
  • handycyw
  • 2004年10月29日 12:16
  • 1183

PB使用WININET的FTP方式自动更新(二、判断是否可以连接)

global type f_connect_ftpserver from function_objectend typeforward prototypesglobal function intege...
  • handycyw
  • handycyw
  • 2004年11月23日 19:11
  • 1288

PB使用WININET的FTP方式自动更新(一、API和全局变量)

一些结构和API在非FTP方式文档中有了定义就不再说明。一、API声明function uLong InternetOpenA(string lpszAgent, ulong dwAccessType...
  • handycyw
  • handycyw
  • 2004年11月23日 19:08
  • 1675

pb实现自动升级

SatRDA介绍 SatRDA是目前最高效的远程数据访问组件,大数据量测试比外网直连数据库速度提升10-200倍。使用它无需要改动原来的数据连接访问代码就可以支持外网访问远程数据库。能够为and...
  • pcwe2002
  • pcwe2002
  • 2017年03月17日 15:55
  • 1481

使用PB调用API自动更新(非FTP模式)(二、API说明及定义(2))

5、CompareFileTimefunction ulong CompareFileTime( REF s_filetime lpFileTime1, REF s_filetime lpFileTi...
  • handycyw
  • handycyw
  • 2004年10月29日 12:19
  • 920

使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)

三、连接函数F_CONNECT_COPYSERVER返回路径global type f_connect_copyserver from function_objectend typeforward p...
  • handycyw
  • handycyw
  • 2004年10月29日 12:21
  • 1056

使用PB调用API自动更新(非FTP模式)(六、AUTODOWN.INI文件)

六、AUTODOWN.INI文件[downpath]COPYSERVER1=//dl-server/hbky_updateCOPYSERVER2=//dl-server/hbky_updateCOPY...
  • handycyw
  • handycyw
  • 2004年10月29日 12:27
  • 932

使用PB调用API自动更新(非FTP模式)(五、复制函数F_CONNECT_COPYFILE)

五、复制函数F_CONNECT_COPYFILE需要控件:LISTBOX(3个)需要INI文件:AUTODOWN.INIglobal type f_connect_copyfile from func...
  • handycyw
  • handycyw
  • 2004年10月29日 12:25
  • 992

使用PB调用API自动更新(非FTP模式)(四、统计复制文件数量函数F_CONNECT_COPYCOUNT)

四、统计复制文件数量函数F_CONNECT_COPYCOUNT需要控件:LISTBOX(3个)返回值:需要下载的文件个数。global type f_connect_copycount from fu...
  • handycyw
  • handycyw
  • 2004年10月29日 12:23
  • 1002
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用PB调用API自动更新(非FTP模式)(七、下载代码)
举报原因:
原因补充:

(最多只允许输入30个字)