Последние записи
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
Интенсив по 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 (Компьютерное железо)