Operator not applicable

[EWeiss]

Hi

Langsam wirds immer schwiriger :(

Delphi-Quellcode:

function GetPresetCount(var pnPresetCount: LongInt): HRESULT;
Var
  IntVal: integer;

begin
  if (IWmpEffects <> 0) then
    begin
       IntVal := 0;
       result := IWmpEffects.GetPresetCount(IntVal);
       pnPresetCount := IntVal;

    end else
    result := -1;

end;

Zwei Fehler in einer function.

Delphi-Quellcode:

if (IWmpEffects <> 0) then

0 normalerweise in C# 'null' wie im MS Beispiel.

gibt in Delphi den Fehler aus.
[Pascal Error] WMPUnit.pas(218): E2015 Operator not applicable to this operand type

Delphi-Quellcode:

IWmpEffects.GetPresetCount(IntVal);

laut MS Beispiel IWmpEffects.GetPresetCount(ref IntVal);
ref dürfte var sein funktioniert aber nicht!
Zusätzlich kommt noch die Meldung
[Pascal Error] WMPUnit.pas(221): E2018 Record, object or class type required für den bereich (ref IntVal);

Delphi-Quellcode:

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

Jemand ne Idee was da falsch läuft ?

Gruss Emil

[alzaimar]

Delphi ist typensicher, d.h. also, das '0' nicht mit einem Interface kompatibel ist.

Verwende 'nil' oder die Funktion 'Assigned', also:

Delphi-Quellcode:

If IInterface <> nil Then
  ...
If Assigned (IInterface) Then
  ...

Und deklariere den Parameter auch als LongInt.

[EWeiss]

Zitat:

Zitat von alzaimar

Delphi ist typensicher, d.h. also, das '0' nicht mit einem Interface kompatibel ist.

Verwende 'nil' oder die Funktion 'Assigned', also:

Delphi-Quellcode:

If IInterface <> nil Then
  ...
If Assigned (IInterface) Then
  ...

Und deklariere den Parameter auch als LongInt.

Delphi-Quellcode:

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

begin
  If Assigned(IInterface) Then
    begin
       IntVal := 0;
       result := IWmpEffects.GetPresetCount(IntVal);
       pnPresetCount := IntVal;

    end else
    result := -1;

end;

geht leider auch nicht
[Pascal Error] WMPUnit.pas(218): E2008 Incompatible types

Das !

Delphi-Quellcode:

If IInterface <> nil Then

gibt den gleiche Fehler zurück wie vorher
[Pascal Error] WMPUnit.pas(218): E2015 Operator not applicable to this operand type

Auch das bleibt gleich.
[Pascal Error] WMPUnit.pas(221): E2018 Record, object or class type required für den bereich (IntVal);
obwohl als LongInt declariert.

EDIT:

Laut MS;

Zitat:

The GetPresetCount method gets the preset count.
Syntax

HRESULT GetPresetCount(
Long* count
);

Parameters
count

[out] Long value specifying the preset count.
Return Values

If the method succeeds, it returns S_OK. If it fails, it returns an HRESULT error code.
Remarks
Called by Windows Media Player to obtain the number of presets contained by the visualization.
Requirements
Version: Windows Media Player version 7.0 or later.
Header: Include effects.h.

gruss Emil

[EWeiss]

Kapiere das nicht..
In c# läufts in Delphi hab ich diverse Probleme

gruss Emil

[mkinzler]

Poste mal den entsprechende c#-Code

[EWeiss]

Zitat:

Zitat von mkinzler

Poste mal den entsprechende c#-Code

Code:

        public int GetPresetCount(ref int count)
        {
            if (iWmpEffects != null)
            {
                int val = 0;
                int result = iWmpEffects.GetPresetCount(ref val);
                count = val;
                return result;
            }

            else
                return -1;
        }

Ka ob du nur die function meinst..
Und ob das reicht.
Notfalls könnte ich die ganze Classe senden .. aber nicht den kompletten Quelltext. Sorry

gruss Emil

[alzaimar]

Eweiss: Ich hab doch 'IInterface' nur als Beispiel genommen: Interface-Instanzen sind Zeiger, und Zeiger kann man mit 'nil' vergleichen. IInterface ist aber selbst eine Interface-Deklaration (mein Fehler, ich hätte deinen Variablennamen nehmen sollen, sorry).
Das kompiliert:

Delphi-Quellcode:

Var
 x : IInterface; // Also ein I<irgendas>, ein Interface.

Begin
  x:= nil;                    // Zuweisung auf Nil
  if x<>nil Then              // Abfrage auf nil
     x := nil; 
  if not assigned (x) then    // Abfrage mit Assigned
     x := nil;
End;

[EWeiss]

Zitat:

Zitat von alzaimar

Eweiss: Ich hab doch 'IInterface' nur als Beispiel genommen: Interface-Instanzen sind Zeiger, und Zeiger kann man mit 'nil' vergleichen. IInterface ist aber selbst eine Interface-Deklaration (mein Fehler, ich hätte deinen Variablennamen nehmen sollen, sorry).

Danke macht ja nix ;)
Habe mir das schon gedacht aber alle Versionen funktionieren auch dann nicht.

Delphi-Quellcode:

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

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

    end else
    result := -1;

end;

[Pascal Error] WMPUnit.pas(218): E2008 Incompatible types

Weis jetzt auch nicht weiter. :wall:


Gruss Emil

[Apollonius]

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

[mkinzler]

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

[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.

[EWeiss]

Zitat:

Zitat von 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.

Sorry ja, weiss nun bescheid.
Logisch nur functionen .. bin total neben der Rolle :wall: ;)
Aber das es dann so gelößt wird (Delphi) war mir nicht bekannt.

@mkinzler
Ok habe es verstanden.

gruss Emil