AuthorizationManager.Logout(const ALoginToken:string) doesn’t fill the ctx!

[Babis Michael]

Hello,

AuthorizationManager.Logout(const ALoginToken:string) doesn’t provide the TkbmMWAuthorizationContext information as
TkbmMWAuthorizationManager.Logout(const AActor:TkbmMWAuthorizationActor) does needed by the Logout2 event
of TkbmMWAuthorizationManager!

Copied and modified a bit the code from TkbmMWAuthorizationManager.Logout(const AActor:TkbmMWAuthorizationActor)
and it works!

procedure TkbmMWAuthorizationManager.Logout(const ALoginToken:string);
var
ctx:TkbmMWAuthorizationContext;
l:TkbmMWAuthorizationLogin;
begin
ctx:=TkbmMWAuthorizationContext.Create;
try
FLock.BeginWrite;
try
l:=FLogins.Get(ALoginToken);
ctx.Token:=l.Token;
ctx.ActorName:=l.Actor.Name;
ctx.Role:=l.Role;
ctx.Login:=l;
DoOnLogout(ctx);
ctx.TraceMessage:=’Logout: LoginToken=’+ctx.Token;
DoOnTrace(ctx);
FLogins.Delete(l.Actor);
finally
FLock.EndWrite;
end;
finally
ctx.Free;
end;
end;

Thank you

[Babis Michael]

btw, GarbageCollect calls the TkbmMWAuthorizationManager.Logout(const ALoginToken:string);

[kimbomadsen]

Hi

There will be an additional set of events which will include the context.
The first context less event will be called first, then the event with context.

/Kim

[Babis Michael]

Hello!
No it doesn’t not! It’s empty and never fills!
As you can see in the code it only assigns the “Token” compared to Logout(const AActor:TkbmMWAuthorizationActor);

procedure TkbmMWAuthorizationManager.Logout(const ALoginToken:string);
…
ctx:=TkbmMWAuthorizationContext.Create;
try
ctx.Token:=ALoginToken; //Only this!!!
FLock.BeginWrite;
try
DoOnLogout(ctx);
….

procedure TkbmMWAuthorizationManager.Logout(const AActor:TkbmMWAuthorizationActor);
….
ctx.Token:=l.Token;
ctx.ActorName:=AActor.Name;
ctx.Role:=l.Role;
ctx.Login:=l;
DoOnLogout(ctx);
….

The ctx information is needed for login2 and logout2 and trace2 of AuthorizationManager!
So in case that GarbageCollection Logout out the user i use the CTX to retrieve his informations. (eg the Actorname).

Thank you

• This reply was modified 3 years, 9 months ago by Babis Michael.
• This reply was modified 3 years, 9 months ago by Babis Michael.

[Babis Michael]

UP

[Babis Michael]

New code to avoid AV:

ctx.Token:=ALoginToken;
FLock.BeginWrite;
try
l:=FLogins.Get(ALoginToken); // New

if Assigned(l) then // New
begin
ctx.Token:=l.Token;
ctx.ActorName:=l.Actor.Name;
ctx.Role:=l.Role;
ctx.Login:=l;
end;

DoOnLogout(ctx);
ctx.TraceMessage:=’Logout: LoginToken=’+ctx.Token;
DoOnTrace(ctx);

FLogins.Delete(l.Actor);
finally
FLock.EndWrite;
end;

[Babis Michael]

Kim, this isn’t fixed in 5.20! (you forgot it)

[kimbomadsen]

Hi,

Will fix in fix release.

/Kim

[Author]

Posts