Tatsächliche und formale Variablen? (Funktion)

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