让自己学会写的一个在线升级的程序

这段代码实现了网络升级文件的检查与更新功能。首先读取升级文件,提取类型和版本信息。接着尝试连接服务器,若连通则逐个检查文件是否有更新,有更新则下载保存,最后给出相应提示。若未连通服务器则提示检查网络。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

  void CUpdateDlg::OnButtonDoupdate()
  {
  
  // 读取升级文件
  CFileStatus rStatus;
  CString szIniData;
  CString inFile;
  CString tmp;
  
  inFile=m_szPath+"//update.ini";
  
  CFile UpdateFile;
  UpdateFile.Open( inFile, CFile::modeRead);
  UpdateFile.GetStatus(inFile,rStatus);
  UpdateFile.Read(szIniData.GetBuffer(rStatus.m_size),rStatus.m_size);
  UpdateFile.Close();
  
  CStringArray arType;
  CStringArray arVersion;
  for(int i=1;i<=27;i+=2){
  AfxExtractSubString(tmp,szIniData,i,'/n');
  tmp.TrimRight();
  tmp.TrimRight();
  arType.Add(tmp);
  }
  for(int j=2;j<=28;j+=2){
  AfxExtractSubString(tmp,szIniData,j,'/n');
  tmp.TrimRight();
  tmp.TrimRight();
  arVersion.Add(tmp);
  }
  
  GetDlgItem(IDC_BUTTON_DOUPDATE)->EnableWindow(FALSE);
  
  CProgressCtrl* pBar = (CProgressCtrl*)GetDlgItem(IDC_PROGRESS_UPDATE);
  pBar->SetPos(5);
  m_szEditMessage = "/r/n取得网络升级地址/r/n"+ServerUrl;
  UpdateData(FALSE);
  
  CInternetSession mySession(NULL,0);
  CHttpFile* myHttpFile=NULL;
  BOOL bIsNewer = FALSE;
  CString myData;
  CString myUrl;
  CString m_SiteRec;
  myUrl = ServerUrl+"?pro=update";
  myHttpFile=(CHttpFile*)mySession.OpenURL(myUrl);
  while(myHttpFile->ReadString(myData)){m_SiteRec = myData;}
  myHttpFile->Close();
  mySession.Close();
  
  if(m_SiteRec=="ok"){
  pBar->SetPos(10);
  m_szEditMessage = "/r/n已经连通....../r/n"+m_szEditMessage;
  UpdateData(FALSE);
  
  for(int k=0;k<14;k++){
  CInternetSession mySession(NULL,0);
  CHttpFile* myHttpFile=NULL;
  m_SiteRec.Empty();
  myUrl = ServerUrl+"?pro=update&module="+arType[k]+"&version="+arVersion[k];
  myHttpFile=(CHttpFile*)mySession.OpenURL(myUrl);
  while(myHttpFile->ReadString(myData)){m_SiteRec += myData;}
  if(m_SiteRec != "ok"){
  CString inFile;
  inFile=m_szPath+"//data//"+arType[k];
  CFile NetFile;
  NetFile.Open( inFile, CFile::modeCreate | CFile::modeWrite);
  NetFile.Write( m_SiteRec, m_SiteRec.GetLength());
  NetFile.Close();
  bIsNewer = TRUE;
  }
  pBar->SetPos((k+1)*(100-10)+10);
  m_szEditMessage = "/r/n检查"+arType[k]+"文件... 成功!/r/n"+m_szEditMessage;
  UpdateData(FALSE);
  myHttpFile->Close();
  mySession.Close();
  }
  
  if(bIsNewer){
  ::MessageBox(NULL,"文件已经更新成功!",NULL,MB_ICONASTERISK);
  }else{
  ::MessageBox(NULL,"您的数据文件已经是最新版本了!",NULL,MB_ICONASTERISK);
  }
  }else{
  ::MessageBox(NULL,"没有连接网络或者找不到升级服务器,请检查",NULL,MB_ICONASTERISK);
  pBar->SetPos(100);
  }
  
  // 下面是完成了.
  GetDlgItem(IDCANCEL)->ShowWindow(SW_HIDE);
  GetDlgItem(IDOK)->ShowWindow(SW_SHOW);
  GetDlgItem(IDOK)->SetFocus();
  }
程序功能: 本程序是检查程序版本并提供HTTP方式在线更新的程序! 支持多个文件、不同目录更新。 windows环境通用。 使用: 1.把所有需要更新的文件名称和版本号信息添加到更新列表XML文件中,XML文件内容格式: <?xml version="1.0" encoding="gb2312"?> BPL\FORM.bpl 2012.6.4.0 main.exe 2012.6.5.0 注意: 1)与XML文件同一个目录的,文件名不要含目录信息。 2)没有版本号的文件,每次发布时,自己编一个不同的版本号填入XML. 3)XML文件清单信息,每次发布都应包含所有的程序文件。 4)更新列表XML文件与程序文件一同发布到IIS虚拟目录中(windows环境下的)。 2.手动直接执行UPDATE.EXE文件更新时, 需要把更新列表XML文件的URL地址在文本配置文件CLIENTDB.LXH中。 内容格式如下: [UPDATE] XMLURL=HTTP://192.168.0.80/RELEASE/FILELISTS.XML 3.由主控程序调用时,调用代码格式如下: ShellAPI.ShellExecute(0, 'Open', 'UPDATE.EXE', PWideChar(Params), '',SW_SHOWNORMAL); 其中Params参数,字符串内容必须按顺序分别为: 更新列表XML文件的URL地址 + 主控程序文件名 + 个性程序标题, 共传入三个入口参数,每个参数之间用空格隔开。 可以不传参数,则默认用CLIENTDB.LXH配置文件中的XML URL地址; 可以只传1个参数,参数此时必须为XML URL地址; 如果传第2个参数,更新完毕会自动启动主控程序; 如果传第3个参数,则更新程序标题为第3个参数。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值