Как определить длительность Mp3 файла. MP3 плеер на библиотеке BASS 2.4

@maybeTM · Регистрация: 30.10.2014

Студворк — интернет-сервис помощи студентам

В процессе поиска ответов я наткнулся на эту тему Из бит в секунды...
Судя по всему, создателю той темы она помогла. Но, как мне кажется, я повторил все в точности как в этой теме и у мне не удалось перевести байты в формат 'nn:ss'.
Все функции работают, но возвращают не верное значение.

Delphi

procedure TForm1.btn2Click(Sender: TObject);
var Time:TDateTime;       // Перевод в формат представления времени, принятый в Delph
    TimeBiteSec:integer; //длительностьв секундах
    TimeBite:Integer;    //длительность в байтах
 //   Minute: integer;
 //   sec: integer;
begin
  TimeBite:=BASS_ChannelGetLength(stream,BASS_POS_BYTE);  // в байты
  TimeBiteSec:=BASS_ChannelSeconds2Bytes(stream,TimeBite);  // в секунды
  Time:=TimeBiteSec /(24 * 60 * 60); // преобразование к формату
  ShowMessage('Длинна файла '+FormatDateTime('nn:ss',Time));

После выполнения процедуры я получаю 43:12. Длина самого трека равняется 05:37. Я понимаю, что я где- то что- то упустил. Пожалуйста помогите разобраться.

Используя этот код, время выводится уже лучше, но присутствует какая то не понятная погрешность.

Delphi

1 2	s:=FormatDateTime ('hh:mm ', BASS_ChannelGetLength(stream,BASS_POS_BYTE) / (1000 * 60 * 60 * 60)); ShowMessage('Âðåìÿ '+s);

Пожалуйста, помогите разобраться.

Добавлено через 5 часов 34 минуты
Иисус помог и я все - таки разобрался

Delphi

1
2
3

    n:=BASS_ChannelBytes2Seconds(stream,BASS_ChannelGetLength(stream,0));
    t:=n/(24*3600);
    edt1.Text:=FormatDateTime('hh:mm:ss',t);

@Brokma · 01.05.2017, 16:09

Подскажите это функции
Time:TDateTime; // Перевод в формат представления времени, принятый в Delph
TimeBiteSec:integer; //длительностьв секундах
TimeBite:Integer; //длительность в байтах
Или переменные используемые в библиотеке Bass?

@krapotkin · 02.05.2017, 08:15

функция это такая штука

function FunctionName(parametr:xxx):resultType;

согласитесь - не очень похоже

@Brokma 0 / 0 / 0 Регистрация: 18.12.2016 Сообщений: 1
	01.05.2017, 16:09	2
	Подскажите это функции Time:TDateTime; // Перевод в формат представления времени, принятый в Delph TimeBiteSec:integer; //длительностьв секундах TimeBite:Integer; //длительность в байтах Или переменные используемые в библиотеке Bass? 0

@krapotkin 5609 / 4383 / 1396 Регистрация: 14.04.2014 Сообщений: 19,596 Записей в блоге: 19
	02.05.2017, 08:15	3
	функция это такая штука function FunctionName(parametr:xxx):resultType; согласитесь - не очень похоже 0

Опции темы