|
Титле и битрей получения потока
BASS_ChannelGetTags(chan, BASS_TAG_META);
вся процедура:
Код:
procedure DoMeta();
var
meta: PAnsiChar;
p: Integer;
begin
meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
if (meta <> nil) then
begin
p := Pos('StreamTitle=', String(AnsiString(meta)));
if (p = 0) then
Exit;
p := p + 13;
// это посылка текста в окно с хэндлом в переменной WIN
SendMessage(win, WM_INFO_UPDATE, 7, DWORD(PAnsiChar(AnsiString(Copy(meta, p, Pos(';', String(meta)) - p - 1)))));
end;
end;
битрейт:
Код:
function GetChannelBitrate(Channel: DWORD): integer;
var
FloatLen: FLOAT;
Length: Int64;
len: DWORD;
begin
Length:= 0;
Length:= BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
if Length < 0 then Length:= 0;
FloatLen:= BASS_ChannelBytes2Seconds(Channel, Length);
len:=BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_END);
Result:= Round(len / (125 * FloatLen) + 0.5);
end;
|
| Категория: DELPHI | Добавил: SeM (01.05.2011)
|
| Просмотров: 789
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
