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?