1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

unit SharedInterface;

{%UNSAFECODE ON}

interface
type
  iLoginManager = interface
    function UserLogin (Password : string; Username : string) : boolean;
    function getUsername : string;
  end;

implementation

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var Chan : TcpChannel;
begin
  WriteLn('Server started...');

  Chan := TcpChannel.Create(4242);
  ChannelServices.RegisterChannel(Chan);

  // Befehl damit der Client ein Objekt der Klasse erstellen kann
  RemotingConfiguration.RegisterActivatedServiceType(typeof(tLogin));

  // Hiermit würde der Server eine Instanz der Klasse erstellen
  {RemotingConfiguration.RegisterWellKnownServiceType(typeof(tLogin)
  ,LoginResource
  ,WellKnownObjectMode.SingleCall); }

  WriteLn('Key quits Server');
  ReadLn;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  tLogin = class(MarshalByRefObject, iLoginManager)
  private
    fLoggedUser : Longword;
    fUName : string;
  public
    constructor Create;
    function UserLogin (Password : string; Username : string) : boolean;
    function getUsername : string;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var Channel : TcpChannel;
    LoginManager : iLoginManager;

procedure RegisterChannel(Server : string);
var url : array [0..0] of TObject;
begin
  if not Assigned(Channel) then
  begin
    Channel := TcpChannel.Create;
    ChannelServices.RegisterChannel(Channel);
  end;

  Server := 'tcp://' + Server +':4242/LoginManager';
  url[0] := Server;

  if not Assigned(LoginManager) then
  begin
    // Das würde ein bestehendes Objekt auf dem Server nutzen
    //LoginManager := Activator.GetObject(typeof(iLoginManager),Server,Channel);
    // Das soll ein Objekt auf dem Server erstellen und eine Referenz auf das Objekt an den Client übergeben
    LoginManager := iLoginManager(Activator.CreateInstance(typeof(iLoginManager),nil,url));
  end; 

end;