Problem bei Zugriff auf Elemente eine TInterfaceList

[Astan212]

Moin,

für Schulungszwecke habe ich Java-Code auf Delphi umzuschreiben und bin ich auf folgendes Problem gestoßen:

Der Delphi-Code sieht so aus:

Delphi-Quellcode:

 IGemuese = interface(IInterface)
    function toString : string;
 end;

...

 TKnoblauch = class(TInterfacedObject,IGemuese)
  public
    function toString : string;
  end;

  TPaprika = class(TInterfacedObject, IGemuese)
  public
    function toString : string;
  end;

  TPilze = class(TInterfacedObject, IGemuese)
  public
    function toString : string;
  end;
...

 function TKnoblauch.toString : String;
 begin
   Result := 'Knoblauch';
 end;
 //usw. für die anderen Gemüse

...

function TMyBelag.erstelleGemuese: TInterfaceList;
var i: Integer;
    gemueseListe: TInterfaceList;
begin
  gemueseListe := TInterfaceList.Create;
  gemueseListe.Add(TKnoblauch.Create);
  gemueseListe.Add(TPilze.Create);
  gemueseListe.Add(TPaprika.Create);

  
  for i:=0 to gemueseListe.Count-1 do
  begin
    WriteLn(IGemuese(gemueseListe[i]).toString); //und das geht dann hier nicht (Zugriffsverletzung)!
  end;

  result := gemueseListe;
end;

Wie kann ich die Methode toString der Elemente der gemueseListe verwenden wenn ich nur den Typ IGemuese der Elemente kenne?

bis denne
Guido

[TKC]

Hi,

bist du gezwungen das per Interfaces zu machen oder ist das nur ein Ansatz von dir ?

[Astan212]

Es geht dabei um ein Beispiel der Umsetzung einer einfachen verteilten Anwendung in C#, Java und Delphi in mehreren Schritten.

Dem Client sind am Ende nur die Interfaces mit u.a. IGemuese bekannt.

[Bernhard Geyer]

Ob harte Casts mit Interfaces gehen

Mach lieber folgendes:

Statt
IGemuese(gemueseListe[i]).toString lieber

Delphi-Quellcode:

if gemueseListe[i] is IGemuese then
  (gemueseListe[i] as IGemuese).toString

Du mußt "nur" deinem Interface eine GUID zuweisen:

Delphi-Quellcode:

IGemuese = interface(IInterface)
    ['{ABAD6C43-AE24-4719-9319-9E775365F45E}']   // <- Bitte neue eigene GUID mittels <Shift> + <Strg> + <g> erzeugen
    function toString : string;

[hoika]

Hallo Bernhard,

rein interessehalber.
was passiert denn, wenn man die GUID ganzwegläßt ?


Heiko

[Bernhard Geyer]

Zitat von hoika:

Hallo Bernhard,

rein interessehalber.
was passiert denn, wenn man die GUID ganzwegläßt ?


Heiko

Dann funktioniert is/as nicht.

[Astan212]

Moin,

is funktioniert auch mit GUID nicht (Fehler: Operator ist auf diesen Operandentyp nicht anwendbar).
Das (gemueseListe[i] as IGemuese).toString funktioniert aber und reicht mir eigentlich schon als Lösung.
Vielen Dank, Bernhard!

bis denne
Guido

[Astan212]

Moin,

So funktioniert es auch mit Typ-Überprüfung:

Delphi-Quellcode:

function TMyBelag.erstelleGemuese: TInterfaceList;
var i: Integer;
    MyObject: TInterfacedObject;
begin
  gemueseListe := TInterfaceList.Create;
  gemueseListe.Add(TKnoblauch.Create);
  gemueseListe.Add(TPilze.Create);
  gemueseListe.Add(TPaprika.Create);

  for i:=0 to gemueseListe.Count-1 do
  begin

    if gemueseListe[i].QueryInterface(IGemuese,MyObject) = S_OK then    
      WriteLn((gemueseListe[i] as IGemuese).toString);
  end;
  result := gemueseListe;
end;

Etwas kompliziert ist das mit den Interfaces in Delphi schon...

bis denne
Guido

[Elvis]

Zitat von Astan212:

Etwas kompliziert ist das mit den Interfaces in Delphi schon...

Ohne COM würde ich dir Recht geben, aber COM-compliant interfaces mit autom. Referenzzählung sind schon sehr praktisch beim Konsumieren oder Bereitstellen von COM-Schnittstellen.

btw:

Delphi-Quellcode:

if supports(objectInstance, IDeinInterface, interfaceInstance) then
  interfaceInstance.DoSomething()
else
  WTF('?');

Geht aber auch nur über eine GUID, da GUIDs nunmal COM-Interfaces identifizieren.