[转]自己写的一个在线升级的程序!
来源:互联网 发布:国际英文域名的后缀 编辑:程序博客网 时间:2024/05/24 15:40
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();
}
- [转]自己写的一个在线升级的程序!
- 自己写的一个在线升级的程序!
- 让自己学会写的一个在线升级的程序
- 自己写的一个在线升级的程序!
- 自己写的一个在线升级的程序!
- 自己用delphi7参考网上资料写的一个在线升级程序
- 写一个用户在线显示的程序
- 如何写一个程序升级的service
- 自己写的一个ping程序
- 自己写的一个分页程序
- 自己写的一个分页程序
- 发一个自己写的服务程序
- 自己写的一个ping程序
- 自己写的一个练习程序
- 自己写的一个Android小程序
- 自己写的一个DELPHI 控制台程序
- 自己写的一个入栈程序
- 自己写的一个除法小程序
- 飘飞的chart
- 5.JBoss3.0中EJB使用JavaMail服务的配置
- WEB应用程序设计专业培养方案
- 全面掌握C#中的对话框
- 寻找短信发送网关Webservcie接口
- [转]自己写的一个在线升级的程序!
- 总结:VC小知识
- CString 操作指南
- 以下代码可以取得系统特征码(网卡MAC、硬盘序列号、CPU ID、BIOS编号)[转]
- url传递中文的解决方案
- Windows 下任务栏气球提示
- 暑假好无聊哦·
- 关于字段追加的sql找了好长时间没有找到的字段追加的函数.....
- 一个不错的IVR流程配置工具的CollectDTMFs的界面