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;