Eigener Dienst -> Speicherauslastung wächst und wächst...

[Dezipaitor]

TJwTerminalServer.Enumeratesessions erzeugt ein Memoryleak, weil es einen Thread verwendet, der eine Variable nicht freigibt. In der Subversion Trunk version ist dieser Fehler behoben.

You should update
your source to the latest version in the version control repository and try again. To do so, use a subversion client like Tortoise SVN
and just hit SVN update in the explorer's context menu on the "trunk" folders of JWSCL also JWA.

Der GetSessionCode ist übrigens inkorrekt. So stimmt es schon eher

Delphi-Quellcode:

function TSisterWatch.GetSession: String;
var
  TS : TJwTerminalServer; 
begin
  TS := TJwTerminalServer.Create;
  try
    TS.Connect; 
    TS.EnumerateSessions;
    Result := TS.Sessions[0].Username;
    // every second before the first login it raise an exception!
  except
    result := '';
  end;
  FreeAndNil(TS); {its very important to free TS memory!}
end;