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;