基于WinInet实现HTTP文件上传

Kanagawa

发布日期: 2018-12-20 09:23:40 浏览量: 1027
评分:
star star star star star star star star star star
*转载请注明来自write-bug.com

背景

之前写过基于WinInet的HTTP文件下载功能的小程序了,那就顺便把HTTP文件上传也一并写了吧,这样知识才算是比较完整了。相对于文件下载来说,文件上传过程原理也都差不多,只要注意些区别就好了。

现在,把基于WinInet的HTTP文件上传功能小程序的开发过程分享给大家,方便大家的参考。

前期准备

前期需要本地搭建一个测试环境,本文搭建的是一个本地的ASP网站,同时,使用asp写了一个接收上传数据存储为文件的小程序test1.asp。

搭建ASP服务器,可以参考本站上别人写的 “使用Windows7旗舰版64位来搭建ASP服务器环境” 这一篇文章,里面详细介绍了搭建过程和注意事项。同时,也可以参考 “修改ASP网站的文件传输大小的默认限制并对限制大小进行探索” 这一篇文章,介绍的是更改ASP网站上传的文件大小的限制。

搭建测试环境的原因,就是为了测试,才能知道文件有没有成功上传到服务器上。当然,有条件的,也可以自己在公网上搭建服务器,这样测试会更加真实。

主要函数介绍

介绍HTTP上传文件使用到的主要的WinInet库中的API函数。

1. InternetOpen介绍

函数声明

  1. HINTERNET InternetOpen(
  2. In LPCTSTR lpszAgent,
  3. In DWORD dwAccessType,
  4. In LPCTSTR lpszProxyName,
  5. In LPCTSTR lpszProxyBypass,
  6. In DWORD dwFlags
  7. );

参数
lpszAgent
指向一个空结束的字符串,该字符串指定调用WinInet函数的应用程序或实体的名称。使用此名称作为用户代理的HTTP协议。
dwAccessType
指定访问类型,参数可以是下列值之一:

Value Meaning
INTERNET_OPEN_TYPE_DIRECT 使用直接连接网络
INTERNET_OPEN_TYPE_PRECONFIG 获取代理或直接从注册表中的配置,使用代理连接网络
INTERNETOPEN_TYPE_PRECONFIG WITH_NO_AUTOPROXY 获取代理或直接从注册表中的配置,并防止启动Microsoft JScript或Internet设置(INS)文件的使用
INTERNET_OPEN_TYPE_PROXY 通过代理的请求,除非代理旁路列表中提供的名称解析绕过代理,在这种情况下,该功能的使用

lpszProxyName
指针指向一个空结束的字符串,该字符串指定的代理服务器的名称,不要使用空字符串;如果dwAccessType未设置为INTERNET_OPEN_TYPE_PROXY,则此参数应该设置为NULL。

lpszProxyBypass
指向一个空结束的字符串,该字符串指定的可选列表的主机名或IP地址。如果dwAccessType未设置为INTERNET_OPEN_TYPE_PROXY的 ,参数省略则为NULL。

dwFlags
参数可以是下列值的组合:

VALUE MEANING
INTERNET_FLAG_ASYNC 使异步请求处理的后裔从这个函数返回的句柄
INTERNET_FLAG_FROM_CACHE 不进行网络请求,从缓存返回的所有实体,如果请求的项目不在缓存中,则返回一个合适的错误,如ERROR_FILE_NOT_FOUND
INTERNET_FLAG_OFFLINE 不进行网络请求,从缓存返回的所有实体,如果请求的项目不在缓存中,则返回一个合适的错误,如ERROR_FILE_NOT_FOUND

返回值
成功:返回一个有效的句柄,该句柄将由应用程序传递给接下来的WinInet函数。
失败:返回NULL。

2. InternetConnect介绍

函数声明

  1. HINTERNET WINAPI InternetConnect(
  2. HINTERNET hInternet,
  3. LPCTSTR lpszServerName,
  4. INTERNET_PORT nServerPort,
  5. LPCTSTR lpszUserName,
  6. LPCTSTR lpszPassword,
  7. DWORD dwService,
  8. DWORD dwFlags,
  9. DWORD dwContext
  10. );

