
Последние записи
- Как из ip адреса вывести последние цифры
- Вставка символа Unicode в RichEdit в Delphi 7
- Как поменять иконки все папок Windows 11 со стандартной желтой на свою?
- WinIO для чтения/записи портов I/O и физической памяти
- Delphi: Вывести N директорий в заданной (без рекурсии вложенных папок)
- Дополнительные кнопки мышки
- Курсы программистов. Стоит ли?
- Удаление одинаковых строк
- Создание потоков в процессе
- Вывод на печать графического файла

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
18th
Сен
Позиция в BASS
Posted by bullvinkle under Пост-обзор
В каком формате BASS возвращает позицию и длину файла, если передавать флаг BYTE_POS (флаг написал по памяти, тот кто знает поймет)?
Это точно не байты, и не связано с секундами вроде никак.
Как перевести в наше человеческое время?
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;
Использовать:
var s:string; mCc,lng: DWORD; begin mCc := BASS_StreamCreateFile(false, pointer(fail), 0, 0, 0 ); try lng := qbass_gettime(mCc); s:= qbass_formattime(lng,false);
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)