delphi http post请求后台，获取json数据

最新推荐文章于 2025-07-24 13:16:01 发布

weixin_30439031

最新推荐文章于 2025-07-24 13:16:01 发布

阅读量2.6k

点赞数

CC 4.0 BY-SA版权

文章标签： json c# php

原文链接：http://www.cnblogs.com/lobtao/articles/7490369.html

本文提供了一个使用 Delphi 发起 HTTP POST 请求的示例代码，通过 SuperObject 库实现与服务器的数据交互。示例展示了如何设置请求头、发送参数及处理响应。

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;

转载于:https://www.cnblogs.com/lobtao/articles/7490369.html