Entwickler-Ecke :: Thema anzeigen - Remoting bringt Exception

syox - Do 17.11.05 10:59
Titel: Remoting bringt Exception

Hi, habe hier eine RemotingKlasse die nich will...
Nach der Erstellung eines Interface (gepackt in ein Assembly) hat soweit alles funktioniert.
Die Programme lassen sich kompilieren und laufen, bis eine Funktion der RemotingKlasse aufgerufen wird...
Eine Exception sagt mir: "Attempted to create well-known object of type TESRemoting.ITESRemoting. Well known objects must derive from the MarshalByRefObject class."

Das Interface der RemotingKlasse:

Delphi-Quelltext

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

unit TESRemoting;

interface
uses System.Data, System.Data.OleDb;

type
  ITESRemoting = Interface
  function RecieveMessageFromServer() : System.String;
  procedure SendMessageToServer(theMessage : System.String);
  end;

implementation

(* empty, this is just an interface *)

end.

Hier die RemotingKlasse des Servers

Delphi-Quelltext

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

...
uses //TESRemoting ist im Projekt mittels des Assembly TES_Remoting.dll eingebunden
... TESRemoting ...
...
    TES_Interface = class(MarshalByRefObject, ITESRemoting)
    strict protected
      procedure Finalize; override;
    private
    public
      constructor Create;
      destructor Destroy; override;
      procedure SendMessageToServer(theMessage : System.String);
      function RecieveMessageFromServer() : System.String;
    end;

die Registrierung des Remoting sieht so aus:

Delphi-Quelltext

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

rocedure TWinForm.bStartServer_Click(sender: System.Object; e: System.EventArgs);
begin
  Self.Protocol('Server started.');
  Channel := HTTPChannel.Create(8888);
  ChannelServices.RegisterChannel(Channel);
  RemotingConfiguration.ApplicationName := 'test';
  RemotingConfiguration.RegisterWellKnownServiceType(typeof(ITESRemoting),
        'testme.soap',WellKnownObjectMode.Singleton);
  // Lebenszeit der Objekte bestimmen ...
  LifetimeServices.LeaseTime := TimeSpan.FromSeconds(5);
  LifetimeServices.RenewOnCallTime := TimeSpan.FromSeconds(5);
end;

Die Exception verstehe ich nich so ganz, da die RemotingKlasse doch von MarshalByRefObject abgeleitet wird....
:(

hier nochmal die Exception:
"Attempted to create well-known object of type TESRemoting.ITESRemoting. Well known objects must derive from the MarshalByRefObject class."

opfer.der.genauigkeit - Fr 18.11.05 09:39

Hallo,

für ein Interface gilt folgendes:

a) die GUID (kann man mit Alt + Shift + G) erstellen
b) Interfaces werden von IUnknown bzw. Plattformunabhängig (bitte wenn falsch korrigieren)
von IInterface abgeleitet.
c) Interfaces werden nicht mit dem Bezeichner
ITest = class(TTest)
sondern mit
ITest = interface(IInterface) abgeleitet.
d) Interface delegieren

Delphi-Quelltext

1:
2:

property MyInterface: IMyInterface read FMyInterface   
   implements IMyInterface;

Soviel zu meinem bescheidenen Wissen.

Lies dir doch dazu mal in der Hilfe den entsprechenden Abschnitt durch, das dürfte dir weiterhelfen.
Da steht das auch wesentlich detailierter.

MfG und grüner Schnee. ;)

syox - Fr 18.11.05 12:06