How to know whoever is login and running the application ?

[hendrang]

Hi all,

 

is there function that returns list of all users ip address that are login and running the application ?

 

Thanks

Hendra

[mmurgas]

Hi Hendra ... this code does what you ask for ... I found it in this forum ...

 

regards

 

mmurgas

var
  I: Integer;
  ASessionList: TList;
begin
  unimemo1.Lines.Clear;
  ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList;
  try
    for I := 0 to ASessionList.Count - 1 do
    begin
      UniMemo1.Lines.Add(TUniGUISession(ASessionList[I]).UniApplication.RemoteAddress);
    end;
  finally
    UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
  end;

[hendrang]

 

Hi Hendra ... this code does what you ask for ... I found it in this forum ...

 

regards

 

mmurgas

var
  I: Integer;
  ASessionList: TList;
begin
  unimemo1.Lines.Clear;
  ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList;
  try
    for I := 0 to ASessionList.Count - 1 do
    begin
      UniMemo1.Lines.Add(TUniGUISession(ASessionList[I]).UniApplication.RemoteAddress);
    end;
  finally
    UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
  end;

 

Hi mmurgas,

Thank you.

 

This is very usefull and also I am looking for. Thanks

 

TUniGUISession(ASessionList).UniApplication.RemoteAddress returns all of the user IPAddress who are ever login including users' IP Address already logged out.

 

I need list of login users' IP Adddress and still running the application only exclude logged out users' IP Address.

 

Regards,

Hendra

 

 

 

 

 

 

 

 

[knopix]

The source is written where Hendra? thank you very much