ошибка инсталяции компонента TOggPlayer D7

[beegl]

добрый час, помогите исправить ошибку инсталяции компонента TOggPlayer D7

if vbDecRead(@vbDecInfo, OutBuffer[bIndex], BytesDecoded) <> VB_ERR_OK then
        begin
           DecodeErrEnd := true;
           break;
        end;

[Error] OggPlayer.pas(998): Types of actual and formal var parameters must be identical

[Пепел Феникса]

смотрим прототип функции vbDecRead, смотрим там тип третьего параметра, и привим тип переменной BytesDecoded на него.
обычно помогает.

[beegl]

решил, таким образом:

(…)
  procedure DecodeOggFrame;
  var
    i : integer;
    BytesDecoded : DWORD;       <- объявил 
  begin
     bIndex := 0;
     for i := 0 to (FramesPerAudioBuffer - 1) do
        BufferFilled[i] := 0;

     while (bIndex < FramesPerAudioBuffer) do
     begin
     // You may get VB_ERR_EOS instead of VB_ERR_OK for the return value of
     // vbDecRead at the end of stream file, if you do not change playing
     // position during playing.
        if vbDecRead(@vbDecInfo, OutBuffer[bIndex], BytesDecoded) <> VB_ERR_OK then
        begin
           DecodeErrEnd := true;
           break;
        end;
  (…)