Hallo Zusammen,
sobald ein User sich mit dem DataSnap Server verbindet, wird ein TIdTCPConnection und ein TDSTCPChannel Object angelegt.
Ziemlich gleich erzeugt der DataSnapServer ein TDSSession Object.
Es wurde ein Event Registriert und somit bekomme ich das mit.
Delphi-Quellcode:
procedure TfrMain.AddSessionListener;
begin
//Add a session listener, which will be notified when a session is created or closed.
TDSSessionManager.Instance.AddSessionEvent(
procedure(Sender: TObject;
const EventType: TDSSessionEventType;
const Session: TDSSession)
begin
//the application is in an invalid or terminating state, so ignore the event.
if FConnections = nil then
Exit;
//update the session Id list box
AddOrRemoveSession(Session.SessionName, EventType = SessionCreate);
end);
end;
An dieser Stelle habe ich alles was ich benötige.
Jetzt würde ich gerne die drei Objekte TIdTCPConnection, TDSTCPChannel und TDSSession
in einer eigenen Klasse verwalten. Ich habe keine Möglichkeit gefunden wie ich vom TDSSession Object
auf eines der beiden Objekte kommen könnte.
Hat jemand eine Idee?
Gruß Kostas