Несовместимые типы «LongBool» и «Integer»

Question

Мне нужно было скомпилировать исходный код Inno Media Player 0.03, который был изменен мной, чтобы добавить к нему функцию Cursor Hiding с помощью Delphi.

Я добавил код источника и успешно пытался перекомпилировать но компилятор говорит:

[dcc32 Error] MainUnit.pas (154): E2010 Несовместимые типы: 'LongBool' и 'Integer'.

В чем проблема с этим кодом?

код я добавил INNO медиаплеера:

const 
    OATRUE = -1; 

procedure TDirectShowPlayer.InitializeVideoWindow(WindowHandle: HWND; var Width, 
    Height: Integer); 
begin 
    ErrorCheck(FGraphBuilder.QueryInterface(IVideoWindow, FVideoWindow)); 
    ErrorCheck(FVideoWindow.HideCursor(OATRUE));  **<<<ERROR IS HERE<<<** 
    ... 
end; 

Я назвал IVideoWindow::HideCursor метод на FVideoWindow в TDirectShowPlayer.InitializeVideoWindow.

OATRUE Константа System.Shortint и IVideoWindow.HideCursor - это метод LongBool.

Являются ли эти несовместимые типы или моя версия Delphi несовместима с этим кодом, который я добавил?

Answer 1

Согласно DirectShow documentation on IVideoWindow::HideCursor сигнатуре метода является:

HRESULT HideCursor(
    [in] long HideCursor 
); 

в то время как соответствующие подписи в Pascal переводе Progdigy является:

function HideCursor(HideCursor: LongBool): HResult; stdcall; 

Итак, в то время как ваш код абсолютно соответствует спецификации MS, вам нужно как-то разобраться с неправильным объявлением типа. Вы должны типаж вашего постоянного заявленного типа:

ErrorCheck(FVideoWindow.HideCursor(LongBool(OATRUE))); 

Примечания: проездом может также работать при условии, True к HideCursor DirectShow не является чувствительным к точным значениям. Используйте с осторожностью.

Answer 2

На MSDN, IVideoWindow.HideCursor() объявляется как взятие long в качестве входных данных, а не BOOL, поэтому она не должна быть объявлена ​​как LongBool в Delphi, она должна быть Longint вместо этого. Так что либо исправить декларацию, или используйте приведение типа:

ErrorCheck(FVideoWindow.HideCursor(BOOL(OATRUE)));