在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
unit unHttp; interface uses superobject; type TCallback = procedure(errMsg: string) of object; function post(url: string; params: string; callback: TCallback): ISuperObject; implementation uses msxml, System.Variants; function post(url: string; params: string; callback: TCallback): ISuperObject; var req: IXMLHttpRequest; jsObj: ISuperObject; i: Integer; begin req := CoXMLHTTP.Create; req.open('POST', url, false, EmptyParam, EmptyParam); req.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded'); req.send(params); jsObj := SO(req.responseText); if jsObj.i['retid'] = 0 then begin callback(jsObj.S['retmsg']); result := nil; end else result := jsObj.O['data']; end; end. 调用示例,中文无须编码,返回结果无须转码,请求后台utf8编码数据 var jsRet: ISuperObject; begin jsRet := post('http://xxx.cn','f=order_test1&p=[{"token":"23115683430a3ed168dc4c76d87bbc8f","name":"我是参数"}]',callback); if Assigned(jsRet) then Writeln(jsRet.AsString); end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论