Fmod Bitrate

[Wishmaster]

Hi

Diesen Code habe ich aus meinem eigenen Project allerdings ich arbeite mit der Bass.dll
der Code funzt nicht mit VBR. Ich rate dir auf Bass umzusteigen dann kann ich dir auch
mit VBR helfen

Delphi-Quellcode:

function TFModEngine.Get_Bitrate : cardinal;
var  fFileSize, fBitRate : cardinal;
     fFloatPos : Single;
begin
  fFileSize:= FSOUND_Stream_GetLength(stream);
  fFloatPos:= trunc(FSOUND_Stream_GetLengthMs(stream) / 1000);
  fBitRate:= Trunc((fFileSize /(125 * fFloatPos)) + 0.5);
 if Odd(fBitRate) then
   Dec(fBitRate);
 result:=  fBitRate;
end;