• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi用WinInet单元实现POST提交数据

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
由于贪方便,用idhttp控件实现POST部分。结果发现频繁提交的时候总产生10054 等N多不可控错误。遂想换其它方法。百度找了下。基本都是靠webbrowser 、idhttp等控件提交的。于是,摸索着用 wininet.dll的api自己实现了一个webpost。效果不错。特地贴上方便自己以后检索。
function WebPagePost(sURL,sPostData:string):Pointer;stdcall; const RequestMethod = 'POST'; HTTP_VERSION = 'HTTP/1.1'; //HTTP版本 我抓包看过 HTTP/1.0 HTTP/1.1。尚未仔细了解其区别。按MSDN来写的。留空默认是1.0 var dwSize:DWORD; dwFileSize: Int64; dwBytesRead,dwReserved:DWORD; hInte,hConnection,hRequest:HInternet; ContentSize:array[1..1024] of Char; HostPort:Integer; HostName,FileName,sHeader:String; procedure ParseURL(URL: string;var HostName,FileName:string;var HostPort:Integer); var i,p,k: DWORD; function StrToIntDef(const S: string; Default: Integer): Integer; var E: Integer; begin Val(S, Result, E); if E <> 0 then Result := Default; end; begin if lstrcmpi('http://',PChar(Copy(URL,1,7))) = 0 then System.Delete(URL, 1, 7); HostName := URL; FileName := '/'; HostPort := INTERNET_DEFAULT_HTTP_PORT; i := Pos('/', URL); if i <> 0 then begin HostName := Copy(URL, 1, i-1); FileName := Copy(URL, i, Length(URL) - i + 1); end; p:=pos(':',HostName); if p <> 0 then begin k:=Length(HostName)-p; HostPort:=StrToIntDef(Copy(HostName,p+1,k),INTERNET_DEFAULT_HTTP_PORT); Delete(HostName,p,k+1); end; end; begin Result := Pointer(-1); dwFileSize :=0; ParseURL(sURL,HostName,FileName,HostPort); // 函数原型见 http://technet.microsoft.com/zh-cn/subscriptions/aa385096(v=vs.85).aspx hInte := InternetOpen('', //UserAgent INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); if hInte<>nil then begin hConnection := InternetConnect(hInte, // 函数原型见 http://technet.microsoft.com/zh-cn/query/ms909418 PChar(HostName), HostPort, nil, nil, INTERNET_SERVICE_HTTP, 0, 0); if hConnection<>nil then begin hRequest := HttpOpenRequest(hConnection, // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa917871 PChar(RequestMethod), PChar(FileName), HTTP_VERSION, '', //Referrer 来路 nil,//AcceptTypes 接受的文件类型 TEXT/HTML */* INTERNET_FLAG_NO_CACHE_WRITE or INTERNET_FLAG_RELOAD, 0); if hRequest<>nil then begin sHeader := 'Content-Type: application/x-www-form-urlencoded' + #13#10; // +'CLIENT-IP: 216.13.23.33'+#13#10 // 'X-FORWARDED-FOR: 216.13.23.33' + #13#10+; 伪造代理IP // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa384227(v=VS.85) HttpAddRequestHeaders(hRequest,PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD or HTTP_ADDREQ_FLAG_REPLACE); // 函数原型见 http://msdn.microsoft.com/zh-cn/library/windows/desktop/aa384247(v=vs.85).aspx if HttpSendRequest(hRequest,nil,0,PChar(sPostData),Length(sPostData)) then begin dwReserved:=0; dwSize:=SizeOf(ContentSize); // 函数原型 http://msdn.microsoft.com/zh-cn/subscriptions/downloads/aa384238.aspx if HttpQueryInfo(hRequest,HTTP_QUERY_CONTENT_LENGTH,@ContentSize,dwSize,dwReserved) then begin dwFileSize:=StrToInt(StrPas(@ContentSize)); GetMem(Result, dwFileSize); InternetReadFile(hRequest,Result,dwFileSize,dwBytesRead); end; end; end; InternetCloseHandle(hRequest); end; InternetCloseHandle(hConnection); end; InternetCloseHandle(hInte); end;

 

调用方法:

 

WebPagePost('http://www.xxx.com/register.php','user=xxx;pass=xxx');


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab常见命令总结发布时间:2022-07-18
下一篇:
Matlab文件转C++文件发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap