Tatsächliche und formale Variablen? (Funktion)

[sirius]

Wenn du "var" in den deklarationsteil der Funktion übergibts, willd er Compiler die werte zurückgeben. Dementsprechend müssen beim Aufruf auch Variablen vorhanden sein.
du kannst in deinem Fall auch erst einmal das "var" weglassen.

[Rynardald]

Hallo,
habe ein ähnliches Problem.
Immer wenn ich versuche eine Bibliothek zu kompilieren bekomme ich den Fehler:

Code:

E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Der Quellcode dazu sieht so aus:

Delphi-Quellcode:

  
  procedure TFilterGraph.HandleEvents;
  var
    hr: HRESULT;
    Event: Integer;
    {$IF CompilerVersion >= 24.0}
    Param1, Param2: LongInt;//NativeInt;
    {$ELSE}
    Param1, Param2: Integer;
    {$IFEND}begin
    if assigned(FMediaEventEx) then
    begin
      hr := FMediaEventEx.GetEvent(Event, Param1, Param2, 0); // an dieser Stelle 
      while (hr = S_OK) do
      begin
        DoEvent(Event, Param1, Param2);
        FMediaEventEx.FreeEventParams(Event, Param1, Param2);
        hr := FMediaEventEx.GetEvent(Event, Param1, Param2, 0); // und hier auch nochmal
      end;
    end;
  end;

Die entsprechende Funktion sieht aber so aus:

Delphi-Quellcode:

function GetEvent(out lEventCode: Longint; out lParam1, lParam2: Longint;
        msTimeout: DWORD): HResult; stdcall;

Kann mir da einer von euch weiterhelfen?

[mkinzler]

Die Konstante 0 ist keine Variable, welche man als out Parameter übergeben könnte.

[himitsu]

@Markus: msTimeout ist auch kein OUT-Parameter.


Integer ist in 32-Bit-Anwendungen ein Alias für den LongInt.
In 64-Bit-Anwendungen wäre es ein Alias für Int64, aber da man den Integer-, INT-Typen eingefroren hat, bleibt er in Zukunft weiterhin LongInt.

Also eigentlich sollte es passen, egal ob als Integer oder LongInt deklariert.
PS: Der EventCode ist auch ein Ausgabe-Parameter. (nur als Tipp, weil ich nur bei den Params den COmpilerschalter seh)

Welche Delphi-Version nutzt du denn?

Was genau wird denn bemängelt? (wo steht den der Cursor)


Könnte es in DoEvent zu einer Exception kommen?
Wenn ja, dann gehört das FreeEventParams wohl besser in ein Try-Finally.

[Rynardald]

ich hab jetzt den Eventcode auch in die Compileranweisung mit reingenommen - hat sich aber nichts geändert.

Ich benutze die XE3 und der Cursor steht direkt hinter "Param1".

Ob es in der DoEvent zu einer Exception kommt kann ich nicht sagen - aber da ich das ganze gar nicht kompiliert, kann es ja nicht die Fehlerquelle sein, oder?

[Rynardald]

hab zwar keine Ahnung wieso, aber durch den Wechsel von Longint zu NativeInt in der Deklaration von Param1 und Param2 hat sich der Fehler behoben.

[himitsu]

Zitat:

Delphi-Quellcode:

function GetEvent(out lEventCode: Longint; out lParam1, lParam2: Longint;
        msTimeout: DWORD): HResult; stdcall;

Und du bist sicher, daß diese Deklaration stimmt?

Hast du vielleicht eigene Definitionen für diese Typen?

In Win32 sollten die Typen von LongInt, Integer und NativeInt aber auch identisch sein und auf den LongInt verweisen.