appserver_module.pas

来自「Delphi快速开发Web Server」· PAS 代码 · 共 61 行

unit AppServer_Module;

interface

uses
  SysUtils, Classes,

  Forms, // D4

  rtcInfo, rtcConn, rtcDataSrv,

  rtcFunction, rtcSrvModule;

type
  TAppSrv_Module = class(TDataModule)
    ServerModule: TRtcServerModule;
    FuncGroup: TRtcFunctionGroup;
    MulFunc: TRtcFunction;
    AddFunc: TRtcFunction;
    ServerLink: TRtcDataServerLink;
    LoopoFunc: TRtcFunction;
    procedure AddFuncExecute(Sender: TRtcConnection;
      Param: TRtcFunctionInfo; Result: TRtcValue);
    procedure MulFuncExecute(Sender: TRtcConnection;
      Param: TRtcFunctionInfo; Result: TRtcValue);
    procedure LoopoFuncExecute(Sender: TRtcConnection;
      Param: TRtcFunctionInfo; Result: TRtcValue);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AppSrv_Module: TAppSrv_Module;

implementation

{$R *.dfm}

procedure TAppSrv_Module.AddFuncExecute(Sender: TRtcConnection;
    Param: TRtcFunctionInfo; Result: TRtcValue);
  begin
  Result.asFloat:=Param.asFloat['A']+Param.asFloat['B'];
  end;

procedure TAppSrv_Module.MulFuncExecute(Sender: TRtcConnection;
    Param: TRtcFunctionInfo; Result: TRtcValue);
  begin
  Result.asFloat:=Param.asFloat['A']*Param.asFloat['B'];
  end;

procedure TAppSrv_Module.LoopoFuncExecute(Sender: TRtcConnection;
    Param: TRtcFunctionInfo; Result: TRtcValue);
  begin
  Result.asObject:=Param.asObject['DATA'];
  Param.asObject['DATA']:=nil;
  end;

end.