解决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.
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/3179509.html