mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-15 02:45:59 +02:00
53 lines
877 B
ObjectPascal
53 lines
877 B
ObjectPascal
unit wmext;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, HTTPDefs, websession, fpHTTP, fpWeb,
|
|
fpjsonrpc, webjsonrpc, fpextdirect, fpjson;
|
|
|
|
type
|
|
|
|
{ TDemoClass }
|
|
|
|
TDemoClass = class(TExtDirectModule)
|
|
Add: TJSONRPCHandler;
|
|
procedure AddExecute(Sender: TObject; const Params: TJSONData; out
|
|
Res: TJSONData);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
DemoClass: TDemoClass;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TDemoClass }
|
|
|
|
procedure TDemoClass.AddExecute(Sender: TObject;
|
|
const Params: TJSONData; out Res: TJSONData);
|
|
|
|
Var
|
|
A,B : TJSONData;
|
|
|
|
begin
|
|
If (Params is TJSONArray) then
|
|
begin
|
|
A:=TJSONArray(Params).Items[0];
|
|
B:=TJSONArray(Params).Items[1];
|
|
Res:=TJSONFLoatNumber.Create(B.AsFloat+A.AsFloat);
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterHTTPModule('demo', TDemoClass);
|
|
end.
|
|
|