unit uROLocalServer;

{----------------------------------------------------------------------------}
{ RemObjects SDK Library - Core components                                   }
{                                                                            }
{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
{ platform: Win32, Linux                                                     }
{                                                                            }
{ (c)opyright RemObjects Software. all rights reserved.                      }
{                                                                            }
{ Using this code requires a valid license of the RemObjects SDK             }
{ which can be obtained at http://www.remobjects.com.                        }
{----------------------------------------------------------------------------}

{$I RemObjects.inc}

interface

uses
  {$IFDEF REMOBJECTS_TRIAL}uROTrial,{$ENDIF}
  Classes, uROServer, uROClientIntf, uROClasses;

type
  TROLocalServer = class(TROServer, IROTransport)
  protected
    procedure IntSetActive(const Value: Boolean); override;
    function IntGetActive: Boolean; override;
    function GetTransportObject: TObject;
  public
    procedure SendRequest(aRequeststream, aResponsestream: TStream);
  published
    property Active default True;
  end;

implementation


{ TROLocalServer }

function TROLocalServer.GetTransportObject: TObject;
begin
  result := self;
end;

function TROLocalServer.IntGetActive: Boolean;
begin
  result := true;
end;

procedure TROLocalServer.IntSetActive(const Value: Boolean);
begin
  // do nothing
end;

procedure TROLocalServer.SendRequest(aRequeststream,
  aResponsestream: TStream);
begin
  DispatchMessage(self, aRequeststream, aResponsestream);
end;

initialization
  RegisterServerClass(TROLocalServer);
finalization
  UnregisterServerClass(TROLocalServer);
end.