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
