BASSPlayer.

[.Phoenix]

Всем привет. Есть один "скромный" вопрос. Как узнать продолжительность музыкального файла не используя Bassplayer.Open. Так как при добавлении файла в список воспроизведения, чтобы узнать продолжительность файла для начала его надо открыть. Но при этом текущая музыка останавливается. т.е. играет музыка, я добавляю новый муз файл(при открытии работает (Bassplayer.Open) и тут же игра прекращается. А если при открытии файла Bassplayer.Open не использовать, то игра не прекращается, тем самым длительность музыки остается неизвестной. Как быть?

[Dr.Badnezz]

c BASSPlayer не работал. Может стоит попытаться работать напряму с BASS.dll

function GetPeriodFromSec(const Sec: Integer): String;
      var H, M, S: Integer;
      begin
        H:=Sec div 3600;
        S:=Sec mod 3600;
        M:=S div 60;
        S:=(S mod 60);
          if H <> 0 then
             Result:=Format('%2.2d:%2.2d:%2.2d', [H,M,S])
          else
             Result:=Format('%2.2d:%2.2d', [M,S]);
   end;
Function FullTime(Fs: String): String;
   Var S: Integer;
   var G: Float;
   var Titles: String;
   var H: HStream;
    begin
      h := BASS_STREAMCREATEFILE(false,Pchar(fs),0,0,0);
      S:= Bass_ChannelGetLength(h,Bass_POS_BYTE);
      G:= BASS_ChannelBytes2Seconds(h,s);

      Titles:= FormatFloat('000',G);
      Titles:= GetPeriodFromSec(StrToInt(Titles));
      bass.BASS_StreamFree(h);
      Result := Titles;
    end;

//Использовать
var time: string;
begin
 time := FullTime('C:\my_song.mp3');

Криво, косо, но кажется должно работать (не проверял)

[.Phoenix]

Чтобы работать на прямую хорошо бы знать тогда все процедуры и функции, а я к сожалению не знаю.

[ZuBy]

Сообщение от .Phoenix

Чтобы работать на прямую хорошо бы знать тогда все процедуры и функции, а я к сожалению не знаю.

читай справку и смотри bass.pas