VC下载文件 + 显示进度条

在codeproject里找了许久，发现这样一个VC下载文件并显示进度条的源码，于是添加了些中文注释：

1、下载线程函数：

1. UINT DownloadFile(LPVOID pParam)
2. {
3. CWnd*           pwnd = AfxGetMainWnd();
4. CProgressCtrl*  m_Prog = (CProgressCtrl*)pwnd->GetDlgItem(IDC_PROGRESS1);
5. CButton*        bStart = (CButton*)pwnd->GetDlgItem(IDB_BTN_START);
6. char                filebuf[512];
7. CInternetSession    netSession;
8. CStdioFile          *fTargFile;
9. int                 outfs;
10. CString             szFile,FileSize,KBin,KBsec,NewName,Perc;
11. try
12. {
13. pwnd->GetDlgItemText(IDC_EDIT1,szFile);
14. pwnd->SetDlgItemText(IDC_STAT,"正在校验下载地址...");
15. fTargFile = netSession.OpenURL(szFile,1,INTERNET_FLAG_TRANSFER_BINARY | INTERNET_FLAG_RELOAD);
16. nDownloaded = 1;
17. COleDateTime dlStart = COleDateTime::GetCurrentTime();
18. int filesize = fTargFile->SeekToEnd();
19. fTargFile->SeekToBegin();
20. outfs = filesize / 1024;        // 计算文件大小（千字节）
21. FileSize.Format("%d",outfs);    // 以KB为单位格式文件大小
22. // 在当前目录创建新的目标文件
23. CFile fDestFile(fTargFile->GetFileName(), CFile::modeCreate | CFile::modeWrite | CFile::typeBinary);
24. int byteswrite;     // 写入文件的字节数
25. int pos = 0;        // 当前进度条的位置
26. int nperc,kbrecv;   // 进度条的百分比,获取到的数据大小（Kbs为单位）
27. double secs,kbsec;  // 记录秒数, 速度（KB/秒）
28. // 如果文件名太长，缩短窗口的标题并在状态显示
29. NewName = fTargFile->GetFileName();                  // 获取新文件名
30. if(fTargFile->GetFileName().GetLength() >= 10)
31. {
32. NewName = fTargFile->GetFileName().Mid(0,7); // 分割文件
33. NewName = NewName + "...";
34. }
35. pwnd->SetDlgItemText(IDC_STAT,"正在下载...");
36. m_Prog->SetRange32(0,filesize);
37. while (byteswrite = fTargFile->Read(filebuf, 512))   // 读取文件
38. {
39. if(nTerminate == 1)                     // 如果点击取消下载
40. {
41. fDestFile.Close();                  // 关闭我们的目标文件
42. fTargFile->Close();                  // 关闭远程文件
43. delete fTargFile;                   // 删除CStdioFile对象，以防止泄漏
44. pwnd->SetDlgItemText(IDC_STAT,"下载时已被用户取消！"); // Set satus bar text
45. AfxEndThread(0);                    // 结束下载线程
46. }
47. // 根据开始时间与当前时间比较，获取秒数
48. COleDateTimeSpan dlElapsed = COleDateTime::GetCurrentTime() - dlStart;
49. secs = dlElapsed.GetTotalSeconds();
50. pos = pos + byteswrite;                 // 设置新的进度条位置
51. fDestFile.Write(filebuf, byteswrite);   // 将实际数据写入文件
52. m_Prog->SetPos(pos);
53. nperc = pos * 100 / filesize;           // 进度百分比
54. kbrecv = pos / 1024;                    // 获取收到的数据
55. kbsec = kbrecv / secs;                  // 获取每秒下载多少（KB）
56. Perc.Format("%d",nperc);                // 格式化进度百分比
57. KBin.Format("%d",kbrecv);               // 格式化已下载数据大小（KB）
58. KBsec.Format("%d",(int)kbsec);          // 格式化下载速度（KB/秒）
59. pwnd->SetDlgItemText(IDC_EDIT_FILESIZE,FileSize + "KB");// 远程文件大小
60. pwnd->SetDlgItemText(IDC_EDIT_SIZEOK,KBin + "KB");       // 已下载大小
61. pwnd->SetDlgItemText(IDC_EDIT2,KBsec + "KB/秒");      // 下载速度
62. pwnd->SetDlgItemText(IDC_EDIT4,Perc + "%");              // 进度百分比
63. }
64. // 下载完成，关闭文件
65. fDestFile.Close();
66. }
67. catch(CInternetException *IE)
68. {
69. CString strerror;
70. TCHAR error[255];
71. IE->GetErrorMessage(error,255); // 获取错误消息
72. strerror = error;
73. pwnd->SetDlgItemText(IDC_STAT,strerror);
74. pwnd->SetDlgItemText(IDB_BTN_STOP,"Exit");
75. nDownloaded = 0;
76. delete fTargFile;
77. IE->Delete();                    // 删除异常对象，以防止泄漏
78. }
79. // 恢复默认
80. pwnd->SetDlgItemText(IDC_EDIT2,"Kb/秒");
81. pwnd->SetDlgItemText(IDC_EDIT3,"Loading...");
82. pwnd->SetDlgItemText(IDC_EDIT4,"0%");
83. delete fTargFile;
84. if(nDownloaded == 1)
85. {
86. pwnd->SetDlgItemText(IDC_STAT,"下载完成！");
87. bStart->EnableWindow(TRUE);
88. }
89. return 0;
90. }

2、程序运行效果：

3、源码下载：

http://download.csdn.net/source/1674247

http://www.rayfile.com/files/047e5e02-a3a6-11de-9dba-0014221b798a/

http://blog.csdn.net/wangningyu/article/details/4564818