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

核心提示：void CUpdateDlg::OnButtonDoupdate(){// 读取升级文件CFileStatus rStatus;CString szIniData;CString inFile;CString tmp;inFile=m_szPath+"\\update.ini";CFile Upd

　　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();
　　}