Расчет времени звучания в NewAC

[Mr.Skinner]

Здравствуйте. подскажите плиз как пересчитать позиции типа int64 (WaveIn1.Position) в пройденное время??

заранее спасибо.

 

[olegzua]

Из свойств:
BitsPerSample The number of bits per sample in the input stream.
Position The current reading position in the input stream in bytes.
SampleRate The input stream sample rate in Herz
Примерно так:
количество фреймов
nSample:=Position div BitsPerSample
количество секунд
nSec:=nSample div SampleRate

 

[Mr.Skinner]

Спасибо .. я тут вроде как разобрался :
Счет времени в обратную сторану

  MSec:= (MP3In.Size - MP3In.Position);
  Seconds:=MSec div (MP3In.SampleRate * 4);
  MSec:=MSec div 100;
  MSec:=MSec mod 100;
  Minutes:=Seconds div 60;
  Seconds:=Seconds mod 60;
  Hours:=Minutes div 60;
  Minutes:=Minutes mod 60;