Typecasting mit Interfaces?

[himitsu]

Hab da kleine Probleme beim Casten eines Interfaces mitbekommen :?

Definition und vorherige Prüfung:

Delphi-Quellcode:

type IOperatorInterfaceCompare = interface(IOperatorInterface) ...

var Intf: IOperatorInterface;

If not Supports(Intf, IOperatorInterfaceCompare) Then AbstractErrorProc;

das geht:

Delphi-Quellcode:

Result := (Intf as IOperatorInterfaceCompare).xyz

hier wird IntfCast und darüber QueryInterface aufgerufen und dann die Funktion xyz


aber hier bekomm ich 'ne Zugriffsverletzung:

Delphi-Quellcode:

Result := IOperatorInterfaceCompare(Intf).xyz

hier wird aus irgendeinem Grund IOperatorInterface.ObjectType aufgerufen? :gruebel:
und da in der Funktion passiert die Exception

Zitat:

---------------------------
Anwendungsfehler
---------------------------
Exception EAccessViolation in Modul Project1.exe bei 822C9101.

Zugriffsverletzung bei Adresse 822CA101. Lesen von Adresse 822CA101.
---------------------------
OK
---------------------------

ich versteh hier aber absolut nicht, warum da überhaupt zu ObjectType gesprungen wird, obwohl dieses hier garnicht hingehört :gruebel:


bei Objekten mach ich ja gern solche direkten Casts und hatte bisher keine Probleme damit.
und da wollt ich natürlich bei den Interfaces gehrn genauso (einheitlich) weitermachen. :|

Siehe Anhang:
http://www.delphipraxis.net/internal...004580#1004580
OperatorInterface.pas, ab Zeile 2449
oder einfach F9 drücken, der Debugger hält kurz davor schon an (hardcodet-breakpoint)

[Apollonius]

Der direkte Cast funktioniert einfach nicht. Das liegt daran, dass die Interfaces eines einzigen Objektes unterschiedliche Offsets haben, sodass man nur in ganz bestimmten Fällen hart casten kann (z.B. wenn man weiß, dass es in Wirklichkeit tatsächlich dieses Interface ist).

[himitsu]

OK, dann erklärt das wohl auch dieses ObjectType ... .ObjectType und .QueryInterface sind jeweils die ersten Funktionsdefinitionen in den Interfaces :stupid:

hatte jetzt mal alles durch as interface ersetzt und es läuft auch alles wieder :)

bin grad so nebenbei etweas damit beschäftigt meine TBigInt hier reinzubauen

[Hawkeye219]

Hallo himitsu,

verwende doch einfach den alternativen Aufruf von Supports:

Delphi-Quellcode:

var
  Intf    : IOperatorInterface;
  Compare : IOperatorInterfaceCompare;
begin
  if Supports(Intf, IOperatorInterfaceCompare, Compare) then
    Result := Compare.xyz
  else
    AbstractErrorProc;
end;

Gruß Hawkeye

[himitsu]

@Hawkeye219: wollt das grad mal so umsetzen, aber erstmal bräuchte ich dann überall neue Variablen.
Und dann fand ich es in ein/zwei Prozeduren mehr verwirrender, als es nutzte :shock:

Aber bei sowas wie dieser "einfachen" If-Abfrage hier, sieht es mit der von dir Vorgeschlagenen Variante schon irgendwie hübscher aus :-D

Aber wenn ich dann mal Prozeduren hab, wo mehre Interfaces angesprochen werden sollen, dann hätt ich so für jedes Interface eine eigene Variable .... könnte womöglich Probleme geben, wenn das Objekt dahinter zwischendurch geändert wird und ich/jemand mal vergißt dieses zu beachten.

Haußtsache ist ja, daß es jetzt wieder läuft :cheer: