BAss.dll Знаю тема где-то перетералась! Но!

[Дворник]

1. Как все-таки сделать автоматический переход на следующий трек в плей-листе ?
2. Как перевисти 414 сек в образ HH:MM:SS ?

Пожалуйста, не закрывайте subject!

[DomiNick]

Как перевисти 414 сек в образ HH:MM:SS ?

Вы меня удивили.....
Сколько в минуте секунд? А минут в часе?
Есть конечно готовые VCL'овские функции, но тут-то Div/Mod вполне хватает...
А разве не из миллисекунд?

[Дворник]

Прадон. Я наверное перефразирую, а то и впрямь лабудень. ( Итак конкретно вопрос:
1. Как узнать длину трека и визуально отобразить в Мин:Сек ?
2. Как сделать автоматический переход к следующему треку в ПлейЛисте ?

два вопроса, ниче ?? ))

[ZuBy]

Сообщение от Дворник

Прадон. Я наверное перефразирую, а то и впрямь лабудень. ( Итак конкретно вопрос:
1. Как узнать длину трека и визуально отобразить в Мин:Сек ?
2. Как сделать автоматический переход к следующему треку в ПлейЛисте ?

два вопроса, ниче ?? ))

1.

function qbass_gettime(const Channel: DWORD): DWORD;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  Result := 0;
  pPos := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
    Alltime := Trunc(BASS_ChannelBytes2Seconds(Channel, pPos));
    Result := Alltime;
  end;
end;

function qbass_formattime(const Sec: Integer;
  const IsURL: boolean): string;
(*******************************************
* RESULT: " 99:99" | "999:99" * | " Radio" *
*******************************************)
const
  time = ' 00:00';
  radio = ' Radio';
  null = '      ';
var
  H, M, S: Integer;
  Return: string;
begin
  if Sec = -1 then Return := null
  else if Sec < 0 then Return := time
  else if IsURL then Return := radio
  else begin
    H := Sec div 3600;
    S := Sec mod 3600;
    M := S div 60;
    M := M + (H * 60);
    S := (S mod 60);
    if M > 99 then Return := Format('%3d:%2.2d', [M, S])
    else Return := Format('%2.2d:%2.2d', [M, S]);
  end;
  Result := Return;
end;

2.

procedure SyncMsg(Handle: HSync; Channel, Data: DWORD; User: Pointer); stdcall;
begin
   PostMessage(xx.Handle, тут твое сообщение, 0, 0);
end;

после создании нового канала

BASS_ChannelSetSync(твои канал, BASS_SYNC_END or BASS_SYNC_MIXTIME, 0, SyncMsg, nil);

и все что осталось отловить сообщение которое будет послано при окончании трека

[Дворник]

А если я просто буду использловать тогда сравнение Position и Length для перехода на следующий трек, это не будет программерски безграмотным подходом ?? ))

[ZuBy]

Сообщение от Дворник

А если я просто буду использловать тогда сравнение Position и Length для перехода на следующий трек, это не будет программерски безграмотным подходом ?? ))

это как минимуму будет тупо)