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

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


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.