| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2018/1/23 16:13:23 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 最近用netHttpClient上网站上去扒取数据。form的字段放在tstringlist里就能提交了，可最近发现一个网站是用ajax提交的，代码如下： $.ajax({ type: "Post", url: "POConfirmDialogConfirm.aspx/btnConfirm_Click", contentType: "application/json; charset=UTF-8", data: "{'pono':'" + poNO + "','signaturePassword':'" + signaturePassword + "','userSid':'" + userSID + "','poReleaseDatetime':'" + parent.document.getElementById("PO_RELEASE_DATETIME").value.replace(" ","#") + "','loginId':'"+loginId+"'}", dataType: "json", success: function (data) { stopProgressBar(); if (data.d.indexOf('#NotMatch') > -1) { alert(data.d.replace("#NotMatch","")); window.location.reload(); return; } 然后，在Delphi中netHTTPClient咋提交？这样写不对哦。 jsData:='{''pono'':''4504618991'',''signaturePassword'':''101010'',''userSid'':''203'',''poReleaseDatetime'':''2018-01-23#15:14:56'',''loginId'':''50100147''}'; netHttpClient1.ContentType:='application/json; charset=UTF-8'; netHttpClient1.Post('https://buy.thyssen.com.cn/order/POConfirmDialogConfirm.aspx/btnConfirm_Click', jsData); ---------------------------------------------- - |
|||||
| 作者： |
|
2018/1/23 16:46:08 | ||||
| 1楼： | 就是POST数据包 ---------------------------------------------- 相信自己，若自己都不相信，那还有谁可信。 |
|||||
| 作者： |
|
2018/1/24 10:12:17 | ||||
| 2楼： | 问题已解决，代码贴出来，主要是有两个注意点。 1.要指定 netHttpClient1的ContentType属性 2.要使用StringStream提交，不能使用StringList，性质不一样。 var poNo,poReleaseDatetime:string; jsData,postData:string; postStream:TStringStream; AResponse:IHTTPResponse; begin netHttpClient1.ContentType:='application/json'; jsData:='{''pono'':''%s'',''signaturePassword'':''101010'',''userSid'':''203'',''poReleaseDatetime'':''%s'',''loginId'':''50100147''}'; FDMemTable1.First; while not FDMemTable1.Eof do begin poNo:=FDMemTable1.FieldByName('Order_No').AsString; poReleaseDatetime:=stringReplace(FDMemTable1.FieldByName('Release_Datetime').AsString,' ','#',[rfReplaceAll]); postData:=Format(jsData,[poNo,poReleaseDatetime]); postStream:=TStringStream.Create(postData); try AResponse:=netHttpClient1.Post('  https://buy.thyssen.com.cn/order/POConfirmDialogConfirm.aspx/btnConfirm_Click',postStream);if pos('PO_CONFIRMED',AResponse.ContentAsString)>0 then //返回了正确的Json begin FDMemTable1.Edit; FDMemTable1.FieldByName('OrderConfirm').AsString := '确认成功'; FDMemTable1.Post; end else begin FDMemTable1.Edit; FDMemTable1.FieldByName('OrderConfirm').AsString := '确认失败'; FDMemTable1.Post; end; finally postStream.Free; end; FDMemTable1.Next; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2018/1/24 11:06:59 | ||||
| 3楼： | 顶楼主。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2018/1/24 20:55:08 | ||||
| 4楼： | 用户名密码都有了... ---------------------------------------------- - |
|||||
| 作者： |
|
2018/1/24 21:54:08 | ||||
| 5楼： | 马勒戈壁啊，发过的帖子如何修改？版主呢？ ---------------------------------------------- - |
|||||
| 作者： |
|
2018/1/27 12:12:08 | ||||
| 6楼： | 赞一个 ---------------------------------------------- - |
|||||
| 作者： |
|
2018/1/27 13:30:17 | ||||
| 7楼： | 就喜欢这样的遇到了问题说出来，解决了问题也把解决办法说出来，大家共同进步！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
