Использование аргумента результата в SuperObject

Question

Я использую этот блок суперобъектов в одном из моих проектов как протокол rpc и внутри удаленной процедуры (подпись имеет аргумент var Result). Я хочу знать, как использовать этот аргумент. ..

Нет документации? Благодарю.

program test_rpc; 

{$IFDEF FPC} 
    {$MODE OBJFPC}{$H+} 
{$ELSE} 
    {$APPTYPE CONSOLE} 
{$ENDIF} 

uses 
    SysUtils, superobject; 

procedure controler_method1(const This, Params: ISuperObject; var Result: ISuperObject); 
var 
    i: Integer; 
begin 
    write('action called with params '); 
    writeln(Params.AsString); 

    try 
    // How do i use Result arg to return a value ? as if it were a function returning string 
    Result 
    except 
    exit; 
    end; 
end; 

var 
    s: ISuperObject; 
begin 
    s := TSuperObject.Create; 
    s.M['controler.action1'] := @controler_method1; 
    try 
    s['controler.action1("HHAHAH")']; 
    finally 
    s := nil; 
    writeln('Press enter ...'); 
    readln; 
    end; 
end. 

Answer 1

Когда controler_method1 вызывается, параметр Resultvar является nil. Чтобы вернуть что-то вызывающему абоненту, вам необходимо назначить Result.

Result := TSuperObject.Create; 

Это пустой супер объект. Теперь вы можете заполнить его любыми значениями, которые вам нравятся обычным способом.

Вот простая демонстрация:

program test_rpc; 

{$IFDEF FPC} 
    {$MODE OBJFPC}{$H+} 
{$ELSE} 
    {$APPTYPE CONSOLE} 
{$ENDIF} 

uses 
    SysUtils, 
    superobject in 'superobject.pas'; 

procedure controler_method1(const This, Params: ISuperObject; 
    var Result: ISuperObject); 
begin 
    Result := TSuperObject.Create('Foo'); 
end; 

var 
    s: ISuperObject; 
begin 
    s := TSuperObject.Create; 
    s.M['controler.action1'] := controler_method1; 
    Writeln(s['controler.action1("HHAHAH")'].AsString); 
    Readln; 
end.