serverservice_impl.pas

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

//------------------------------------------------------------------------------
// <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,
    RemObjects.SDK.Server.ClassFactories;
    
type
    [RemObjects.SDK.Server.ClassFactories.StandardClassFactory]
    [RemObjects.SDK.Server.Service(Name := 'ServerService', InvokerClass := typeof(ServerService_Invoker), ActivatorClass := typeof(ServerService_Activator))]
    ServerService = public class(RemObjects.SDK.Server.Service, IServerService)
        private 
            method InitializeComponent;
            var components: System.ComponentModel.Container := nil;
        protected 
            method Dispose(aDisposing: System.Boolean); override;
        public 
            constructor;
            method Sum(A: System.Int32; B: System.Int32): System.Int32; virtual;
            method GetServerTime: System.DateTime; virtual;
            method HelloWorld: System.String; virtual;
    end;
    
implementation

{ ServerService }

constructor ServerService;
begin
    inherited constructor();
    self.InitializeComponent();
end;

method ServerService.InitializeComponent;
begin
end;

method ServerService.Dispose(aDisposing: System.Boolean);
begin
    if aDisposing then begin
        if (self.components <> nil) then begin
            self.components.Dispose();
        end;
    end;
    inherited Dispose(aDisposing);
end;

method ServerService.Sum(A: System.Int32; B: System.Int32): System.Int32;
begin
  result := A + B;
  Console.WriteLine(DateTime.Now.ToString()+'  Sum Called');
end;

method ServerService.GetServerTime: System.DateTime;
begin
  result := DateTime.Now;
  Console.WriteLine(DateTime.Now.ToString()+'  GetServerTime Called');
end;

method ServerService.HelloWorld: System.String;
begin
  result := 'Hello World!';
  Console.WriteLine(DateTime.Now.ToString()+'  HelloWorld Called');
end;

end.