前辈们delphi7——idhttp——post(json格式参数)——访问https报错 [问题点数:40分]

Bbs1
本版专家分:0
结帖率 50%
Bbs1
本版专家分:0
Bbs1
本版专家分:0
delphi xe10 idhttp post 返回乱码解决方法
最近在搞fmx开发,用<em>idhttp</em>  <em>post</em>  数据 返回中文乱码,在网上找了好多都解决不了,后来自己琢磨出方法,非常简单 uses  IdGlobal  lstr := <em>idhttp</em>1.Post('http://wwwbaidu.com',ls,IndyTextEncoding(TEncoding.ANSI)); 编码方式自定义
Delphi Idhttp的post方法
Delphi Idhttp的<em>post</em>方法 包含返回值
delphi idhttp post 网页
用httpwath 抓包工具下来的提交数据 POST /login.php?forward=http%3A%2F%2Fmy.2345.com HTTP/1.1 Accept: image/gif, i
idhttp 访问 https 的问题。
[code=Delphi(Pascal)]rn TTestThread = class(TThread)rn publicrn httpMain: TIdHTTP;rn sslMain: TIdSSLIOHandlerSocketOpenSSL;rn constructor Create; overload;rn destructor Destroy; override;rn procedure Execute; override;rn end;rnrnconstructor TTestThread.Create;rnbeginrn inherited Create(False);rn httpMain := TIdHTTP.Create(nil);rn sslMain := TIdSSLIOHandlerSocketOpenSSL.Create(nil);rnrn sslMain.SSLOptions.Method := sslvSSLv3;rn sslMain.SSLOptions.Mode := sslmUnassigned;rn httpMain.AllowCookies := True;rn httpMain.HandleRedirects := True;rn httpMain.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];rn httpMain.ReadTimeout := 20000;rn httpMain.ConnectTimeout := 10000;rnend;rnrndestructor TTestThread.Destroy;rnbeginrn httpMain.Free;rn sslMain.Free;rn inherited Destroy;rnend;rnrnprocedure TTestThread.Execute;rnbeginrn while not Terminated do beginrn httpMain.IOHandler := sslMain;rn httpMain.Request.UserAgent := 'Mozilla/3.0 (compatible)';rn httpMain.Get('<em>https</em>://mail.qq.com/cgi-bin/loginpage?');rn end;rnrn Destroy;rnend;rn[/code]rnrnrn如果我创建并执行50个线程(上面的代码),过一段时间会出现“Socket Error # 10038 Socket operation on non-socket.”。rn如果出现了这个异常,这个 <em>idhttp</em> 将会彻底失效,get 将永远是“不能<em>访问</em>内存 000004” 什么的。rn请问我应该如何避免这个异常(虽然上面的代码不容易出错,但如果使用代理连接,10038 异常会非常非常多)。rnrn单线程执行上述代码永远不会出现 10038,即便使用代理连接。rnrn各位大大们,指点我一下吧。
delphi7 idhttp post中文的问题
<em>delphi</em><em>7</em> <em>idhttp</em> <em>post</em>中文的问题rn[code=Delphi(Pascal)][/code]procedure TForm1.fasong();rnvarrn Params1:TStrings;rn url:string;rn tmp:string;rnrn beginrnrn IdHTTP1.AllowCookies:=false;rn Params1 :=TStringList.Create;rn tryrnrn IdHTTP1.Request.Accept:= '*/*';rn IdHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded';rn IdHTTP1.Request.Host:= 'www.xxx.com';rn IdHTTP1.Request.AcceptEncoding:= 'gzip, deflate';rn IdHTTP1.Request.Referer:= 'http://www.xxx.com/qwe/index.php';rn IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];rn IdHTTP1.ProtocolVersion:=pv1_1;rn IdHTTP1.Request.CustomHeaders.Clear;rn IdHTTP1.Request.CustomHeaders.add(t);rn tryrn Params1.Append('id=111');rn Params1.Append('name=登录');rn tryrn url := 'http://www.xxx.com/qwe/iii.php';rn IdHTTP1.HandleRedirects:=true;rn tmp:=<em>idhttp</em>1.Post(url,Params1);rn exceptrn end;rn exceptrn end;rn finallyrnrn Params1.Free;rn end;rnend;rn抓包显示‘登录'是 %B5%C<em>7</em>%C2%BC 而不是UTF8,怎样才能POST出去的数据是UTF8编码的?rn谢谢!
idhttp组件post参数的问题
<em>参数</em>中带有 &= 类似这种特殊符号的时候,<em>post</em>过去的数据就被服务器认为是错的,无法返回我想要的东西rnrn是不是有什么编码设置还是什么?怎么弄呢?
post请求https报错
最近做一项目需要调用远程一个java的webservices,只能用<em>post</em>方式去请求数据,对方是<em>https</em>的,本地vs测试都正常,部署到服务器上就<em>报错</em>:“请求被中止: 未能创建 SSL/TLS 安全通道。”,本地一切正常,更郁闷的是有一台服务器是正常,其他几台都不行,服务器环境是server2008r2,本机是win10各种搜索按网上的方法添加了各种代码rn[code=csharp]rnrnrnServicePointManager.ServerCertificateValidationCallback = (sender, certificate, chain, sslPolicyErrors) => true;rnServicePointManager.Expect100Continue = true;rnServicePointManager.SecurityProtocol = ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 | SecurityProtocolType.Tls11 | SecurityProtocolType.Tls | SecurityProtocolType.Ssl3;rnrnrn[/code]rn目前是折腾的快奔溃了,不知道有没有哪位大牛能帮忙解决
post请求获取json格式参数
上一篇博文写的是sign签名,但是写的是form表单<em>格式</em>的数据,这篇写的是<em>json</em><em>格式</em> // 判断请求方式是否为<em>post</em> 此处以流的方式读取,但是只能读取一次 StringBuilder signSb = new StringBuilder(); if (“POST”.equalsIgnoreCase(httpServletRequest.getMethod())) { InputStream ...
Delphi 使用 IDHTTP POST 中文数据 乱码问题 解决方法 顶帖有分
分不多了,麻烦解决一下.谢谢各位了. 本人POST数据英文的时候一切正常.当有<em>参数</em>为中文时就变为乱码.代码如下. var data: TIdMultiPartFormDataStream; begin
delphiPOST使用IDHTTP,POST数据到WEB服务器的例子
使用IDHTTP,POST数据到WEB服务器的例子。-The use of IDHTTP, POST data to a WEB server example.
delphi post数据与对应的接收方式
前几天研究了下<em>post</em>的方式和服务器的接收处理,环境<em>delphi</em>10.1,首先说客户端<em>post</em>数据,采用<em>idhttp</em>,有两种方式,一种是字符串,一种是流如下:1.psot字符串的方式var  s: string;  stm: TStringStream; //接收返回内容  send:TStringList;   //<em>post</em>的内容begin  send:=TStringList.Create; ...
delphi IDHTTP 如何POST这种数据 帮忙万分感谢!
http://pass.dipan.com/reg?t=1 网址注册 抓包数据如下: POST aaa.com/m.aspx?cn=reg HTTP/1.1 Host: pass.dipan.com
delphi 7 idhttp post 的8种使用方法
<em>delphi</em> <em>7</em> <em>idhttp</em> <em>post</em> 的8种使用方法(含源码),介绍了8种使用方法,供学习交流使用。
idhttp post
)W...........wappass.baidu.com......$rn)W...........wappass.baidu.com.............. .....0......... ....%Y........^6...ns4..........^6...dns..........^6...ns3..........^6...ns2..........3n..=....s......3n....%..O......(.....&..a......3n...l..rnrnrn发送rnPOST /wpass HTTP/1.1..rnContent-Type: application/x-www-form-urlencoded..rnContent-Length: 86..rnHost: wappass.baidu.com..rnAccept: text/html, */*..rnUser-Agent: NokiaN90-1/3.0545.5.1 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1.......rn发送rnct=login&tpl=wapp&u=&retry=/wpass&username=ZZZZZ&password=ZZZZZ&save=0&from=&ssid=0rn接收rnHTTP/1.1 200 OK..rnDate: Tue, 26 Aug 2008 10:58:41 GMT..rnCache-Control: max-age=0..rnSet-Cookie: BDUSS=k2WsdfasgdgasdgadgVXpPcFsdfsfsdfsdfsQUFBJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOdfsdfsdfIZE; path=/; domain=.baidu.com..rnSet-Cookie: WAPTIME=1219<em>7</em>48322; expires=Sun, 23 Aug 2020 08:23:00 GMT; path=/; domain=.baidu.com..rnContent-Type: text/vnd.wap.wml;charset=UTF-8..rnContent-Length: <em>7</em>59..rnConnection: close....rnrnrn..... ............. ...................... . ................... ................... . ...rn
$.post问题,前辈们帮忙。
js:rn function showImg(vsn,obj) rn if (vsn != "") rn if (document.getElementById(vsn).style.display == "none") rn document.getElementById(vsn).style.display = ""rn obj.title = "点击关闭图像显示";rn //$("#td_" + vsn).html("");rn $.<em>post</em>("../Handler/GetImage.ashx?vsn=" + vsn + "", function (data) rn alert(data);rn document.getElementById("s_" + vsn).style.display = "none"rn $("").attr("src", data).appendTo("#td_" + vsn + "");rn ); rn rn else rn document.getElementById(vsn).style.display = "none";rn obj.title = "点击查看图像显示";rn rn rn rnrnrnashx:rn public void ProcessRequest (HttpContext context) rn string vsn = context.Request["vsn"].ToString();rn if (vsn!="")rn rn string sql = "select vheadpic from visiterecord where vsn='"+ vsn +"'";rn context.Response.ContentType = "image/*";rn DataSet ds = FUJICA.DBUtility.DbHelperSQL.Query(sql);rn if (ds!=null&&ds.Tables[0].Rows.Count>0)rn rn context.Response.BinaryWrite((byte[])ds.Tables[0].Rows[0]["vheadpic"]); rn rn rn rnrn问题:rn$("#td_" + vsn).html("");这个可以显示出来图像;rn而rn$.<em>post</em>("../Handler/GetImage.ashx?vsn=" + vsn + "", function (data) rn alert(data);rn document.getElementById("s_" + vsn).style.display = "none"rn $("").attr("src", data).appendTo("#td_" + vsn + "");rn ); rn却不能,请大家帮忙啊,谢谢!
Idhttp Post
E.....@.......e.v.o...PPH.p.r=.P...@_..POST /lbr_sports HTTP/1.1..Accept: */*..Referer: http://www.lad168.com/lbr_sports?action=INT_SPORTSBOOK::go_sports_menu..Accept-Language: zh-cn..Content-Type: application/x-www-form-urlencoded..Accept-Encoding: gzip, deflate..User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Alexa Toolbar)..Host: www.lad168.com..Content-Length: 405..Connection: Keep-Alive..Cache-Control: no-cache..Cookie: LANG=cs; flash_version=6; CP=null*; CASAFF_ID=default; RC_AFF=0; EXT_AFF=; CTXT=PORTAL; BETSLIP=refresh|0|selns|0; FLAGS=cs|cs|cs|fareast|DECIMAL|0|GBP....action=INT_SPORTSBOOK%3A%3Ado_sports_menu&this_action=INT_SPORTSBOOK%3A%3Ago_sports_menu&checked_subtypes=3<em>7</em>0&checked_evtypes=&checked_ordered=S+3<em>7</em>0+&expanded_classes=110000045&expanded_evtypes=&sel_disp_sort_id=&sel_disp_sort_tmpl=&mkt_ev_oc_grp_id=&mkt_disp_sort_id=&mkt_template=&mkt_chkd_ordered=&timefilter=&category=&class_id=&class_sort=&type=&id=&ev_id=&ev_mkt_id=&int_event=&gr_trap=&auto_submit=rn如何把上面的数据 Post给页面(上面的信息是用网络数据监视器截取的)
求救:https访问报错
我的项目前台是flex 开发,后台是java 使用到spring和hibernate框架,之前通过http<em>访问</em>一切正常,现在改用<em>https</em><em>访问</em>就<em>报错</em>,关于后台的通道配置也配置了,可是还是<em>报错</em>好多奇怪的错误,大伙帮忙看看吧:rnrn[FaultEvent fault=[RPC Fault faultString="Send failed" faultCode="Client.Error.MessageSend" faultDetail="Channel.Connect.Failed error NetConnection.Call.BadVersion: : url: 'http://10.1.114.14<em>7</em>:8443/PHR4//xbzc/phr'"] messageId="5FD445<em>7</em>2-C8BB-05D6-2DE0-C6FE2916D0D8" type="fault" bubbles=false cancelable=true eventPhase=2]rnrn
IdHttp访问https://dynamic.12306.cn/otsweb/返回值问题
[code=<em>delphi</em>]rnvarrn FResponse: TStringStream;rn tmpStr: string;rnbeginrn FResponse := TStringStream.Create('', TEncoding.UTF8);rn tryrn with aIdHTTP dorn beginrn with Request dorn beginrn RawHeaders.Clear;rn Accept := 'text/html, application/xhtml+xml, */*';rn AcceptEncoding := 'gzip, deflate';rn AcceptLanguage := 'zh-CN';rn Connection := 'Keep-Alive';rn Host := 'dynamic.12306.cn';rn Referer := 'http://www.12306.cn/mormhweb/kyfw/';rn UserAgent :=rn 'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; MATP)';rn$IFDEF DEBUGrn aIdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';rn$ENDIFrn end;rn // aIdHTTP.URL.Host := 'dynamic.12306.cn';rn HandleRedirects := false; // 重定向rn ReadTimeout := 15000;rn tryrn //IdHTTP.IOHandler.DefStringEncoding := TEncoding.UTF8;rnrn Get('<em>https</em>://dynamic.12306.cn/otsweb/', FResponse); // 从服务器产生新的Cookiern if Response.ResponseCode = 200 thenrn beginrn FResponse.Position:=0;rn showmessage(FResponse.DataString);//这里为空rn tmpStr := BytesToStringRaw(FResponse.Bytes);//这里有值,很乱,怎么转换也看不懂rn // tmpStr:=FResponse.DataString;rn // tmpStr:=Utf8ToAnsi(tmpStr);rn // tmpStr:=UTF8ToAnsiString(tmpStr,936);rn end;rn exceptrn on E: Exception dorn WriteRemark(E.Message);rn end;rn end;rnrn finallyrn FResponse.Free;rn end;rnrn[/code]rnrn返回的数据确实是UTF8不知道为什么就是解析不了rn只有<em>访问</em>http://www.12306.cn/mormhweb/kyfw/时返回的是看得懂的,新手求指点
Delphi7中IdHTTP组件有个bug,很重要
耗费了我一下午带一晚上,最终证明,Delphi<em>7</em>自带的Indy的组件TIdHTTP有个Bug。 下文转自[url]http://www.gzctu.com/blog/article.asp?id=63[/url]: [quote]  IdHTTP组件是Indy组件的一部分,主要用于实现读取HTTP服务器的资源,可以实现浏览器的网络功能。   IdHTTP是从TIdCustomHTTP继承来的...
delphiidhttp的get 和 post的使用
<em>delphi</em>的<em>idhttp</em>的get 和 <em>post</em>的使用 2014-12-21 1<em>7</em>:31 4023人阅读 评论(1) 收藏 举报  分类:   Delphi(146)  版权声明:本文为博主原创文章,未经博主允许不得转载。 [<em>delphi</em>] view plain copy function Tform1.
delphi 7 idhttp post 的8种使用方法(含源码)
<em>delphi</em> <em>7</em> <em>idhttp</em> <em>post</em> 的8种使用方法(含源码),介绍了8种使用方法,供学习交流使用。
Delphi通过POST传递参数给PHP
利用TidHTTP控件向目标PHP网页POST<em>参数</em>
idhttp post 方法发送数据到服务器上。实现数据和网页的交互。
http://www.blabla.com/login.php method=POST> text name=nick id=insert_feld1> password name=passwort id=insert_feld1> submit value=Login id=insert_feld1>//网页代码;Soweit bi
idhttp post 参数 同时夹带 cookie 的问题
如果在 <em>post</em> 同时 把 COOKIE的内容一同发给服务器?rnrnrn网上找了好半天,特发帖求解。。。
idhttp post提交没有参数的数值
抓包这个<em>post</em>没有<em>参数</em>,只有数值(id=21<em>7</em>),用rnsParams.WriteString('id=21<em>7</em>');rnIdHTTP1.<em>post</em>(http://xxxxx/?m=pieces&a=vote,sParams); rnrn但是不对rnrnrnrn用网页代码提交rn rnrnrnrn是正常的rnrn如何解决
idhttp GET HTTPS 出错
[code=Delphi(Pascal)]rn<em>idhttp</em>1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;rnMemo1.Text := <em>idhttp</em>1.Get('<em>https</em>://passport.baidu.com/?login');rn[/code]rn按网上教程我下载了ssleay32.dll和libeay32.dll,但是都无法加载。最后从别人的一个程序:http://www.de86.cn/tbbl/barlord.zip里面拷出来这两个同名DLL。rn转而提示Read Timeout。<em>访问</em>普通http协议的网页也是如此。rn测试环境:rnWinXP SP3+Delphi 200<em>7</em>+Indy 10.1.5
Ajax post 如何传递json格式参数
代码如下:rn var <em>json</em> = '"Action":"Query"';rn // var body = "Action='Query'";//(可以传递)rn httpRequest.onreadystatechange = function () rn if (httpRequest.readyState == 4) rn var result = eval("(" + httpRequest.responseText + ")");rn rn rn httpRequest.open("POST", "JsonDemo.aspx", true);rn httpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=UTF-8"); rn httpRequest.send(<em>json</em>);rn用“=”的这种方式传递的<em>参数</em>,后台能获取到,但是<em>json</em>,就不行,求哪位大哥帮忙解惑。。。
Okhttp框架的二次封装,post json格式参数
公司项目后台请求,需要上传<em>json</em><em>格式</em>的<em>参数</em>,本打算直接使用鸿洋(博客)大大封装的okhttp-utils,但是发现大大虽然封装了表单的<em>post</em>,但是没有<em>json</em>的(可能我眼瞎没看见),所以还是需要根据公司具体的<em>参数</em>结构,进行二次封装。 比如<em>参数</em>如下:{ args: { pub_param:{ "username":"old wang",
Idhttp Post 登陆(看似抓包数据简单但是我很菜)
http://shenwufzwp.cccpan.com/ 登陆密码:swfz 这个是 永硕E盘 网站!想实现自动登陆功能!但是Post了一个晚上也没整上去,不知道是为什么! 还请各位大神帮帮,谢谢啦
delphi fmx idhttp post 案列,android测试通过
//Tyrion unit Unit1; interface uses   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.
idhttp中对于post方法的定义
<em>idhttp</em>中对于<em>post</em>方法的定义: [<em>delphi</em>] view plaincopyprint? function Post(AURL: string; ASource: TIdStrings): string; overload;  function Post(AURL: string; ASource: TStream): string; overload;  function 
delphi使用IdHTTP模拟提交页面方法总结
1.拖入TIdHTTP控件,HandleRedirect设为True,否则可能会出现HTTP 30<em>7</em>错误。 2.主要的设置在Request里。2.1 userAgent应该改为Mozilla/4.0 (compatible; MSIE <em>7</em>.0; Windows NT 5.1; .NET CLR 2.0.50<em>7</em>2<em>7</em>; .NET CLR 3.0.04506.30; CIBA; MAXTHON
idhttp post方法Demo
Delphi第三方组件<em>idhttp</em> <em>post</em>方法的详细演示。 具体说明见:http://blog.csdn.net/none01/article/details/865<em>7</em>543
用java访问https报错
用springboot开发的一个服务链接mqtt服务的ssl网址<em>报错</em>,sun.security.validator.ValidatorException: PKIX path building failed: sun.security.provider.certpath.SunCertPathBuilderException: unable to find valid certification ...
OkHttp框架二次封装,post json格式参数(下)
没看过上篇的,建议先看上篇,传送门:http://blog.csdn.net/black_dreamer/article/details/53068620响应数据的<em>格式</em>服务器响应的数据,结构也大都固定,比如:{ "result": { "total": 0, "data": { "uid": 952<em>7</em>, "token": "xxxxxxxxxxxxx"
post请求中参数json格式
<em>post</em>请求中<em>参数</em>为<em>json</em><em>格式</em>
delphi_rest与idhttppost提交
<em>delphi</em>_rest与<em>idhttp</em>的<em>post</em>提交
使用delphi XE的IdHTTP控件POST的例子
使用<em>delphi</em> XE的IdHTTP控件POST的例子,IDHTTP速度很快,是个不错的控件
delphi7中idHTTP的使用
1.直接<em>idhttp</em>:T<em>idhttp</em>声明一个var变量是不能使用的。必须有控件 2.使用IdHTTP调<em>post</em>接口,xml<em>格式</em> IdHTTP1.HandleRedirects := True;//允许头转向 IdHTTP1.ReadTimeout := 30000;//请求超时设置 IdHTTP1.HTTPOptions:=IdHTTP1.HTT...
Delphi中Json格式读写
Json是一种轻量级数据传输<em>格式</em>,广泛应用互联网和各应用中,<em>json</em>主要采用键值对来表示数据项,多个数据项之间用逗号分隔,也可以用于数组。下面注重介绍一下在<em>delphi</em>中使用<em>json</em>,在<em>delphi</em>中使用<em>json</em>常用superobject单元文件,该文件可以在网上下载,最初接触<em>json</em>是在2011年,好久没用这不刚好有项目要用到又折腾了好久,下面做了一个简单的Demo,方便以后忘了能随时查看,具体
Delphi7通过superobject解析JSON
1、通过<em>delphi</em>程序<em>访问</em>PHP事先写好的webservice(查询功能),webservice返回<em>json</em><em>格式</em>数据。2、通过superobject读取<em>json</em>数据得到效果如下:
idhttp post数据的问题
我用同一个<em>idhttp</em>组建,执行GET和POST操作,GET没问题,POST始终不对(获取数据包,失踪header不正确),请高手执教rnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn xx:string;rn xxx:tstrings;rn yy:TMemoryStream;rn jpg:Tjpegimage;rnbeginrn <em>idhttp</em>1.Request.Connection:='Keep-Alive';rn <em>idhttp</em>1.Request.CacheControl:='no-cache';rn xxx:=tstringlist.Create;rn yy := TMemoryStream.Create ;rn xx:=IdHTTP1.Get('http://login.tom.com/captcha/drawme.php?type=6');rn xxx:=SplitString(xx,'=');rn IdHTTP1.Get('http://login.tom.com/captcha/draw.php?<em>post</em>_key='+stringreplace(xxx[8],';expires','',[rfReplaceAll])+'&type=6',yy);rn if StreamType(yy)='JPEG' then beginrn yy.Position:=0;rn tryrn Jpg:=tjpegimage.Create;rn Jpg.LoadFromStream(yy);rn image1.Picture.Graphic:= Jpg;rn finallyrn Jpg.Free;rn end;rn end else if StreamType(yy)='BMP' then beginrn yy.Position:=0;rn image1.Picture.Bitmap.LoadFromStream(yy);rn end else if StreamType(yy)='PNG' then beginrn rn end;rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnvarrn ParaList:tStringList;rn str:string;rnbeginrn ParaList:=tstringlist.Create;rn <em>idhttp</em>1.Request.Connection:='Keep-Alive';rn <em>idhttp</em>1.Request.CacheControl:='no-cache';rn <em>idhttp</em>1.request.contenttype:='application/x-www-form-urlencoded';rn tryrn ParaList.Add('funcid=reguser');rn ParaList.Add('rf=060<em>7</em>02');rn ParaList.Add('refer=http://mail.tom.com');rn ParaList.Add('year=1980');rn ParaList.Add('month=1');rn ParaList.Add('day=1');rn ParaList.Add('uid=fsdads35sdf');rn ParaList.Add('password=111111qq');rn ParaList.Add('confirm_password=111111qq');rn ParaList.Add('safemail=ad@asdf.com');rn ParaList.Add('authcode='+edit1.Text);rn ParaList.Add('argee=1');rn str:=<em>idhttp</em>1.Post('http://bjcgi.tom.com/cgi-bin/tom_reg.cgi?rf=060<em>7</em>02',paralist);rn WB_LoadHTML(WebBrowser1,str);rn finallyrn ParaList.Free;rn end;rnrnend;rnrn以上代码同样设置<em>idhttp</em>1.Request.Connection:='Keep-Alive';rn但是GET获取的数据包header是正确的Connection: Keep-Alive,但是POST获取的数据包确是Connection: close,包括<em>idhttp</em>1.Request.CacheControl:='no-cache';也没有生效
delphi idhttp 循环 Post
<em>delphi</em> <em>idhttp</em> 循环 Post
delphi idhttp post = 乱码
平台 :windows <em>7</em> rnIDE; <em>delphi</em> xe 5rnrn使用<em>idhttp</em>控件<em>post</em> 一个字符时,如果字符串里含有“=”号的话,再返回这个字符串的话,字符串里的“=”会变成 “3D”,怎么解决?
idhttp post mail163的问题
<em>idhttp</em> <em>post</em> mail163的问题rnrnprocedure TForm1.Button1Click(Sender: TObject); rn var rn Response: TStringStream; rn <em>post</em>List: TStrings; rn beginrn Edit1.Text := 'http://mail.163.com/';rn Response := TStringStream.Create('');rn <em>post</em>List := TStringList.Create;rn try rn <em>post</em>List.Add('username=我的用户名');rn <em>post</em>List.Add('userpwd=我的密码'); rn IdHTTP1.Post(Edit1.Text, <em>post</em>List, Response); rn finally rn Memo1.Lines.Text := Response.DataString; rn Response.Free; rn <em>post</em>List.Free; rn end; rn end;rnrnrnrn<em>post</em>以后 再memo中返回了 源码 如何判断依据登陆成功了呢 我返回的源代码 页没登陆时候的源码一样啊 ??rnrn求助
关于idhttp post的几个问题
感觉<em>idhttp</em>问题很多rnrn1.在使用进度度显示上传进度时发现<em>idhttp</em>多次调用了workbegin事件(好像3次),多次显示上传进度rn2.上传速度很慢rnrn如何解决以上问题?
delphi7 json
 uses    superobject;    procedure SaveJson;var  <em>json</em>, <em>json</em>_sub: ISuperObject;begin  <em>json</em> := SO;  <em>json</em>.S['name'] := 'Henri Gourvest';  <em>json</em>.B['vip'] := TRUE;  <em>json</em>.O['telephones'] := SA([]);  <em>json</em>.A['...
Delphi 7下的JSON解析
<em>delphi</em>下的<em>json</em>解析器,挺好用的 将里面的superobject.dcu添加进工程就可以了
使用Delphi 7进行JSON解析
使用Delphi <em>7</em>进行JSON解析将里面的superobject.dcu添加进工程就可以了
Delphi7下SuperObject的JSON使用方法
Json是一种轻量级数据传输<em>格式</em>,广泛应用互联网和各应用中,<em>json</em>主要采用键值对来表示数据项,多个数据项之间用逗号分隔,也可以用于数组。下面注重介绍一下在<em>delphi</em>中使用<em>json</em>,在<em>delphi</em>中
delphi7 json
<em>delphi</em><em>7</em> <em>json</em>类
IdHttp Post问题
今天使用IdHTTP控件,调用POST,提交数据到ASP网站,发现ASP页面获取不到这些提交的<em>参数</em>,请高手指点一下rn以下是C++的代码rn[code=C/C++]rn TIdHTTP *IdHTTP=new TIdHTTP(NULL);rn IdHTTP->HandleRedirects=true;rn AnsiString strRetData="";rn TStringStream *ResponseStream=new TStringStream("");rn AnsiString strURL="http://localhost/Register.asp";rn TIdMultiPartFormDataStream *s=new TIdMultiPartFormDataStream();rn s->AddFormField("Name","123");rn s->AddFormField("Telphone","123456<em>7</em>89");rn s->AddFormField("EMail","123@qq.com");rn IdHTTP->Post(strURL,s,ResponseStream);rn strRetData=ResponseStream->DataString;rn ShowMessage(strRetData);rn delete ResponseStream;rn delete s;rn delete IdHTTP;rn[/code]rn以下是ASP页面的代码rn[code=VBScript]rndim strName,strTelphone,strEMailrnstrName=request.QueryString("Name")rnstrEMail=request.QueryString("EMail")rnstrTelphone=request.QueryString("Telphone")rnif strName="" or strTelphone="" or strEMail="" thenrn response.write "Data Error"rn response.end rnend ifrn[/code]rnrn不知为何,request.QueryString一直获取不到提交的<em>参数</em>,请懂得高手指点一下
idhttppost表单的问题
1、要<em>post</em>的页面里的变量有的是必填项,有的是可选的;是不是只要<em>post</em>页面里必填的变量就可以了?rn2、如何取得<em>post</em>后返回的数据?rn3、有没有比<em>idhttp</em>好用的控件?
idhttp post例子
找了半天没有<em>post</em>例子,谁能发个,小弟学习下!!!rnrn小弟感激不尽啊!!!
IdHTTP post 数据的问题.
用IdHTTP控件向一个网站提交数据,达到留言的功能.没有成功.rnrn/////////////////////////////////////////////////////////////////////////rn用HttpWatch 监视IE中我自己的账号向我自己的页面发表留言时的数据如下(网址用xxxxx代替)rnrn流标签的内容rn发送的:rnrnPOST /gossip.do HTTP/1.1rnAccept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*rnReferer: http://xxxxx.com/getuser.do?id=42531288rnAccept-Language: zh-cnrnContent-Type: application/x-www-form-urlencodedrnAccept-Encoding: gzip, deflaternUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)rnHost: xxxxx.comrnContent-Length: 58rnConnection: Keep-AlivernCache-Control: no-cachernCookie: cookieuniv=3002; __utma=2045<em>7</em>9609.158235359<em>7</em>.1168328182.1168331565.1168331<em>7</em>80.<em>7</em>; __utmb=2045<em>7</em>9609; __utmz=2045<em>7</em>9609.1168328182.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); wh_email=weixing9<em>7</em>9@163.com; wh_key=a65cf3dfa63ba229<em>7</em>ebda4e86e6c9<em>7</em>02; email=weixing9<em>7</em>9@163.com; password=9530<em>7</em>60<em>7</em>428ce336e2da99049fe41262; mop_uniq_ckid=218.9.160.142_1168329<em>7</em><em>7</em>9_1<em>7</em>213<em>7</em>5101; societyid=6c202d413ed5<em>7</em>2e4cc4164a8e<em>7</em>6912fe116eae<em>7</em><em>7</em>5a6a294a; JSESSIONID=abcm0HjDU1fcp<em>7</em>k8bagar; __utmc=2045<em>7</em>9609rnrncurpage=&from=main&id=42531288&cc=42531288&body=123456<em>7</em>890rnrn接收到的:rnHTTP/1.1 302 FoundrnServer: Resin/3.0.21rnVary: Accept-EncodingrnLocation: http://xxxxx.com/getuser.do?id=42531288&#starttalkrnContent-Type: text/htmlrnContent-Length: 90rnConnection: closernDate: Tue, 09 Jan 200<em>7</em> 08:36:45 GMTrnrnThe URL has moved herernrnrn摘要标签的内容:rnrn提交表单 浏览器提交值到 http://xxxxx.com/gossip.do CompletedrnStarted At 200<em>7</em>-Jan-09 16:36:48.<em>7</em>18 (local time) CompletedrnConnect 连接到 IP 地址 'XX.XX.XXX.XXX' CompletedrnHTTP Request 无条件发送此请求 http://xxxxx.com/gossip.do CompletedrnHTTP Response 返回标题和内容 Completedrn改向 改向到 http://xxxxx.com/getuser.do?id=42531288&#starttalk 由服务器造成rnrnrn/////////////////////////////////////////////////////////////////////////rnrn网页中留言部分的代码rn rn rn rn rn rn (每条最多2000字)rn rn rn rn rn rn rn rn rnrnrnrnrn/////////////////////////////////////////////////////////////////////////rnrnBCB程序的发送代码:rnrnIdHTTP1->Request->ExtraHeaders->Values["cookie"] = cookie;rnrn IdHTTP1->HandleRedirects = true;rn IdHTTP1->Request->Referer = "http://xxxxx.com/getuser.do?id=42531288";rn IdHTTP1->Request->AcceptLanguage = "zh-cn";rn IdHTTP1->Request->ContentType = "application/x-www-form-urlencoded";rn IdHTTP1->Request->AcceptEncoding = "gzip, deflate";rn IdHTTP1->Request->UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)";rn IdHTTP1->Host = "xxxxx.com";rn IdHTTP1->Request->ContentLength = 58;rn IdHTTP1->Request->Connection = "Keep-Alive";rnrnrnrnrn AnsiString url = "http://xxxxx.com/gossip.do";rnrn TStrings* tData=new TStringList();rnTStringStream* stream=new TStringStream("");rn tData->Add("curpage=");rn tData->Add("from=main");rn tData->Add("id=42531288");rn tData->Add("cc=42531288");rn tData->Add("body=123456<em>7</em>890");rn IdHTTP1->Post(url,tData,stream);rn Memo1->Text = stream->DataString;rnrn用这些代码没有发送成功. 另外BCB中用到的cookie是我在程序中放了一个CppWebBrowser,登录后获得的cookie,用这个cookie可以Get出正确的页面.rnrn大家看一下是什么问题rn
idhttp post百度问题
procedure TForm1.btn1Click(Sender: TObject);rnvarrn Param:TStringList;rn RStream:TStringStream;rnbeginrn Param:=TStringList.Create;rn RStream:=TStringStream.Create('');rn rn Param.Add('username=showlee000');rn Param.Add('normModPsp=********');rn Param.Add('mem_pass=true');rn IdHTTP1.Post('http://passport.baidu.com/?login&tpl=mn',rn Param,RStream);rnrn mmo1.Text:=RStream.DataString;rnend;rnrn--------------------下面是登陆界面核心代码--------------------rn rn 用户名:rn rn rn rn 密 码:rn rn rnrn为什么登陆不成功?rn Param.Add('normModPsp=********');改成 rn Param.Add('password=********');就能成功rnrn这是为什么
delphi7如何解释以下的数据(不知道是不是json)
,,], ,], ... ] 以上是不是<em>json</em>的<em>格式</em>,若是应该怎么解释,最好有源码参考,谢了
在Delphi中使用JSon
先来看看什么是Json JSON(JavaScript Object Notation) 是一种轻量级的数据交换<em>格式</em>。易于人阅读和编写。同时也易于机器解析和生成。它基于JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999的一个子集。 JSON采用完全独立于语言的文本<em>格式</em>,但是也使用了类似于C语
如何用delphi7开发后台程序接收前台发的json报文?
准备做个股票程序,现在已经把通达信的1分5分日周月线文档<em>格式</em>破解了,前台WEB也就绪,就是后台不知如何弄,我不想用java,不熟而且架构也麻烦。现在前台web可以<em>post</em>方式发送<em>json</em>报文过来,我的
Delphi使用JSON
JSON(JavaScript Object Notation) 是一种轻量级的数据交换<em>格式</em>。易于人阅读和编写,同时也易于机器解析和生成。它基于JavaScript(Standard ECMA-262 3rd Edition - December 1999)的一个子集。 JSON采用完全独立于语言的文本<em>格式</em>,但是也使用了类似于C语言家族的习惯(包括C, C++, C#, Java, JavaScr
delphi idhttp post 的问题
rnrnrn网站上select中的内容不显示rn那么我如何<em>post</em>这个值呢?
IdHTTP Post 编码的问题
<em>delphi</em> 200<em>7</em> IdHTTP Post 编码的问题rnrnrnrn[code=Delphi(Pascal)] rnvarrn Param:TStringList;rn..rn..rn..rnIdHTTP.HTTPOptions:=OneCodeIdHTTP.HTTPOptions+[hoKeepOrigProtocol];rn//ShowMessage(Param.Text); 这里Show出来的 确实是我想要的<em>格式</em> 比如:“%22%29”rnIdHTTP.Post('URL',Param,RStream);rn//但是Post之后,用WSockExpert抓包,<em>格式</em>却变了 变成了“%2522%2529”rn..rn..rn..rn[/code]rnrnrn求相关解决方法??
idhttppost问题。
我需要做一个注册账号的软件。rn[color=#FF0000]PS:是公司要求的,不是做挂什么的,请大家不要误会。[/color]rnrn我是使用<em>idhttp</em>来做的rnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn ms: TMemoryStream;rn png:TdxPNGImage;rnbeginrn ms:=TMemoryStream.Create;rn png:=TdxPNGImage.Create;rn IdHTTP1.Get('http://www.jxds.gov.cn/wssw/jsp/includes/zcyzm.jsp',ms);rn ms.Position := 0;rn png.LoadFromStream(ms);rn Image1.Picture.Assign(png);rnend;rnrn目前验证码是能成功提取到了。rnrn而<em>post</em>,也通过httpwatch抓到了,但是本人对这方面的编程借进与小白- -rnrn这是httpwatch抓到的Post data 中的xml文件rn[code=XML]rn[/code]rnrn但是我在Delphi中,直接提交,虽然没有<em>报错</em>,但是返回的都是空的,按理说,注册失败的话,总会有因为什么原因注册失败的。但是我不晓得我哪里设置错了,或者什么问题,每次返回都是空,试了好多方法。rnrn方法1:直接提交抓包的xml。rn[code=Delphi(Pascal)]rn str:=TStringList.Create;rn XML1:=TXMLDocument.Create(nil);rn XML1.LoadFromFile('xml.XML');rn str.Add(XML1.XML.Text);rn IdHTTP1.Post('http://www.jxds.gov.cn/wssw/sbController.do?cmd=glfw_qy_zc',str,str1);rn showmessage(UTF8Decode(str1.DataString));[/code]rn返回空值- -rnrn方法2:自己写stringlist的内容提交,请教别人后告诉我,提交网页代码Form后面的部分。rn[code=Delphi(Pascal)]rn str:=TStringList.Create;rn str1:=TStringStream.Create('');rn str.Add('rootVo.properties*nsrglm='+'11111111');rn str.Add('rootVo.properties*taxregcode='+'36111111111101');rn str.Add('rootVo.properties*frdb='+'颜德');rn str.Add('rootVo.properties*register_name='+'颜德');rn str.Add('rootVo.properties*password='+'111111');rn str.Add('passwordConfirm='+'111111');rn str.Add('rootVo.properties*password_question='+'123456');rn str.Add('rootVo.properties*password_answer='+'123456');rn str.Add('rootVo.properties*yzm='+Edit1.Text); rn IdHTTP1.Post('http://www.jxds.gov.cn/wssw/sbController.do?cmd=glfw_qy_zc',str,str1);rn showmessage(UTF8Decode(str1.DataString)); rn[/code]rnrn还是返回空。。rnrn方法3:我不晓得rootVo.properties*这一段是什么意思- -(本人主要工作于C/S模式的管理软件编程,对网络编程完全的小白。)所以我决定去掉,提交试试。rn[code=Delphi(Pascal)]rn str:=TStringList.Create;rn str.Add('nsrglm='+'11111111');rn str.Add('taxregcode='+'36111111111101');rn str.Add('frdb='+'颜德');rn str.Add('register_name='+'颜德');rn str.Add('password='+'111111');rn str.Add('passwordConfirm='+'111111');rn str.Add('password_question='+'123456');rn str.Add('password_answer='+'123456');rn str.Add('yzm='+Edit1.Text); rn IdHTTP1.Post('http://www.jxds.gov.cn/wssw/sbController.do?cmd=glfw_qy_zc',str,str1);rn showmessage(UTF8Decode(str1.DataString)); rnrn[/code]rnrn返回还是空0.0rnrn还尝试过把xml转换成stringstream发送,返回也是空。。。空!空!空! 搞了2天了,百度了N多内容,看别人写都这么简单,可是我就是搞不懂为什么我提交不了。。。请高手指点。。万分感谢。
delphi7中indy10的idhttp POST时中文乱码怎么办?
<em>delphi</em><em>7</em>中indy10的<em>idhttp</em> POST时中文乱码怎么办?
idhttp六种post方法
分享一个示例代码,这是从网上下载的<em>delphi</em><em>7</em>,六种idHttp.<em>post</em>的方法,经测试验证,可用,需在<em>delphi</em><em>7</em> IDE环境里安装indy idHttp控件,否则会打不开
Delphi-idHttp-JSON用法
从国外网站抄来的代码 Delphi source: http := TIdHttp.Create(nil); http.HandleRedirects := True;//允许头转向 http.ReadTimeout := 5000;//请求超时设置 http.Request.ContentType := 'application/<em>json</em>';//设置内容类型为<em>json</em>
DELPHI7下用superobject读取中国天气网的JSON数据的天气预报
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Delphi_JSON delphi7解析JSON控件
Delphi_JSON <em>delphi</em><em>7</em>解析JSON控件,新测可以用。。。。。
Echarts数据可视化series-bar柱形图详解,开发全解+完美注释
mytextStyle={ color:"#333",//文字颜色 fontStyle:"normal",//italic斜体 oblique倾斜 fontWeight:"normal", //文字粗细bold bolder lighter 100 | 200 | 300 | 400... fontFamily:"sans-serif", //字体系列
idhttp 发送post失败。。。
我想发送一段这样的数据给192.168.0.1:9999端口rnPOST /test.asp?id=123456&ps=654321&str=我来做测试HTTP/1.0.. Connection: keep-alive..Content-Type: application/x-www-form-urlencoded..Content-Length: 4284..Host: 192.168.0.1:9999..Accept: text/html, */*..Accept-Encoding: identity..User-Agent: Mozilla/3.0 (compatible; Indy Library)rnrn[code=Delphi(Pascal)]rnServerUrl:= '192.168.0.1';rnGrStr:='我来做测试';rnParams := TStringList.Create;rnParams.Add('/test.asp?id=123456&ps=654321&str='+GrStr ) ;rnParams.Add('/test.asp?id==123456');rnParams.Add('&h=123456');rnParams.Add('&str='+GrStr);rn<em>idhttp</em>1.Port :=9999;rn<em>idhttp</em>1.Request.Connection :='keep-alive';rn<em>idhttp</em>1.Request.ContentType :='application/x-www-form-urlencoded';rn<em>idhttp</em>1.Request.Host :='192.168.0.1';rn<em>idhttp</em>1.Request.Accept :='text/html, */*';rn<em>idhttp</em>1.Request.AcceptEncoding :='identity';rn<em>idhttp</em>1.Request.UserAgent :='Mozilla/3.0 (compatible; Indy Library)';rnTestStr:=<em>idhttp</em>1.Post(ServerUrl , Params ); //到了这里就Socket Error 10061错误了。。。rn[/code]
idhttp控件的post编码问题
最近在做一个发贴工具,用的是<em>delphi</em>2010 indy10 ,论坛是discuz big5码,登陆没问题,但是发贴时,贴子内容是乱码。rn发贴函数如下:rnrnFunction TForm1.<em>post</em>info(url, subject, wsmessage,fid: string): Boolean;rnvarrnParam:TStringList;rngeturl:String;rn Response:TStringStream;rnbeginrnResult:=False;rngeturl:=url+'/index.php';rn//rnrn<em>idhttp</em>1.AllowCookies:=True;rn<em>idhttp</em>1.HandleRedirects:=True;rn//<em>idhttp</em>1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*';rn <em>idhttp</em>1.Request.Referer:=url+'/<em>post</em>.php?action=newthread&fid='+fid;rn IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];rn<em>idhttp</em>1.Request.AcceptLanguage:='zh-cn';rn<em>idhttp</em>1.Request.ContentType:='application/x-www-form-urlencoded' ;rn<em>idhttp</em>1.Request.AcceptEncoding :='gzip, deflate';rn<em>idhttp</em>1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 2.0.50<em>7</em>2<em>7</em>)';rn <em>idhttp</em>1.Request.Connection:='keep-alive';rnrn <em>idhttp</em>1.Request.CacheControl:='no-cache';rnrnrnParam:=TStringList.Create;rnResponse:=TStringStream.Create('');rntryrnwsmessage:=ansitoutf8(wsmessage);rnparam.Clear;rnParam.Add('formhash='+formhash);rnparam.Add('wysiwyg=0');rnParam.Add('subject='+subject);rnParam.Add('message='+wsmessage);rnparam.Add('iconid=');rnparam.Add('addfeed=1');rnparam.Add('topicsubmit=%B5o%B<em>7</em>s%B8%DC%C3D');rn//Param.Add('userlogin=%E<em>7</em>%99%BB%E5%BD%95');rnurl:=url+'/<em>post</em>.php?action=newthread&fid='+fid+'&extra=&topicsubmit=yes';rntryrn <em>idhttp</em>1.Post(url,param,response); rn rn exceptrn showmessage('发贴失败');rn end;rnfinallyrn Param.Free;rn response.Free;rnend;rn showmessage(response.DataString);rnrnend;rn
IdHttp post 一个html
[b][color=#FF0000]HTML:[/color][/b]rn[code=HTML]rnrn 无标题页rnrnrn rn rn 用户:rn rn rn 密码:rn rn rn rn rn rn rn rn rn rn rnrnrn[/code]rnrnrn[color=#FF0000][b]ASP.NET[/b][/color]rn[code=C#]public partial class _info : System.Web.UI.Pagernrn protected void Page_Load(object sender, EventArgs e)rn rn string strName = Request.Form["user"];rn string strPwd = Request.Form["password"];rn Response.Write("user=" +strName);rn Response.Write(" ");rn Response.Write("password=" +strPwd);rn rn[/code]rnrnrn[b][color=#FF0000]请问用IdHttp如何提交数据?[/color][/b]rnrnrnrn
IdHttp重定向POST错误
设置HandleRedirects = true;rn向服务器发POST,被重定向,这时正确的方式是GET重定向网址,rn但是IdHttp竟然采用POST方式向重定向网址再次提交了用户名和密码,导致错误的返回rn我用的是Indy8.0,改为9.0就好了吗?
IDHTTP如何post 换行符?
一个很奇怪的问题,当我用<em>idhttp</em>来<em>post</em>一组数据的时候发现无法正确的提交换行和回车符。rn比如说我想<em>post</em>的数据未 a+换行+b 我想要的提交hex数据是 61 0D 0A 62,rn可是无论我设置成 'a'+#13+'b' 还是 'a'+#13+#10+'b' 或者 'a'+'#10'+'b'提交出去的hex数据都是 61 26 62,也就是说给提交成了a&b这样的数据了。rn请问谁知道如何来正确的提交换行+回车这样的符号!rn
delphi7 JSON测试
procedure TForm1.Button1Click(Sender: TObject); var   sj, aj, sjj: ISuperObject;   i: integer; begin   sj := SO();   sjj := SO();   aj := SA([]);   for i := 0 to 10 do   begin     sj.s['Phon
idHTTP 发送 json格式问题
用D<em>7</em>的idHTTP 向自己的网站发送<em>json</em><em>格式</em>数据,php总是收不到 var rbody:tstringstream; begin rbody:=tstringstream.Create('{"n
delphi解析json数据的方法
<em>delphi</em><em>7</em>解析<em>json</em>数据 1. 定义一个(TsuperArray的变量) aSuperArray: TSuperArray;(需要引入Ticketservice) 2.定义v<em>json</em>:ISuperObject;(引入Tsuperobject) 3.vJson:=so(s1);将<em>json</em>数据加载到v<em>json</em>中 4.第一层key值直接获取 asuperarray:=v<em>json</em>['Resu
delphi 7.0 json
<em>delphi</em><em>7</em>的<em>json</em>解析库。 将里面的superobject.dcu添加进工程就可以了
Indy SSL Lib For Delphi7 OpenSSL
Indy SSL Lib For Delphi<em>7</em> OpenSSL libeay32.dll ssleay32.dll
idhttp post的xml的乱码问题
xml文件打开是这样的.rn rn- rn TestPay rn unified.trade.micropay rn <em>7</em>551000001 rn lv1<em>7</em>0918103544 rnrn我用 TStrings LoadFromFile 后rn显示出来就变成这样了,, rnrnTestPayrnunified.trade.micropayrn<em>7</em>551000001rnlv1<em>7</em>0918103544rnrn我<em>post</em> 后,会返回Parse xml error,please use UTF-8 encoded
idhttp post 问题
procedure TForm1.Button1Click(Sender: TObject);rnvarrn filestream:TIdMultiPartFormDataStream;rnbeginrn zipname:=extractfiledir(application.exename)+'\upload.zip';rn filestream:=TIdMultiPartFormDataStream.Create;rn filestream.addfile('file1',zipname,'');rn <em>idhttp</em>1.Disconnect;rn <em>idhttp</em>1.<em>post</em>('http://192.168.1.2:8086/sb/gssbServlet',filestream);rn <em>idhttp</em>1.Connected;rnend;rnrn文件路径及文件名没问题,链接没问题,为什么执行到<em>idhttp</em>1.connected;的时候老是<em>报错</em>rn错误信息为 500 internal server error 请问有什么办法搞定吗?
delphi7 +indy9.00.10访问https出404错误,其它https正常
QQ安全中心其它数据都可以用<em>https</em>采集,就这个数据不行;修改成<em>https</em>://ui.ptlogin2.qq.com/cgi-bin/login也不行,浏览器可正常打开并返回200.改成http也能正常返回数据.邪门了.rn源码:rnsenddata.url:='<em>https</em>://ui.ptlogin2.qq.com/cgi-bin/login?'+'appid=2001601&no_verifyimg=1&f_url=loginerroralert&lang=0&target=top&hide_title_bar=1&s_url=<em>https</em>%3A//aq.qq.com/cn2/index&qlogin_jumpname=aqjump&qlogin_param=aqdest%3D<em>https</em>%253A//aq.qq.com/cn2/index&css=<em>https</em>%3A//aq.qq.com/v2/css/login.css';rn senddata.refer:='<em>https</em>://aq.qq.com/cn2/index';rn<em>https</em>getor<em>post</em>(senddata,true)rnrnfunction <em>https</em>getor<em>post</em>(var huodongqq:sendrecord;ckenable:boolean;<em>post</em>:boolean=false;redirect:boolean=true):reciverecord;rnvarrn gethttp:t<em>idhttp</em>;rn idssl:TIdSSLIOHandlerSocket;rn response,<em>post</em>d,response1:tstringstream;rnbeginrn result.cookie:='';rn result.response:='connect error';rn //<em>idhttp</em>基本设置rn gethttp:=t<em>idhttp</em>.Create(nil);rn gethttp.HTTPOptions:=gethttp.HTTPOptions+[hoKeepOrigProtocol];//关键这行rn gethttp.ProtocolVersion:=pv1_1;rn gethttp.HTTPOptions:=gethttp.HTTPOptions-[hoForceEncodeParams];//去掉自动编码rn gethttp.AllowCookies:=true;rn gethttp.ReadTimeout:=60000;rn gethttp.HandleRedirects:=redirect;rn gethttp.Request.AcceptCharSet := 'GBK,utf-8;q=0.<em>7</em>,*;q=0.3';rn gethttp.Request.AcceptLanguage := 'zh-CN';rn gethttp.Request.Connection:='Keep-Alive';rn rn idssl:= TIdSSLIOHandlerSocket.create(nil);rn idssl.SSLOptions.Method:=tidsslversion(3);rn gethttp.IOHandler :=idssl;rn //进一步设置rn if huodongqq.accept<>'' then gethttp.Request.accept:=huodongqq.acceptrn else gethttp.Request.Accept:='*/*';rn if huodongqq.contenttype<>'' then gethttp.Request.ContentType:=trim(huodongqq.contenttype)rn else gethttp.Request.ContentType:='application/x-www-form-urlencoded';rn if huodongqq.useragent<>'' thenrn beginrn gethttp.Request.UserAgent:=trim(huodongqq.useragent);rn gethttp.Request.AcceptCharSet :='';rn endrn else gethttp.Request.UserAgent :='Mozilla/5.0 (Windows NT 5.1) AppleWebKit/53<em>7</em>.36 (KHTML, like Gecko) Chrome/39.0.21<em>7</em>1.65 Safari/53<em>7</em>.36';rn if huodongqq.acceptencoding<>'' then gethttp.Request.AcceptEncoding:=huodongqq.acceptencodingrn else gethttp.Request.AcceptEncoding := ''; //'gzip,deflate,sdch'; 文件压缩<em>格式</em>rn if huodongqq.refer<>'' then gethttp.Request.Referer:=huodongqq.refer;rn if huodongqq.host<>'' then gethttp.Host:=huodongqq.host;rn if (huodongqq.cookie<>'') or (huodongqq.myheader<>'') then gethttp.Request.SetHeaders; //最重要的初始化。rn if huodongqq.cookie<>'' then gethttp.request.customheaders.add('cookie: '+huodongqq.cookie);rn if huodongqq.myheader<>'' then gethttp.request.customheaders.add(huodongqq.myheader);rn if huodongqq.proxyserver<>'' thenrn beginrn gethttp.ProxyParams.ProxyServer:=huodongqq.proxyserver;rn gethttp.ProxyParams.ProxyPort:=huodongqq.ProxyPort;rn end;rnrn response:=tstringstream.Create('');rn //开始发送rn tryrn tryrn if (huodongqq.<em>post</em>data='') and (<em>post</em>=false) then gethttp.Get(huodongqq.url,response)rn elsern beginrn <em>post</em>d:=tstringstream.Create('');rn tryrn <em>post</em>d.WriteString(huodongqq.<em>post</em>data);rn gethttp.Request.ContentLength:=<em>post</em>d.Size;rn gethttp.<em>post</em>(huodongqq.url,<em>post</em>d,response);rn finallyrn <em>post</em>d.Free;rn end;rn end;rn exceptrn on E: Exception do if not form1.drcb.Checked then listinsert(huodongqq.qqnum,'','<em>https</em>getor<em>post</em>出错'+inttostr(gethttp.responsecode)+e.message);rn end;rn if (gethttp.responsecode<>301) and (gethttp.responsecode<>302) and (gethttp.responsecode<>200) then exit;rn if ckenable =true then result.cookie:=cookieread(gethttp.Response.RawHeaders);rn if (gethttp.response.ResponseCode=302) or (gethttp.response.ResponseCode=301) then result.url:=gethttp.response.location;rn if gethttp.Response.contentencoding='gzip' thenrn beginrn response1:=tstringstream.Create('');rn DecompressGZip(response,response1);rn result.response:=response1.datastring;rn response1.Free;rn endrn else result.response:=response.datastring;rn finallyrn gethttp.Free;rn idssl.Free;rn response.Free;rn end;rnend;
delphi7 idhttp的运行速度为何慢?
用<em>delphi</em><em>7</em>中的<em>idhttp</em>做了一个<em>post</em>程序,是SSL的网站,运行速度大概为8个/秒,但相同的机器我用.net做发现速度达到40个/s,请教各位<em>idhttp</em>是否有速度优化的做法,还是难道因为ssleay32.dll和libeay32.dll这2个文件的影响?(2个文件是用来支持ssl数据交换的,从某个网站下载的)
delphi7 idhttp怎样处理cookies
大家好:rn 请教一下,<em>delphi</em><em>7</em>里的 <em>idhttp</em>控件怎样处理cookies?用Http AnalyZer 截包工具,截取到的cookies有两类,一类为直接cookies Name的, 另一类为set-Cookies name的,请教一下,这两种cookies有什么区别,用<em>idhttp</em>去发包的时候,怎样去模拟这两种cookies?
httpPost对JSON发送和接收
public static String <em>post</em>URL(String commString, String address, String encode) { String rec_string = ""; URL url = null; HttpURLConnection urlConn = null; try { /*得到
Delphi7 TIdHTTP 访问Https,用网上推荐的方法,报错
http://blog.csdn.net/beiguofengguang/article/details/<em>7</em>3968<em>7</em>8 <em>delphi</em> <em>idhttp</em><em>访问</em><em>https</em>需要增加IdSSLIOHandlerS
通过Json数据格式进行Http服务交互(Delphi)
利用IdHTTP进行Http服务的数据交互,交互数据<em>格式</em>采用目前流行的Json,实现Get和Post方式的交互
delphi idhttp post json 数据方法
如果.怎么模拟POST JSON数据类型. DELPHI XE2 ,谢谢!
delphi7调用JAVA RESTFUL接口
IXMLHTTPRequest 在单元:msxml function TFmeFndOrder.GetUCMPData(pTel: string): string; var   HttpReq              : IXMLHTTPRequest;   vQryURL, vQryJSONStr       : string; begin   vQryURL := '
asynchttpclient的post方法发送json格式参数和表单格式参数
Android使用 asynchttpclient的<em>post</em>方法发送数据大致可分为两种情况;一种使用<em>post</em>(android.content.Context context, java.lang.String url, cz.msebera.android.httpclient.HttpEntity entity, java.lang.String contentType, ResponseHand
关于https访问POST提交的问题
PB采用<em>https</em>方式<em>访问</em>,提交方式为POST,在网上找了一个例程,但不知为什么到send函数时说非法调用函数,请哥们指导一下,谢谢(小弟的QQ是:623868893)。rnrnrnString ls_url,ls_data,ls_responsernrn//采用<em>https</em>的URLrnls_url = '<em>https</em>://192.168.142.245/JoyCard/coreServlet' rnrnOleObject lole_tenyear //声明olernlole_tenyear = CREATE oleobject rnlole_tenyear.ConnectToNewObject("Microsoft.XMLHttp") //帮顶XMLhttp组件,我测过xp和win<em>7</em>都自带,不需安装任何辅助软件如.net环境rnrnlole_tenyear.open ("POST",ls_url, false) //<em>参数</em>解释请看:rn//http://blog.csdn.net/ldl2284<em>7</em>/article/details/966292<em>7</em>rnrnlole_tenyear.setRequestHeader ("Content-type", "application/x-www-form-urlencoded")rnlole_tenyear.setRequestHeader('Content-Length',string(len(ls_data)))rnrn//lole_tenyear.send ('')rnlole_tenyear.send (ls_data) //关键是这一步:如果你的<em>https</em>的环境没有安装浏览器的认证的根证书,一定会<em>报错</em>退出,如果你申请安装了verisign等权威机构发的根证书,用ie打开上面的<em>https</em>,就不会报红色警告(问你是不是继续)。但pb不会提示你是不是继续,直接<em>报错</em>退出。verisign的证书一年好像要1万-10万元的服务费。在这里你如果想测试一下,你可以把上面的<em>https</em>地址换成<em>https</em>://www.alipay.com/ (支付宝的),不会<em>报错</em>的。注意:这里的证书及验证都是单向验证,不是双向的。rnrnls_response = lole_tenyear.responseText //返回结果rnmessagebox("",ls_response) rnrnIF lole_tenyear.Status >= 300 THEN rnMessageBox ("HTTP request failed:", lole_tenyear.StatusText ,Exclamation!,OK!) rnEND IF rnrn
如何用HttpWebRequest post 代理访问https
如何用HttpWebRequest <em>post</em> 代理<em>访问</em><em>https</em>
httpClient模拟post请求访问https地址
我用httpClient模拟<em>post</em><em>访问</em>服务器<em>https</em>地址 一直连接不上服务器,代码如下:rnhttpclient = new DefaultHttpClient();rn SSLContext sslcontext = SSLContext.getInstance("TLS"); rn sslcontext.init(null, new TrustManager[] truseAllManager , null); rnSSLSocketFactory sf = new SSLSocketFactory(sslcontext); rnsf.setHostnameVerifier(SSLSocketFactory.ALLOW_ALL_HOSTNAME_VERIFIER); rn Scheme <em>https</em> = new Scheme("<em>https</em>", sf, 443); rn httpclient.getConnectionManager().getSchemeRegistry().register(<em>https</em>); rnHttpPost http<em>post</em> = new HttpPost("<em>https</em>://xxx.xxx.xxx.xxx:8443/xxxxx/checkClient");rnHttpResponse response = httpclient.execute(http<em>post</em>);rn......rnprivate static TrustManager truseAllManager = new X509TrustManager() rn rn public void checkClientTrusted( rn java.security.cert.X509Certificate[] arg0, String arg1) rn throws CertificateException rn // TODO Auto-generated method stub rn rn rn rn public void checkServerTrusted( rn java.security.cert.X509Certificate[] arg0, String arg1) rn throws CertificateException rn // TODO Auto-generated method stub rn rn rn rn public java.security.cert.X509Certificate[] getAcceptedIssuers() rn // TODO Auto-generated method stub rn return null; rn rn rn ; rnrn执行到HttpResponse response = httpclient.execute(http<em>post</em>);这段代码时 就报HTTP/1.1 500 Internal Server Error[\r][\n]rn折腾了2天了 请教大神了rn
[分享]可以用POST方法访问HTTPS的函数
前些日子,我一直被如何用TIdHTTP控件<em>访问</em>HTTPS弄得焦头烂额,最后终于受不了了,决定自己写一个。我调用了WinINet.DLL的API,效果还不错:rn[code=<em>delphi</em>]rnuses WinINet, Windows, Sysutils, Classes, IDURI;rnrnprocedure Post(url, data:string;res:TStream);rnvarrn hInt,hConn,hreq:HINTERNET;rn buffer:PChar;rn dwRead, dwFlags:cardinal;rn port: Word;rn uri: TIdURI;rn proto, host, path: string;rnbeginrn uri := TIdURI.Create(url);rn host := uri.Host;rn path := uri.Path + uri.Document;rn proto := uri.Protocol;rn uri.Free;rn if UpperCase(proto) = 'HTTPS' thenrn beginrn port := INTERNET_DEFAULT_HTTPS_PORT;rn dwFlags := INTERNET_FLAG_SECURE;rn endrn elsern beginrn port := INTERNET_INVALID_PORT_NUMBER;rn dwFlags := INTERNET_FLAG_RELOAD;rn end;rn hInt := InternetOpen('Delphi',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);rn hConn := InternetConnect(hInt,PChar(host),port,nil,nil,INTERNET_SERVICE_HTTP,0,0);rn hreq := HttpOpenRequest(hConn,'POST',PChar(Path),'HTTP/1.1',nil,nil,dwFlags,0);rn GetMem(buffer, 65536);rn if HttpSendRequest(hReq,nil,0,PChar(data),Length(data)) thenrn beginrn dwRead:=0;rn repeatrn InternetReadFile(hreq,buffer,65536,dwRead);rn if dwRead<>0 thenrn res.Write(buffer^, dwRead);rn until dwRead=0;rn end;rn InternetCloseHandle(hreq);rn InternetCloseHandle(hConn);rn InternetCloseHandle(hInt);rn FreeMem(buffer);rnend;rn[/code]rn详见:[url=http://download.csdn.net/detail/hsfzxjy/5<em>7</em><em>7</em>2195][/url][img=<em>https</em>://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/13.gif][/img]
模拟退火程序下载
模拟退火算法是智能计算的一种,可求组合优化,连续非线性优化等。 相关下载链接:[url=//download.csdn.net/download/bcliszh/4066012?utm_source=bbsseo]//download.csdn.net/download/bcliszh/4066012?utm_source=bbsseo[/url]
3类与对象基础实验(一)下载
3类与对象基础实验(一) zucc 浙江大学城市学院 java 2009级的 相关下载链接:[url=//download.csdn.net/download/new__moon/4136871?utm_source=bbsseo]//download.csdn.net/download/new__moon/4136871?utm_source=bbsseo[/url]
MDI多文档应用程序下载
更改新建窗口的背景色,以及其他基本功能,仅供参考! 相关下载链接:[url=//download.csdn.net/download/www66net/7303745?utm_source=bbsseo]//download.csdn.net/download/www66net/7303745?utm_source=bbsseo[/url]
相关热词 c#检测非法字符 c#双屏截图 c#中怎么关闭线程 c# 显示服务器上的图片 api嵌入窗口 c# c# 控制网页 c# encrypt c#微信网页版登录 c# login 居中 c# 考试软件
我们是很有底线的