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