利用HttpSendRequestAPI函数上载二进制大文件.doc

张嘉惠，崔超艳 （陕西微生物研究所，西安 710043） 摘 要： 通过微生物菌种资源数据库编程实例，详细解读了上传二进制数时自动进行的编码转换和数据溢出的问 题，并提出了有效的解决办法。 关键词： HttpSendRequest； API； 函数； 上载； 二进制大文件 The Datailed Interpretation of Uploading Large Binary Documents with HttpSendRequest API ZHANG Jiahui , CUI Chaoyan （Shanxi Microbiology Institute , Xian 710043） Abstract：According to the programming e xample of Strain Database ,We have interpreted the automatic code conversion and date overflew in updoading large binary documents ,and have gotten the effective solution. Key words：HttpSendRequest ; API ; function ; upload ; large binary documents 近年来，随着多媒体数据库的引入，对数据的管理方法 又开始酝酿新的变革，微生物菌种资源数据库也运用了多媒 体数据库技术。当图像、声音、动态视频等多媒体信息引入 计算机之后，可以表达的信息范围大大扩展，但又带来许多 新的问题，如本文要解决的数据上传问题。通常将声音、动 态视频等大文件用 http 方 式 上 载 到 IIS 服务器上需要用到 HttpSendRequest API 函 数 ， 但 由 于 程 序 员 在 使 用 HttpSendRequest API 函数时对其理解不够透彻，从而导致文 件上载过慢甚至失败。通过详细阐述 HttpSendRequest API 函 数上载二进制大文件时应注意的问题及其解决办法使程序员 在编程过程中能正确的编写代码，达到预期效果，开发出更 灵活、更实用、更具效率的应用程序。 1 一般情况 一般情况下，HttpSendRequest API 函数可以 上 传 字 符 的 字节数据到服务器端的缓冲区，再由服务器端程序的接收程 序从缓冲区取出数据来使用。 将 API 函数在模块级中定义 （仅定义 HttpSendRequest 函 数，其它用到的 API 函数读者可参照定义）： ------------------------------- 向 HTTP 服务器发送指定的请求和数据 ------------------------------- LoadPostData= False hInternetSession = 0 hInternetConnect = 0 hHttpOpenRequest = 0 srv = Mid (sUrl, 8, InStr (8, sUrl, /) - 8) 取 sUrl 参数中的 IP 地址或域名部分 script = Mid (sUrl, InStr (8, sUrl, /)) 取 sUrl 参数中的虚拟目录和文档部分 port = 80 端口 hInternetSession = InternetOpen (App.EXEName, _ INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) If hInternetSession 0 Then hInternetConnect = InternetConnect (hInternetSession, _ srv $ , port $ , vbNullString, HTTP/1.1 ,INTER－ NET_SERVICE_HTTP, 0, 0) If hInternetConnect 0 Then hHttpOpenRequest = HttpOpenRequest ( hInternetCon－ nect, _ POST ,script$, HTTP/1.1 ,vbNullString,0, _ INTERNET_FLAG_NO_CACHE_WRITE, 0) If hHttpOpenRequest 0 Then sHeader = Content -Type:www -code -urlencoded vbCrLf bRet = HttpAddRequestHeaders ( hHttpOpenRe