allgemeines Verständnisproblem mit Interfaces

[Luckie]

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.

[Zottel]

Vielleicht hilft die das weiter.
Ich gehe aber über die Supports-Methode, um gleich ne rückmeldung zu bekommen, wenn das Interface nicht vorhanden ist.

Delphi-Quellcode:

procedure TFormEditWindow.ControlChange(Sender: TObject; NewObject: TObject);
var
  InheritedInterface : IcParamFromObject;
begin
  // Testen, ob Interface in Klasse vorhanden ist
  if Supports(NewObject, IcParamFromObject, InheritedInterface) then
  begin
    //Wenn vorhanden, dann das extrahierte Interface abfragen
    LogForm.LogMemo.Lines.Add(InheritedInterface.GetParamAsString);
  end
  else
  begin
    // ansonsten Fehler ausgeben
    raise ERangeError.CreateFmt('Not supported');
  end;
end;

//edit: formatierung ausgebessert

[Luckie]

Was soll mir dein Code jetzt helfen? Ich weiß ja aus der Dokumentation, dass es dieses Interface gibt.

[Zottel]

ups. sorry. hatte mich verlesen.

[freak4fun]

Delphi-Quellcode:

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
freak

[Luckie]

Dachte ich mir auch, nur gibt es kein IJabberPres.Create.

[freak4fun]

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.

Delphi-Quellcode:

function TDWJabberSession.GetStatus(JID: WideString): String; 
var 
  JabberPres: IJabberPres; 
begin 
  JabberPres := TJabberPres.Create;
  JabberPres := FJabberSession.GetPres(JID, '', True); 
  result := JabberPres.Status; 
end;

MfG
freak

[Muetze1]

Aber wird so nicht der Inhalt der Variablen JabberPres überschrieben bei der 2. Zuweisung? Auch wenn es Interfaces sind, sind es doch nur Verweise und die werden hier eigentlich überschrieben - oder nicht?

[TKC]

Zitat von freak4fun:

Du solltest eine Klasse erstellen, die das Interface unterstützt.
TJabberPres = class (TInterfacedObject, IJabberPres)

sollte das nicht besser so sein ?
TJabberPres = class (TComObject, IJabberPres) Schau dir doch mal ein ppar implementierungen vom TembeddedWB an, z.b. den IDocHostUIHandler.

[Luckie]

Nun ja, ich denke mal das hat Delphi schon selber gemacht beim Importieren der Typbibliothek.