serverlibrary_invk.pas

来自「用JavaScript编写的虚拟键盘」· PAS 代码 · 共 97 行

//------------------------------------------------------------------------------
// <autogenerated>
//     This Chrome source code was generated by a tool.
//     Chrome Version: 2.0.3.411
//     Runtime Version: 2.0.50727.1433
//
//     Changes to this file may cause incorrect behavior and will be lost if 
//     the code is regenerated.
// </autogenerated>
//------------------------------------------------------------------------------

{$HIDE PW12}

namespace Server;

interface

uses
    System,
    RemObjects.SDK,
    RemObjects.SDK.Types,
    RemObjects.SDK.Server;
    
type
    [RemObjects.SDK.Server.Invoker]
    ServerService_Invoker = public class(RemObjects.SDK.Server.Invoker)
        public 
            constructor;
            class method Invoke_Sum(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
            class method Invoke_GetServerTime(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
            class method Invoke_HelloWorld(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
    end;
    
    [RemObjects.SDK.Activator]
    ServerService_Activator = public class(RemObjects.SDK.Server.ServiceActivator)
        public 
            constructor;
            method CreateInstance: RemObjects.SDK.IROService; override;
    end;
    
implementation

{ ServerService_Invoker }

constructor ServerService_Invoker;
begin
    inherited constructor();
end;

class method ServerService_Invoker.Invoke_Sum(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
var
    &Result: System.Int32;
begin
    var A: System.Int32 := __Message.ReadInt32('A');
    var B: System.Int32 := __Message.ReadInt32('B');
    &Result := (__Instance as IServerService).Sum(A, B);
    __Message.InitializeResponseMessage(__ServerChannelInfo, 'ServerLibrary', 'ServerService', 'Sum');
    __Message.WriteInt32('Result', &Result);
    __Message.FinalizeMessage();
    __oResponseOptions := RemObjects.SDK.Server.ResponseOptions.roDefault;
end;

class method ServerService_Invoker.Invoke_GetServerTime(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
var
    &Result: System.DateTime;
begin
    &Result := (__Instance as IServerService).GetServerTime();
    __Message.InitializeResponseMessage(__ServerChannelInfo, 'ServerLibrary', 'ServerService', 'GetServerTime');
    __Message.WriteDateTime('Result', &Result);
    __Message.FinalizeMessage();
    __oResponseOptions := RemObjects.SDK.Server.ResponseOptions.roDefault;
end;

class method ServerService_Invoker.Invoke_HelloWorld(__Instance: RemObjects.SDK.IROService; __Message: RemObjects.SDK.IMessage; __ServerChannelInfo: RemObjects.SDK.Server.IServerChannelInfo; out __oResponseOptions: RemObjects.SDK.Server.ResponseOptions);
var
    &Result: System.String;
begin
    &Result := (__Instance as IServerService).HelloWorld();
    __Message.InitializeResponseMessage(__ServerChannelInfo, 'ServerLibrary', 'ServerService', 'HelloWorld');
    __Message.WriteAnsiString('Result', &Result);
    __Message.FinalizeMessage();
    __oResponseOptions := RemObjects.SDK.Server.ResponseOptions.roDefault;
end;

{ ServerService_Activator }

constructor ServerService_Activator;
begin
    inherited constructor();
end;

method ServerService_Activator.CreateInstance: RemObjects.SDK.IROService;
begin
    exit(new ServerService());
end;

end.