66 lines
1.9 KiB
ObjectPascal
66 lines
1.9 KiB
ObjectPascal
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.
|