Forum: Object-Pascal / Delphi-Language
by freak4fun,
16. Feb 2006
Ok, sorry ich schreib nichts mehr. :roll:
Forum: Object-Pascal / Delphi-Language
by freak4fun,
16. Feb 2006
Du solltest eine Klasse erstellen, die das Interface unterstützt.
TJabberPres = class (TInterfacedObject, IJabberPres)
Denn wenn du auf Funktionen eines Interface zugreifen willst kann das nicht gehen, da sie nicht ausgeprägt sind.
function TDWJabberSession.GetStatus(JID: WideString): String;
var
JabberPres: IJabberPres;
begin
JabberPres := TJabberPres.Create;
Forum: Object-Pascal / Delphi-Language
by freak4fun,
16. Feb 2006
function TDWJabberSession.GetStatus(JID: WideString): String;
var
JabberPres: IJabberPres;
begin
//Fehlt hier nicht ein create?
JabberPres := FJabberSession.GetPres(JID, '', True);
result := JabberPres.Status;
end;
MfG