|
|
 | |  |
|
Титле и битрей получения потока
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)
|
| Просмотров: 818
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
