Huhu
ich bekomm dauernd eine Fehlermeldung, wenn ich eine remotefähige Klasse per Clientaktivierung erstelle.
Hier der Fehler:
Zitat: |
Die Berechtigung zum Aktivieren des Typs cLogin.tLogin, GUI, Version=1.0.1720.19319, Culture=neutral, PublicKeyToken=null wurde verweigert.
|
Hier der Header der Klasse:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| tLogin = class(MarshalByRefObject) private fLoggedUser : Longword; fUName : string; public constructor Create; function UserLogin (Password : string; Username : string) : boolean; function getUsername : string; end; |
Hier die Registrierung der Klasse auf dem Server:
Delphi-Quelltext
1:
| RemotingConfiguration.RegisterActivatedServiceType(typeof(tLogin)); |
Und hier der Client:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
| 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 LoginManager := tLogin(Activator.CreateInstance(typeof(tLogin),nil,url)); end; end; |
Irgendjemand eine Idee? ich weis so langsam nicht mehr weiter...
Gruß
Dede