龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > JAVA开发 >

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

时间:2009-12-23 15:42来源:未知 作者:admin 点击:
分享到:
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

  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,' ');
  tmp.TrimRight();
  tmp.TrimRight();
  arType.Add(tmp);
  }
  for(int j=2;j<=28;j+=2){
  AfxExtractSubString(tmp,szIniData,j,' ');
  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 = " 取得网络升级地址 "+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 = " 已经连通...... "+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 = " 检查"+arType[k]+"文件... 成功! "+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();
  }
  
精彩图集

赞助商链接