解决DATASNAP远程方法参数超过32个的问题

群里有位同仁提出他有一个DATASNAP远程方法超过了32个参数，然后DELPHI编译通不过，提示方法参数不能超过32个，问怎么办？于是群内同仁纷纷出主意，我说用OLEVARINAT数组，有人说用RECORD，我又说别说用RECORD，连自定义的类也是可以的。于是我想到了实现，用SUPEROBJECT序列RECORD或者CLASS为JSON的字符串挺方便的，中间件收到客户端传来的JSON字符串再还原为RECORD或者CLASS。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, superobject;

type
TPerson = record
id: Integer;
name: string;
end;

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
s: string;

procedure TForm1.Button1Click(Sender: TObject);
var
p: TPerson;
i: ISuperObject;
begin
p.id :=1;
p.name :='name';
i := SO();
i.I['id']:=p.id;
i.S['name']:=p.name;
s := i.AsString;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: ISuperObject;
begin
i := SO(s);
ShowMessage(i['id'].AsString);
showmessage(i['name'].AsString);
end;

end.