mORMot Open Source

type
  IPictureService = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
    function GetPicture(Index: Integer): <which type? TDynArray? Don't know>;
  end;

type
  TPicturePackage = record
    FileName: RawUTF8;
    Binary: TByteDynArray;
  end;

  IPictureService = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
    function GetPicture(Index: Integer): TPicturePackage;
  end;

function TPictureService.GetPicture(Index: Integer): TPicturePackage;
var 
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Result.FileName := 'biology' + IntToStr(Index) + '.jpg';
    Stream.LoadFromFile(Result.FileName);
    SetLength(Result.Binary, Stream.Size);
    Move(Stream.Memory^, Result.Binary[0], Stream.Size);
  finally
    Stream.Free;
  end;
end;

    Package := PictureService.GetPicture(1);
    Stream := TMemoryStream.Create;
    try
      Stream.Size := Length(Package.Binary);
      Move(Package.Binary[0], Stream.Memory^, Stream.Size);
      Stream.SaveToFile(Package.FileName);
    finally
      Stream.Free;
    end;

type
  IMyBooleanTest = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
    function Test: Boolean;
  end;

const
  ROOT_NAME = 'root';
  APPLICATION_NAME = 'RestService';

type
  TMyBooleanTest = class(TInterfacedObject, IMyBooleanTest)
  public
    function Test: Boolean;
  end;

function TMyBooleanTest.Test: Boolean;
begin
  Result := False;
end;

var
  aModel: TSQLModel;
  aServer: TSQLRestServer;
  aHTTPServer: TSQLite3HttpServer;
begin
  aModel := TSQLModel.Create([],ROOT_NAME);
  try
    aServer := TSQLRestServerFullMemory.Create(aModel,'test.json',false,true);
    try
      aServer.ServiceRegister(TMyBooleanTest,[TypeInfo(IMyBooleanTest)],sicShared);
      aHTTPServer := TSQLite3HttpServer.Create('888',[aServer]);
      try
        writeln('Background server is running.'#10);
        write('Press [Enter] to close the server.');
        readln;
      finally
        aHTTPServer.Free;
      end;
    finally
      aServer.Free;
    end;
  finally
    aModel.Free;
  end;
end.

procedure TForm1.btnCallClick(Sender: TObject);
var
  MyTest: IMyBooleanTest;
begin
  if Client=nil then begin
    if Model=nil then
      Model := TSQLModel.Create([],ROOT_NAME);
    Client := TSQLite3HttpClient.Create('localhost','888',Model);
    Client.SetUser('User','synopse');
    Client.ServiceRegister([TypeInfo(IMyBooleanTest)],sicShared);
  end;

  if Client.Services['MyBooleanTest'].Get(MyTest) then
     ShowMessage(BoolToStr(MyTest.Test));   // <- "Error calling MyBooleanTest.Test remote method".
end;