Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
@Thomas: Das wars mit dem nil. So geht es:
function TDWJabberSession.GetStatus(AJID: WideString): string;
var
JabberPres : IJabberPres;
begin
JabberPres := FJabberSession.GetPres(AJID, '', True);
if Assigned(JabberPres) then
result := JabberPres.Status;
end;
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Nun ja, ich denke mal das hat Delphi schon selber gemacht beim Importieren der Typbibliothek.
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Dachte ich mir auch, nur gibt es kein IJabberPres.Create. :gruebel:
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Was soll mir dein Code jetzt helfen? Ich weiß ja aus der Dokumentation, dass es dieses Interface gibt.
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Folgender Code:
function TDWJabberSession.GetStatus(JID: WideString): String;
var
JabberPres: IJabberPres;
begin
JabberPres := FJabberSession.GetPres(JID, '', True);
result := JabberPres.Status;
end;