怎样利用wininet.dll 获得网上文件大小。

qubolz 2003-01-07 07:41:45
怎样利用wininet.dll 获得网上文件大小。
就是想不用控件实现获得网络文件的大小。谢谢了。
...全文
118 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
fling_boy 2003-01-07
  • 打赏
  • 举报
回复
如何从Internet上有效而稳定地下载文件 ,这是很多网络应用程序要考虑的重要问题,本文提供的代码段针对这个问题进行了初步的探索。希望能够抛砖引玉,对各位编程人员有所帮助。

UINT InternetGetFile (HINTERNET IN hOpen,
CHAR *szUrl,
CHAR *szFileName,
HWND hwndProgress,
int idStatusText,
int idProgressBar);

这里返回值的类型为UINT,如果成功返回0,否则返回非零值。为了使用这个函数,只需要提供一个有效的HINTERNET句柄,这个句柄可以通过标准的InternetOpen()掉用来获得。如果你愿意的话,你还可以将一个句柄提供给进度窗口(ID为一静态控制的标示符,用来显示状态),在这个函数的头几行代码中声明一些变量。

DWORD dwSize;
这个变量被用于存储每次调用InternetReadFile读取了多少数据。

CHAR szHead[] = "Accept: */*\r\n\r\n";
用于存储多个HTTP头信息。如果在调用InternetOpenUrl时不传递着个头信息,则只允许你打开文本文件!

VOID* szTemp[16384];
缓冲变量,可以存储来自Internet的16KB的文件数据。

HINTERNET hConnect;
这是一个HINTERNET句柄,包含请求结果(来自InternetOpenUrl)

FILE * pFile;
标准的C文件句柄(必须包含stdio.h)。如果你愿意,可以使用Win32处理文件的API

if (!(hConnect = InternetOpenUrlA (hOpen, szUrl, szHead, lstrlenA (szHead), INTERNET_FLAG_DONT_CACHE | INTERNET_FLAG_PRAGMA_NOCACHE | INTERNET_FLAG_RELOAD, 0)))
{
return INTERNET_ERROR_OPENURL;
}
此调用可以打开一个使用URL的Internet文件句柄。标志表示这个文件总是被读取,而不是缓存(cache)。如果失败,则此函数返回错误,你可以给定INTERNET_ERROR_OPENURL任何值。必须为这个函数定义所有的错误信息。也可以用一个数字替代。

if(!(pFile = fopen(szFileName, "wb" )))
{
return INTERNET_ERROR_FILEOPEN;
}
此调用根据给定的文件名打开文件。如果失败则返回另一个用户定义的错误。

DWORD dwByteToRead = 0;
DWORD dwSizeOfRq = 4;
DWORD dwBytes = 0;
这三个值分别存储文件的大小,HttpQueryInfo内容的大小和总共读取的字节数。

if (!HttpQueryInfo(hConnect, HTTP_QUERY_CONTENT_LENGTH | HTTP_QUERY_FLAG_NUMBER, (LPVOID)&dwByteToRead, &dwSizeOfRq, NULL))
{
dwByteToRead = 0;
}
此调用可以获得文件的大小。如果失败则dwByteToRead被置为0,并且当文件被下载时不会显示百分比和总数

DWORD start;
DWORD end;
DWORD time;
time = 10;
start = timeGetTime();
使用这些bit必须包含mmsystem.h并链接winmm.lib,它们用于时间选择,告诉用户下载的速度。例子代码只统计了下载速度,你可以扩展这个功能,比如估计还剩多少时间。

do
{
if (!InternetReadFile(hConnect, szTemp, 16384, &dwSize))
{
fclose (pFile);
return INTERNET_ERROR_READFILE;
}
此调用循环中,每次下载一个16KB的数据块。如果download请求失败,则文件被关闭并返回错误。

if (!dwSize)
break;
else
fwrite(szTemp, sizeof(char), dwSize, pFile);
如果dwSize为0,则意味着一个EOF,循环退出。否则由InternetReadFile读取的数据内容被写到本地文件中。

dwBytes+=dwSize;
if(dwByteToRead && hwndProgress)
{
SendDlgItemMessageA(hwndProgress, idProgressBar, WM_USER+2, (dwBytes*100)/dwByteToRead, 0);
UpdateWindow(hwndProgress);
}
这个代码中,dwBytes是从文件读取的数据量,它不断增加,如果文件长度是有效的,则进度窗口句柄被指定,进度条被更新已表示下载进度。

FLOAT fSpeed = 0;
fSpeed = (float)dwBytes;
fSpeed /= ((float)time)/1000.0f;
fSpeed /= 1024.0f;
这些bit代码用于根据所花时间计算下载速度和读取的数据量。

if(hwndProgress)
{
char s[260];
sprintf(s, "%d KB / %d KB @ %1.1f KB/s", dwBytes/1024, dwByteToRead/1024, fSpeed);
SetDlgItemTextA(hwndProgress, idStatusText, s);
UpdateWindow(hwndProgress);
}
设置和处理进度窗口的状态文本,表示下载的文件大小和下载速度。

end = timeGetTime();
time = end - start;
if(time == 0)
time = 10;

时间被更新

} // do
while (TRUE);

