freepascal.compiler/packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp

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);
    procedure DataModuleCreate(Sender: TObject);
  private
    { private 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;

procedure TDemoClass.DataModuleCreate(Sender: TObject);
begin
  Kind:=wkOneShot;
  Cors.Enabled:=True;
end;

initialization
  RegisterHTTPModule('demo', TDemoClass);
end.