Operator not applicable

[EWeiss]

Zitat:

Zitat von Apollonius

Die Funktion scheint ja einen Zeiger zu erwarten (long* count). Probiere einfach mal, @intval zu übergeben.

Kein erfolg!
Bei intval mit oder ohne Zeiger
[Pascal Error] WMPUnit.pas(221): E2018 Record, object or class type required

If Assigned(IWmpEffects) Then
[Pascal Error] WMPUnit.pas(218): E2008 Incompatible types

If IWmpEffects <> nil Then
[Pascal Error] WMPUnit.pas(218): E2015 Operator not applicable to this operand type

Arrrrggghhhh :wall: :mrgreen:

Gruss Emil

[EWeiss]

Zitat:

Zitat von mkinzler

Du mußt es auf eine Instanz und nicht auf das Interface selber anwenden.

Jetzt verstehe ich ehrlich gesagt nur Bahnhof .. sorry
In C# OK da gibts diverse Beispiele an die man sich halten kann.

Mit der Instanz verstehe ich jetzt nicht was du da meinst.

Gruss Emil

[Apollonius]

Mir fällt da gerade was auf... in der Interfacedeklaration deines ersten Posts ist GetPresetCount eine Prozedur. Ich vermute stark, dass da die Typinkompatibilität liegt, denn du versuchst ja das nicht vorhandene Ergebnis result zuzuweisen.

Und: hast du eine Instanz(~Variable) deines interfaces? Du rufst die Routine nämlich am interface auf, du musst sie an der Variablen aufrufen.

[mkinzler]

IWmpEffects ist ein Interface und keine Instanz, die es implemnetiert.

Genausowenig wie du z.B.

Delphi-Quellcode:

if Integer = 0

schreibst sondern

Delphi-Quellcode:

i: integer;
...
   if i = 0

[EWeiss]

Zitat:

Zitat von mkinzler

IWmpEffects ist ein Interface und keine Instanz, die es implemnetiert.

Genausowenig wie du z.B.

Delphi-Quellcode:

if Integer = 0

schreibst sondern

Delphi-Quellcode:

i: integer;
...
   if i = 0

Ahh ja danke jetzt verstehe ich was du meinst.

Werds mal versuchen ;)

gruss Emil

[EWeiss]

So gehts jetzt bis auf einen Fehler ;)

Delphi-Quellcode:

function GetPresetCount(var count: LongInt): HRESULT;
Var
  IntVal: LongInt;
  WmpEffects: IWmpEffects;

begin
  If Assigned(WmpEffects) Then
    begin
       IntVal := 0;
       result := WmpEffects.GetPresetCount(IntVal);
       count := IntVal;

    end else
    result := -1;

end;

result := WmpEffects.GetPresetCount(IntVal);
[Pascal Error] WMPUnit.pas(222): E2010 Incompatible types: 'HRESULT' and 'procedure, untyped pointer or untyped parameter'

Gruss Emil

[mkinzler]

Delphi-Quellcode:

WmpEffects.GetPresetCount(IntVal);
result := IntVal;

[EWeiss]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

WmpEffects.GetPresetCount(IntVal);
result := IntVal;

Delphi-Quellcode:

function GetPresetCount(var count: LongInt): HRESULT;
Var
  IntVal: LongInt;

begin
  If Assigned(PWmpEffects) Then
    begin
       IntVal := 0;
       PWmpEffects.GetPresetCount(IntVal);
       result := IntVal;
       count := IntVal;

    end else
    result := -1;

end;

So gehts nun! Vielen Dank an alle die geholfen haben ;)
Aber eine frage noch im Anhang warum geht es nicht über die direkte Abfrage

Delphi-Quellcode:

result := PWmpEffects.GetPresetCount(IntVal);

nur auf deine weise ?

gruss Emil

[Apollonius]

Ich habe schon mal einen Post dazu geschrieben (#13). In deiner Interfacedeklaration ist getPresetCount eine Prozedur, und die gibt nunmal nichts zurück, das du zuweisen könntest.

[mkinzler]

Zitat:

Aber eine frage noch im Anhang warum geht es nicht über die direkte Abfrage

Weil die Methode keinen Rückgabewert hat, sondern einen var-Parameter(Zeiger)

Delphi-Quellcode:

IWMPEffects = interface(IUnknown)
   ['{D3984C13-C3CB-48e2-8BE5-5168340B4F35}']
   procedure GetPresetCount(var pnPresetCount : LongInt); safecall;

Deshalb wird versucht Result die Methode zuzuweisen, was obigen Fehler auslöst.