参数说明
hInternet:由InternetOpen返回的句柄。
lpszServerName:连接的ip或者主机名
nServerPort:连接的端口。
lpszUserName:用户名,如无置NULL。
lpszPassword:密码,如无置NULL。
dwService:使用的服务类型,可以使用以下

  • INTERNET_SERVICE_FTP = 1:连接到一个 FTP 服务器上
  • INTERNET_SERVICE_GOPHER = 2
  • INTERNET_SERVICE_HTTP = 3:连接到一个 HTTP 服务器上

dwFlags:文档传输形式及缓存标记。一般置0。
dwContext:当使用回叫信号时, 用来识别应用程序的前后关系。
返回值
成功返回非0。如果返回0。要InternetCloseHandle释放这个句柄。

3. HttpOpenRequest介绍

函数声明

  1. HINTERNET HttpOpenRequest(
  2. _In_ HINTERNET hConnect,
  3. _In_ LPCTSTR lpszVerb,
  4. _In_ LPCTSTR lpszObjectName,
  5. _In_ LPCTSTR lpszVersion,
  6. _In_ LPCTSTR lpszReferer,
  7. _In_ LPCTSTR *lplpszAcceptTypes,
  8. _In_ DWORD dwFlags,
  9. _In_ DWORD_PTR dwContext
  10. );

参数

hConnect:由InternetConnect返回的句柄。

lpszVerb:一个指向某个包含在请求中要用的动词的字符串指针。如果为NULL,则使用“GET”。

lpszObjectName:一个指向某个包含特殊动词的目标对象的字符串的指针。通常为文件名称、可执行模块或者查找标识符。

lpszVersion:一个指向以null结尾的字符串的指针,该字符串包含在请求中使用的HTTP版本,Internet Explorer中的设置将覆盖该参数中指定的值。如果此参数为NULL,则该函数使用1.1或1.0的HTTP版本,这取决于Internet Explorer设置的值。

lpszReferer:一个指向指定了包含着所需的URL (pstrObjectName)的文档地址(URL)的指针。如果为NULL,则不指定HTTP头。

lplpszAcceptTypes:一个指向某空终止符的字符串的指针,该字符串表示客户接受的内容类型。如果该字符串为NULL,服务器认为客户接受“text/*”类型的文档 (也就是说,只有纯文本文档,并且不是图片或其它二进制文件)。内容类型与CGI变量CONTENT_TYPE相同,该变量确定了要查询的含有相关信息的数据的类型,如HTTP POST和PUT。

dwFlags:dwFlags的值可以是下面一个或者多个。

价值 说明
INTERNET_FLAG_DONT_CACHE 不缓存的数据,在本地或在任何网关。 相同的首选值INTERNET_FLAG_NO_CACHE_WRITE。
INTERNET_FLAG_EXISTING_CONNECT 如果可能的话,重用现有的连接到每个服务器请求新的请求而产生的InternetOpenUrl创建一个新的会话。 这个标志是有用的,只有对FTP连接,因为FTP是唯一的协议,通常在同一会议执行多个操作。 在Win 32 API的缓存一个单一的Internet连接句柄为每个HINTERNET处理产生的InternetOpen。
INTERNET_FLAG -超链接 强制重载如果没有到期的时间也没有最后修改时间从服务器在决定是否加载该项目从网络返回。
INTERNET_FLAG_IGNORE_CERT_CN_INVALID 禁用的Win32上网功能的SSL /厘为基础的打击是从给定的请求服务器返回的主机名称证书检查。 Win32的上网功能用来对付证书由匹配主机名和HTTP请求一个简单的通配符规则比较简单的检查。
INTERNET_FLAG_IGNORE_CERT_DATE_INVALID 禁用的Win32上网功能的SSL /厘为基础的HTTP请求适当的日期,证书的有效性检查。
INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP 禁用的Win32上网功能能够探测到这种特殊类型的重定向。 当使用此标志,透明的Win32上网功能允许对HTTP重定向的URL从HTTPS。
INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS 禁用的Win32上网功能能够探测到这种特殊类型的重定向。 当使用此标志,透明的Win32上网功能允许从HTTP重定向到HTTPS网址。
INTERNET_FLAG_KEEP_CONNECTION 使用保持活动语义,如果有的话,给HTTP请求连接。 这个标志是必需的微软网络(MSN),NT LAN管理器(NTLM)和其他类型的身份验证。
INTERNET_FLAG_MAKE_PERSISTENT 不再支持。
INTERNET_FLAG_MUST_CACHE_REQUEST 导致一个临时文件如果要创建的文件不能被缓存。 相同的首选值INTERNET_FLAG_NEED_FILE。
INTERNET_FLAG_NEED_FILE 导致一个临时文件如果要创建的文件不能被缓存。
INTERNET_FLAG_NO_AUTH 不尝试HTTP请求身份验证自动。
INTERNET_FLAG_NO_AUTO_REDIRECT 不自动处理HTTP请求重定向只。
INTERNET_FLAG_NO_CACHE_WRITE 不缓存的数据,在本地或在任何网关。
INTERNET_FLAG_NO_COOKIES 不会自动添加Cookie标头的请求,并不会自动添加返回的Cookie的HTTP请求的Cookie数据库。
INTERNET_FLAG_NO_UI 禁用cookie的对话框。
INTERNET_FLAG_PASSIVE 使用被动FTP语义FTP文件和目录。
INTERNET_FLAG_RAW_DATA 返回一个数据WIN32_FIND_DATA结构时,FTP目录检索信息。 如果这个标志,或者未指定代理的电话是通过一个CERN,InternetOpenUrl返回的HTML版本的目录。
INTERNET_FLAG_PRAGMA_NOCACHE 强制要求被解决的原始服务器,即使在代理缓存的副本存在。
INTERNET_FLAG_READ_PREFETCH 该标志目前已停用。
INTERNET_FLAG_RELOAD 从导线获取数据,即使是一个本地缓存。
INTERNET_FLAG_RESYNCHRONIZE 重整HTTP资源,如果资源已被修改自上一次被下载。 所有的FTP资源增值。
INTERNET_FLAG_SECURE 请确保在使用SSL或PCT线交易。 此标志仅适用于HTTP请求。

dwContext:OpenRequest操作的上下文标识符。

4. WinHttpAddRequestHeaders介绍

函数声明

  1. BOOL WINAPI WinHttpAddRequestHeaders(
  2. In HINTERNET hRequest,
  3. In LPCWSTR pwszHeaders,
  4. In DWORD dwHeadersLength,
  5. In DWORD dwModifiers
  6. );

作用

添加一个HTTP的请求头域。

参数

  • hRequest [in]
    一个HINTERNET句柄通过调用WinHttpOpenRequest返回。
  • pwszHeaders [in]
    请求的头域字符串,每个头域(多个头域以)使用回车换行(\r\n)结束
  • dwHeadersLength [in]
    无符号长整型变量,指向pwszHeaders的长度,如果该参数为(ulong)-1L时,自动以”/0”结束来计算pwszHeaders的长度。
  • dwModifiers [in]
    头域的修改模式。包括如下值:
    WINHTTP_ADDREQ_FLAG_ADD 添加一个头域,如果头域存在时值将被新添加的值替换。与WINHTTP_ADDREQ_FLAG_REPLAC一起使用
    WINHTTP_ADDREQ_FLAG_ADD_IF_NEW 添加一个不存在头域,如果该头域存在则返回一个错误。
    WINHTTP_ADDREQ_FLAG_COALESCE 将同名的头域进行合并。
    WINHTTP_ADDREQ_FLAG_COALESCE_WITH_COMMA 合并同名的头域,值使用逗号隔开。
    WINHTTP_ADDREQ_FLAG_COALESCE_WITH_SEMICOLON 合并同名的头域,值使用分号隔开。
    WINHTTP_ADDREQ_FLAG_REPLACE 替换和删除一个头域,如果值为空,则删除,否则被替换。

返回值

返回值为假时,使用GetLastError来得到错误信息。
err code:
ERROR_WINHTTP_INCORRECT_HANDLE_STATE 请求不能被执行,因为句柄的状态不正确
ERROR_WINHTTP_INCORRECT_HANDLE_TYPE 请求的句柄类型不正确
ERROR_WINHTTP_INTERNAL_ERROR 内部错误
ERROR_NOT_ENOUGH_MEMORY 没有足够的内存来完成操作。

5. InternetWriteFile介绍

函数声明

  1. BOOL InternetWriteFile(
  2. __in HINTERNET hFile,
  3. __out LPVOID lpBuffer,
  4. __in DWORD dwNumberOfBytesToRead,
  5. __out LPDWORD lpdwNumberOfBytesRead
  6. );

参数

  • hFile[in]

    由InternetOpenUrl,FtpOpenFile, 或HttpOpenRequest函数返回的句柄.

  • lpBuffer[out]

    缓冲器指针

  • dwNumberOfBytesToRead[in]

    欲写入数据的字节量。

  • lpdwNumberOfBytesRead[out]

    接收写入字节量的变量。该函数在做任何工作或错误检查之前都设置该值为零

返回值
成功:返回TRUE,失败,返回FALSE

程序设计原理

该部分讲解下程序设计的原理以及实现的流程,让大家有个宏观的认识。原理是:

  • 首先,使用 InternetCrackUrl 函数分解URL,从URL中提取网站的域名、路径以及URL的附加信息等。关于 InternetCrackUrl 分解URL的介绍和实现,可以参考 “URL分解之InternetCrackUrl” 这篇文章

  • 使用 InternetOpen 建立会话,获取会话句柄

  • 使用 InternetConnect 与网站建立连接,获取连接句柄

  • 设置HTTP的访问标志,使用 HttpOpenRequest 打开HTTP的“POST”请求

  • 构造请求信息头字符串,并使用 HttpAddRequestHeaders 附加请求信息头

  • 使用 HttpSendRequestEx发送访问请求

  • 使用 InternetWriteFile 上传数据

  • 数据上传完毕之后,使用 HttpEndRequest 函数结束请求

  • 关闭句柄,释放资源

其中,需要注意的是第 5 步,这一步是与HTTP文件下载不同的地方,这一步需要构造请求信息头,所以构造请求信息头的字符串的时候,一定要严格按照协议格式去构造。例如回车换行、空格之类的。

编程实现

1. 导入WinInet库

  1. #include <WinInet.h>
  2. #pragma comment(lib, "WinInet.lib")

2. HTTP文件上传编程实现

  1. // 数据上传
  2. // 输入:上传数据的URL路径、上传数据内容、上传数据内容长度
  3. BOOL Http_Upload(char *pszUploadUrl, BYTE *pUploadData, DWORD dwUploadDataSize)
  4. {
  5. // INTERNET_SCHEME_HTTPS、INTERNET_SCHEME_HTTP、INTERNET_SCHEME_FTP等
  6. char szScheme[MAX_PATH] = { 0 };
  7. char szHostName[MAX_PATH] = { 0 };
  8. char szUserName[MAX_PATH] = { 0 };
  9. char szPassword[MAX_PATH] = { 0 };
  10. char szUrlPath[MAX_PATH] = { 0 };
  11. char szExtraInfo[MAX_PATH] = { 0 };
  12. ::RtlZeroMemory(szScheme, MAX_PATH);
  13. ::RtlZeroMemory(szHostName, MAX_PATH);
  14. ::RtlZeroMemory(szUserName, MAX_PATH);
  15. ::RtlZeroMemory(szPassword, MAX_PATH);
  16. ::RtlZeroMemory(szUrlPath, MAX_PATH);
  17. ::RtlZeroMemory(szExtraInfo, MAX_PATH);
  18. // 分解URL
  19. if (FALSE == Http_UrlCrack(pszUploadUrl, szScheme, szHostName, szUserName, szPassword, szUrlPath, szExtraInfo, MAX_PATH))
  20. {
  21. return FALSE;
  22. }
  23. // 数据上传
  24. HINTERNET hInternet = NULL;
  25. HINTERNET hConnect = NULL;
  26. HINTERNET hRequest = NULL;
  27. DWORD dwOpenRequestFlags = 0;
  28. BOOL bRet = FALSE;
  29. DWORD dwRet = 0;
  30. unsigned char *pResponseHeaderIInfo = NULL;
  31. DWORD dwResponseHeaderIInfoSize = 2048;
  32. BYTE *pBuf = NULL;
  33. DWORD dwBufSize = 64 * 1024;
  34. BYTE *pResponseBodyData = NULL;
  35. DWORD dwResponseBodyDataSize = 0;
  36. DWORD dwOffset = 0;
  37. do
  38. {
  39. // 建立会话
  40. hInternet = ::InternetOpen("WinInetPost/0.1", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
  41. if (NULL == hInternet)
  42. {
  43. Http_ShowError("InternetOpen");
  44. break;
  45. }
  46. // 建立连接
  47. hConnect = ::InternetConnect(hInternet, szHostName, INTERNET_DEFAULT_HTTP_PORT, szUserName, szPassword, INTERNET_SERVICE_HTTP, 0, 0);
  48. if (NULL == hConnect)
  49. {
  50. Http_ShowError("InternetConnect");
  51. break;
  52. }
  53. // 打开并发送HTTP请求
  54. dwOpenRequestFlags = INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP |
  55. INTERNET_FLAG_KEEP_CONNECTION |
  56. INTERNET_FLAG_NO_AUTH |
  57. INTERNET_FLAG_NO_COOKIES |
  58. INTERNET_FLAG_NO_UI;
  59. if (0 < ::lstrlen(szExtraInfo))
  60. {
  61. // 注意此处的连接
  62. ::lstrcat(szUrlPath, szExtraInfo);
  63. }
  64. hRequest = ::HttpOpenRequest(hConnect, "POST", szUrlPath, NULL, NULL, NULL, dwOpenRequestFlags, 0);
  65. if (NULL == hRequest)
  66. {
  67. Http_ShowError("HttpOpenRequest");
  68. break;
  69. }
  70. // 附加 请求头(可以写也可以不写, 不写的话直接发送数据也可以, 主要是看服务端和客户端的数据传输约定; 批量发送的时候要用到)
  71. // 数据边界
  72. char szBoundary[] = "-------------MyUploadBoundary";
  73. char szRequestHeaders[MAX_PATH] = {0};
  74. ::RtlZeroMemory(szRequestHeaders, MAX_PATH);
  75. // 构造 请求头数据信息
  76. ::wsprintf(szRequestHeaders,
  77. "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/xaml+xml,*/*\r\n"
  78. "Accept-Encoding: gzip, deflate\r\n"
  79. "Accept-Language: zh-cn\r\n"
  80. "Content-Type: multipart/form-data; boundary=%s\r\n"
  81. "Cache-Control: no-cache\r\n\r\n",
  82. szBoundary);
  83. bRet = ::HttpAddRequestHeaders(hRequest, szRequestHeaders, ::lstrlen(szRequestHeaders), HTTP_ADDREQ_FLAG_ADD);
  84. if (FALSE == bRet)
  85. {
  86. break;
  87. }
  88. // 构造将要发送的数据包格式
  89. // 1. 文件数据前缀(可选)
  90. char szPreData[1024] = {0};
  91. int iPostValue = 7758;
  92. char szUploadFileName[] = "C:\\User\\DemonGan.txt";
  93. ::RtlZeroMemory(szPreData, 1024);
  94. ::wsprintf(szPreData,
  95. "--%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%d\r\n"
  96. "--%s\r\nContent-Disposition: form-data; name=\"%s\"; filename=\"%s\"\r\n"
  97. // 二进制数据流 --> (jpg || jpeg file)"Content-Type: image/pjpeg\r\n\r\n" -->
  98. // (gif file)"Content-Type: image/gif\r\n\r\n" --> (png file)"Content-Type: image/x-png\r\n\r\n"
  99. "Content-Type: application/octet-stream\r\n\r\n",
  100. szBoundary, "MyValue", iPostValue,
  101. szBoundary, "MyUploadFileName", szUploadFileName);
  102. // 2. 上传主体内容数据(可以是多个文件数据, 但是要用 szBoundary 分开)
  103. // ----> pUploadData
  104. // 3.结束后缀(可选)
  105. char szSufData[1024] = {0};
  106. ::RtlZeroMemory(szSufData, 1024);
  107. ::wsprintf(szSufData,
  108. "\r\n--%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%s\r\n--%s--",
  109. szBoundary, "MyUploadOver", "OVER", szBoundary);
  110. // 计算数据包的大小 = 前缀数据包大小 + 主体数据大小 + 后缀数据包大小
  111. // 并 发送请求, 告诉服务器传输数据的总大小
  112. DWORD dwPostDataSize = ::lstrlen(szPreData) + dwUploadDataSize + ::lstrlen(szSufData);
  113. // DWORD dwPostDataSize = dwUploadDataSize;
  114. INTERNET_BUFFERS internetBuffers = {0};
  115. ::RtlZeroMemory(&internetBuffers, sizeof(internetBuffers));
  116. internetBuffers.dwStructSize = sizeof(internetBuffers);
  117. internetBuffers.dwBufferTotal = dwPostDataSize;
  118. bRet = ::HttpSendRequestEx(hRequest, &internetBuffers, NULL, 0, 0);
  119. if (FALSE == bRet)
  120. {
  121. break;
  122. }
  123. // 发送数据
  124. // 发送前缀数据(可选)
  125. bRet = ::InternetWriteFile(hRequest, szPreData, ::lstrlen(szPreData), &dwRet);
  126. if (FALSE == bRet)
  127. {
  128. break;
  129. }
  130. // 发送主体内容数据
  131. bRet = ::InternetWriteFile(hRequest, pUploadData, dwUploadDataSize, &dwRet);
  132. if (FALSE == bRet)
  133. {
  134. break;
  135. }
  136. // 发送后缀数据(可选)
  137. bRet = ::InternetWriteFile(hRequest, szSufData, ::lstrlen(szSufData), &dwRet);
  138. if (FALSE == bRet)
  139. {
  140. break;
  141. }
  142. // 发送完毕, 结束请求
  143. bRet = ::HttpEndRequest(hRequest, NULL, 0, 0);
  144. if (FALSE == bRet)
  145. {
  146. break;
  147. }
  148. // 接收来自服务器响应的数据
  149. // 接收响应的报文信息头(Get Response Header)
  150. pResponseHeaderIInfo = new unsigned char[dwResponseHeaderIInfoSize];
  151. if (NULL == pResponseHeaderIInfo)
  152. {
  153. break;
  154. }
  155. ::RtlZeroMemory(pResponseHeaderIInfo, dwResponseHeaderIInfoSize);
  156. bRet = ::HttpQueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, pResponseHeaderIInfo, &dwResponseHeaderIInfoSize, NULL);
  157. if (FALSE == bRet)
  158. {
  159. Http_ShowError("HttpQueryInfo");
  160. break;
  161. }
  162. #ifdef _DEBUG
  163. printf("[HTTP_Upload_ResponseHeaderIInfo]\n\n%s\n\n", pResponseHeaderIInfo);
  164. #endif
  165. // 从 中字段 "Content-Length: "(注意有个空格) 获取数据长度
  166. bRet = Http_GetContentLength((char *)pResponseHeaderIInfo, &dwResponseBodyDataSize);
  167. if (FALSE == bRet)
  168. {
  169. break;
  170. }
  171. // 接收报文主体内容(Get Response Body)
  172. pBuf = new BYTE[dwBufSize];
  173. if (NULL == pBuf)
  174. {
  175. break;
  176. }
  177. pResponseBodyData = new BYTE[dwResponseBodyDataSize];
  178. if (NULL == pResponseBodyData)
  179. {
  180. break;
  181. }
  182. ::RtlZeroMemory(pResponseBodyData, dwResponseBodyDataSize);
  183. do
  184. {
  185. ::RtlZeroMemory(pBuf, dwBufSize);
  186. bRet = ::InternetReadFile(hRequest, pBuf, dwBufSize, &dwRet);
  187. if (FALSE == bRet)
  188. {
  189. Http_ShowError("InternetReadFile");
  190. break;
  191. }
  192. ::RtlCopyMemory((pResponseBodyData + dwOffset), pBuf, dwRet);
  193. dwOffset = dwOffset + dwRet;
  194. } while (dwResponseBodyDataSize > dwOffset);
  195. } while (FALSE);
  196. // 关闭 释放
  197. if (NULL != pResponseBodyData)
  198. {
  199. delete[]pResponseBodyData;
  200. pResponseBodyData = NULL;
  201. }
  202. if (NULL != pBuf)
  203. {
  204. delete[]pBuf;
  205. pBuf = NULL;
  206. }
  207. if (NULL != pResponseHeaderIInfo)
  208. {
  209. delete[]pResponseHeaderIInfo;
  210. pResponseHeaderIInfo = NULL;
  211. }
  212. if (NULL != hRequest)
  213. {
  214. ::InternetCloseHandle(hRequest);
  215. hRequest = NULL;
  216. }
  217. if (NULL != hConnect)
  218. {
  219. ::InternetCloseHandle(hConnect);
  220. hConnect = NULL;
  221. }
  222. if (NULL != hInternet)
  223. {
  224. ::InternetCloseHandle(hInternet);
  225. hInternet = NULL;
  226. }
  227. return bRet;
  228. }

