delphi 使用superobject实现jsonrpc的http远程调用

最新推荐文章于 2025-09-14 11:37:04 发布

原创最新推荐文章于 2025-09-14 11:37:04 发布 · 3.7k 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

30 篇文章

订阅专栏

本文详细介绍了如何使用JSON-RPC通过SO（SuperObject）进行数据请求和处理，包括发送请求、接收响应、解析JSON数据以及将JSON数据转换为对象或对象转换为JSON的过程。

procedure TForm5.Button4Click(Sender: TObject);
var
  O, item: ISuperObject;
  Strm: TStringStream;
  result: string;
  ctx: TSuperRttiContext;
  student: TStudent;
begin
  //可以参考superobject 的readme.html
  //json demo https://en.bitcoin.it/wiki/API_reference_%28JSON-RPC%29
  // {"jsonrpc":"2.0","method":"fuck","params":["hehe",32,4],"id":"1433813750019"}
  // O := SO('{"jsonrpc":"2.0","method":"fuck","params":["hehe",32,4],"id":"1433813750019"}');
  // O := SO('{"jsonrpc": "2.0", "method": fuck, "params":["hehe",32,4]}');
  O := SO(
    '{"jsonrpc": "2.0", "method": "fuck", "params":["hehe",32,4],"id":"12"}');
  Strm := TStringStream.Create(O.AsString);
  try
    IdHTTP1.Request.ContentType := 'application/json';
    result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);
    Memo1.Lines.Add(result);
    O := SO(result);
    Memo1.Lines.Add(O.AsObject.S['result']);

    O := SO(
      '{"jsonrpc":"2.0","method":"getstudent","params":[{"id":1,"name":"name","age":123}],"id":"1433813750240"}');
    Strm := TStringStream.Create(O.AsString);
    result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);
    Memo1.Lines.Add(result);
    O := SO(result);
    result := O.AsObject.S['result'];
    Memo1.Lines.Add(result);

    ctx := TSuperRttiContext.Create;
    try
      // json转换为对象
      student := ctx.AsType<TStudent>(SO(result));
      ShowMessage(student.name);
      // 对象转换为json
      O := ctx.AsJson<TStudent>(student);
      ShowMessage(O.AsString);
    finally
      // ctx.Free;
    end;

    O := SO(
      '{"jsonrpc":"2.0","method":"getstudents","params":["xxx"],"id":"1433814568751"}');
    Strm := TStringStream.Create(O.AsString);
    result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);
    Memo1.Lines.Add(result);
    O := SO(result);
    Memo1.Lines.Add(O.AsObject.S['result']);

    for item in O['result'] do
    begin

      student := ctx.AsType<TStudent>(item);
      ShowMessage(student.name);
      // ShowMessage(item.AsString);
    end;
  finally
    Strm.Free;
  end;
end;