Folgender Code:
Delphi-Quellcode:
function TDWJabberSession.GetStatus(JID: WideString): String;
var
JabberPres: IJabberPres;
begin
JabberPres := FJabberSession.GetPres(JID, '', True);
result := JabberPres.Status;
end;
Die Methode GetPres liefert ein IJabberPres Objekt zurück. Aber irgendwas mache ich grundsätzlich falsch, da mir der Code mit einer
Access Violation abstürzt.