3. ASP接收文件程序mytest1.asp

  1. <%'ASP文件接收程序
  2. dim file,obj,fso
  3. file = Trim(Request("file"))
  4. If file = "" Then Response.Write "上传错误文件名未指定": Response.End
  5. Set obj = Server.CreateObject("Adodb.Stream")
  6. With obj
  7. .Type = 1
  8. .Mode = 3
  9. .Open
  10. .Write Request.BinaryRead(Request.TotalBytes)
  11. .Position = 0
  12. .SaveToFile Server.Mappath(file), 2
  13. .Close
  14. End With
  15. Set obj = Nothing
  16. Set fso = CreateObject("Scripting.FileSystemObject")
  17. If fso.FileExists(Server.Mappath(file)) Then
  18. Response.Write "上传成功"
  19. Else
  20. Response.Write "上传失败"
  21. End If
  22. Set fso = Nothing
  23. %>

程序测试

在main函数中,调用上述封装好的函数,上传文件进行测试。

main函数为:

  1. int _tmain(int argc, _TCHAR* argv[])
  2. {
  3. char szHttpUploadUrl[] = "http://192.168.28.137/mytest1.asp?file=myyyyytestupload1";
  4. char szHttpUploadFileName[] = "C:\\Users\\Desktop\\520.zip";
  5. BYTE *pHttpUploadData = NULL;
  6. DWORD dwHttpUploadDataSize = 0;
  7. DWORD dwRet = 0;
  8. // 打开文件
  9. HANDLE hFile = ::CreateFile(szHttpUploadFileName, GENERIC_READ | GENERIC_WRITE,
  10. FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING,
  11. FILE_ATTRIBUTE_ARCHIVE, NULL);
  12. if (INVALID_HANDLE_VALUE == hFile)
  13. {
  14. Http_ShowError("CreateFile");
  15. return 5;
  16. }
  17. // 获取文件大小
  18. dwHttpUploadDataSize = ::GetFileSize(hFile, NULL);
  19. // 读取文件数据
  20. pHttpUploadData = new BYTE[dwHttpUploadDataSize];
  21. ::ReadFile(hFile, pHttpUploadData, dwHttpUploadDataSize, &dwRet, NULL);
  22. dwHttpUploadDataSize = dwRet;
  23. // 上传数据
  24. if (FALSE == Http_Upload(szHttpUploadUrl, pHttpUploadData, dwHttpUploadDataSize))
  25. {
  26. return 1;
  27. }
  28. // 释放内存
  29. delete []pHttpUploadData;
  30. pHttpUploadData = NULL;
  31. ::CloseHandle(hFile);
  32. system("pause");
  33. return 0;
  34. }

测试结果:

根据传输返回的Response Header可知,数据上传成功。

查看ASP服务器目录,成功获取17795KB大小的“mmyyyytestupload1”文件。

总结

相对与HTTP的文件下载,HTTP文件上传需要注意两点。一是要注意HttpOpenRequest 中要打开“POST”请求;二是在构造请求头信息的时候,一定要严格按照协议格式去写,具体格式可以到网上搜索。

参考

参考自《Windows黑客编程技术详解》一书

上传的附件 cloud_download HTTP_Upload_Test.7z ( 150.34kb, 9次下载 )

发送私信

世間萬物不及你眼中點點星辰

17
文章数
18
评论数
最近文章
eject