循环结束
fflush (pFile);
fclose (pFile);
return 0;
}
最后,函数结束,关闭文件并清除硬件驱动的缓冲。返回0表示成功。
feixuehenshui 2003-01-07
  • 打赏
  • 举报
回复
up
把.h文件里面的代码放出来一下,CPP就不放了,自己下载哦。 #ifndef Download_h__ #define Download_h__ #include <wininet.h> #pragma comment(lib,"wininet.lib") class CHttpGet { public: //测试网络是否连接成功。 BOOL TestNetworkIsConnected(); //动态获取URL的文件名。 //LPCTSTR szURL URL地址 //LPSTR pFileName 文件名缓冲区,获取到文件名后,会文件名放入到该buffer //DWORD dwBufferOfLenght pFileName缓冲区大小。 //pResult 是否成功。 BOOL HttpGetFileName(LPCTSTR szURL,LPSTR pFileName,DWORD dwBufferOfLenght,BOOL * pResult); //将文件下载到缓冲区,而不是保存到文件 //szURL URL地址 //szBuffer 缓冲区。 //dwSize 缓冲区大小 //lpdwSizeOfRet实际下载到的数据大小。 DWORD URLDownloadToBuffer(LPCTSTR szURL,LPBYTE szBuffer,DWORD dwSize,DWORD *lpdwSizeOfRet); //下载文件 //szURL URL地址 //szFileSavePath 文件完整保存路径 // CheckFileTypeIsPe 是否需要检测文件是不是PE文件。 DWORD URLDownloadToFile(LPCTSTR szURL,LPCTSTR szFileSavePath,BOOL CheckFileTypeIsPe); }; #endif // Download_h__ CPP部分代码,详细自己下载。 完全原创。代码注释详细。 使用及其方便... DWORD CHttpGet::URLDownloadToFile(LPCTSTR szURL,LPCTSTR szFileSavePath,BOOL CheckFileTypeIsPe) { if(!CheckUrl(szURL)) return FALSE; HINTERNET hInternetOpen = InternetOpen( "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)", INTERNET_OPEN_TYPE_PRECONFIG,/*返回注册表中代理或直接的配置*/ NULL,//不使用代理 所以不要设置用户名 NULL,//不使用代理 所以不用设置密码 NULL ); if(hInternetOpen == NULL) return FALSE; HINTERNET hInternetUrl = InternetOpenUrl( hInternetOpen, szURL, "Accept: */*",//支持左所有文件 -1, INTERNET_FLAG_RELOAD|INTERNET_FLAG_PRAGMA_NOCACHE,/*不要从缓冲里面获取数据 */ NULL); if(hInternetUrl == NULL) return FALSE; CHAR szStatus[1024]={NULL}; DWORD dwBufferLen = sizeof(szStatus); //查询状态 HttpQueryInfo(hInternetUrl,HTTP_QUERY_STATUS_CODE,szStatus,&dwBufferLen;,NULL); //4xx(请求错误) DWORD dwCode = atoi(szStatus); if( dwCode > 400 && dwCode < 500) return FALSE; //5xx(服务器错误) if( dwCode >500 && dwCode < 600) return FALSE; //开始下载文件 HANDLE hFile = CreateFile(szFileSavePath,GENERIC_WRITE,FILE_SHARE_WRITE,NULL,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL); if(hFile == INVALID_HANDLE_VALUE) { InternetCloseHandle(hInternetUrl); InternetCloseHandle(hInternetOpen); return FALSE; } CHAR szReadBuffer[4096]={NULL}; DWORD dwInternetReadOfByte = 0; DWORD dwWriteByte = 0; BOOL bFirst = FALSE; BOOL bResult = TRUE; do { BOOL bRet = InternetReadFile(hInternetUrl,szReadBuffer,sizeof(szReadBuffer),&dwInternetReadOfByte;); //说明文件传送完了。 if(bRet == TRUE && dwInternetReadOfByte == 0) break; if(bFirst == FALSE && CheckFileTypeIsPe==TRUE) { bFirst = TRUE; if(((PIMAGE_DOS_HEADER)szReadBuffer)->e_magic!= IMAGE_DOS_SIGNATURE) { bResult = FALSE; break; } } WriteFile(hFile,szReadBuffer,dwInternetReadOfByte,&dwWriteByte;,NULL); } while (TRUE); CloseHandle(hFile); InternetCloseHandle(hInternetUrl); InternetCloseHandle(hInternetOpen); return bResult; }
调用的DLL: .版本 2 .DLL命令 本地系统的连接状态, , "Wininet.dll", "InternetGetConnectedState" .参数 lpdwFlags, 整数型, 传址, 返回值 .参数 dwReserved, 整数型, , \\保留的参数 .DLL命令 打开Internet_, 整数型, "Wininet.dll", "InternetOpenA", , 返回Internet句柄 .参数 代理商名称, 文本型 .参数 存取类型, 整数型 .参数 代理名称, 整数型 .参数 代理地址, 整数型 .参数 标志, 整数型 .DLL命令 打开Internet地址_, 整数型, "Wininet.dll", "InternetOpenUrlA" .参数 Internet句柄, 整数型, , \\ InternetOpenA命令获取的Internet句柄 .参数 Url地址, 文本型, , \\指定要开始读取的URL。仅支持以ftp:,http:或https:开头的网址 .参数 头文本, 文本型 .参数 头文本长度, 整数型 .参数 标志, 整数型 .参数 定义值, 整数型 .DLL命令 HTTP查询信息, 整数型, "Wininet.dll", "HttpQueryInfoA" .参数 Internet请求句柄, 整数型 .参数 待查信息, 整数型 .参数 返回容器, 整数型, 传址 .参数 返回容器长度, 整数型, 传址 .参数 lpdwIndex, 整数型, 传址 .DLL命令 HTTP查询信息__, 整数型, "Wininet.dll", "HttpQueryInfoA" .参数 Internet请求句柄, 整数型 .参数 待查信息, 整数型 .参数 返回容器, 文本型, 传址 .参数 返回容器长度, 整数型, 传址 .参数 lpdwIndex, 整数型, 传址 .DLL命令 关闭Internet句柄, , "Wininet.dll", "InternetCloseHandle" .参数 handle, 整数型 .DLL命令 HTTP查询信息_, 整数型, "Wininet.dll", "HttpQueryInfoA" .参数 lpdwIndex, 整数型, 传址 .DLL命令 读Internet文件_, 整数型, "Wininet.dll", "InternetReadFile" .参数 Internet地址句柄, 整数型 .参数 数据缓冲区, 字节集 .参数 读取大小, 整数型 .参数 读取首地址, 整数型, 传址 .DLL命令 呼叫窗口函数地址_, 整数型, , "CallWindowProcA", , 消息信息传送给指定的窗口过程的函数。使用函数CallWindowsProc可进行窗口子分类。通常来说,同一类的所有窗口共享一个窗口过程。子类是一个窗口或者相同类的一套窗口,在其消息被传送到该类的窗口过程之前,这些消息是由另一个窗口过程进行解释和处理的。 .参数 子程序指针, 子程序指针, , 指向接收消息的窗口过程的句柄。 .参数 参数1, 整数型, , 指定消息类型。 .参数 参数2, 整数型, , 指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。 .参数 参数3, 整数型, , 指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。 .参数 参数4, 整数型, , 指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。
此示例演示在 Internet Explorer 4.0 WinInet.dll 中引入并记录在 Internet 客户端 SDK 中的 HttpSendRequestEx 函数的正确用法。 原始的 HttpSendRequest 函数有这样一个重大限制: 所有请求的数据都有一个缓冲区时调用该函数时将提供。这是通常不方便、 导致在某些客户端应用程序中,性能较差,可能会无法上载大量数据从客户端计算机使用有限的内存。新的 HttpSendRequestEx 函数允许启动请求,发送出数据分小段为可用,然后结束后已发送的所有数据的请求的程序。为了使此函数以处理计算机上必须安装 Internet Explorer 4.0。下列文件已可从 Microsoft 下载中心下载: Hsrex.exe 有关如何下载 Microsoft 支持文件的其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章: 119591 如何从在线服务获得 Microsoft 支持文件微软已对此文件进行病毒扫描。Microsoft 使用该文件投递日期时可用的最新的病毒检测软件。该文件存储在安全增强型服务器上,以防止对文件进行任何未经授权的更改。 Hsrex.exe 是自解压的存档文件,其中包含 BigPost.cpp (演示程序代码) 和 Readall.asp,一个 Active Server Pages (ASP) 脚本将读取所有发送 POST 请求中的数据。Readall.asp 是 BigPost,可以使用 Microsoft 互联网信息服务器 (IIS) 版本的支持 ASP 作为示例目标提供。对于其他 Web 服务器,您需要提供相应的服务器脚本来读取数据。 若要编译此程序包含在 Microsoft Visual C++ 5.0,请执行以下步骤: 1.运行 Visual C++ 和创建一个新的 Win32 控制台应用程序调用"BigPost"。 2.在目录中创建项目的位置,运行 Hsrex.exe。 3.将 BigPost.cpp 添加到 BigPost 项目。 4.转到项目设置对话框中,单击链接选项卡,然后添加到 WinInet.lib"对象/库模块:"字段。 5.请确保配置 Visual C++,以便编译器和链接器将使用 Wininet.h 和 Wininet.lib 从 Internet 客户端 SDK。如果未能做到这一点,将导致编译器或链接器错误。原型和 HttpSendRequestEx 的导出不包含 Visual C++ 中包含的包括和库文件。 6.生成项目。它将创建 BigPost.exe。 在程序运行,如下所示: BigPost < 大小 >< 服务器 >< 路径 > 例如,以下将开机自检 1 兆字节 (1024 KB) 到 http://yourserver/scripts/ReadAll.asp: 您的服务器 /scripts/ReadAll.asp BigPost 1024

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