Вопросы по библиотеке Bass.dll

[SnoopBill]

Народ все привет ... как можно перевести длину потока BASS_ChannelGetLength(Имя потока,0); в минуты....

[urahara]

юзай:
BASS_ChannelBytes2Seconds

[SnoopBill]

юзай:
BASS_ChannelBytes2Seconds

Вот код..

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var
   TrackTime:FLOAT;
   TrackPos:integer;
begin
TrackPos:=BASS_ChannelGetPosition(chan_bass_wma,0);
TrackTime:=BASS_ChannelBytes2Seconds(chan_bass_wma,TrackPos);
Form1.sEdit1.Text:=FloatToStr(TrackTime);
end;

Но число слишком большое получается... Может есть другой способ???

[urahara]

так будет корректней:

Код:

var
   TrackTime:Double;
   TrackPos:int64;
begin
TrackPos:=BASS_ChannelGetPosition(chan_bass_wma,BASS_POS_BYTE);
TrackTime:=BASS_ChannelBytes2Seconds(chan_bass_wma,TrackPos);
Form1.sEdit1.Text:=FloatToStr(TrackTime);
end;

число в секундах, если тебя смущает остаток то удали его, а число как раз такое которое и должно быть.

[SnoopBill]

так будет корректней:

Код:

var
   TrackTime:Double;
   TrackPos:int64;
begin
TrackPos:=BASS_ChannelGetPosition(chan_bass_wma,BASS_POS_BYTE);
TrackTime:=BASS_ChannelBytes2Seconds(chan_bass_wma,TrackPos);
Form1.sEdit1.Text:=FloatToStr(TrackTime);
end;

число в секундах, если тебя смущает остаток то удали его, а число как раз такое которое и должно быть.

Спасибо...

[SnoopBill]

Народ кто знает можно ли связать BASS_ChannelGetLevel() с ProgressBar'ом???

[ZuBy]

var
Level, LevelL, LevelR : DWORD;
begin
  Level := BASS_ChannelGetLevel(Channel);
  LevelR := MulDiv(100, HIWORD(Level), 32768);
  LevelL := MulDiv(100, LOWORD(Level), 32768);

  progressL.position := levelL;
  progressR.position := levelR;
  {progressL/R.max := 100;}
end;

примерно так)

[CodeMaster]

var
Level, LevelL, LevelR : DWORD;
begin
  Level := BASS_ChannelGetLevel(Channel);
  LevelR := MulDiv(100, HIWORD(Level), 32768);
  LevelL := MulDiv(100, LOWORD(Level), 32768);

  progressL.position := levelL;
  progressR.position := levelR;
  {progressL/R.max := 100;}
end;

примерно так)

помнится год назад не мог простую пропроцию составить, а сейчас такие успехи - молодец! 

[ZuBy]

помнится год назад не мог простую пропроцию составить, а сейчас такие успехи - молодец! 

За год много воды утекло)

[SnoopBill]

Народ привет всем, вот собрался сделать интернет-радио на основе библиотеки bass.dll, в нете много исходников но там много и ненужного кода, а мне надо только воспроизвести поток, народ дайте может код каторый нужен для воспроизведения интернет потока, только если можно вариант полегче......

[ZuBy]

смотри demo от bass, там все понятно

[SnoopBill]

Народ как можно узнать kbps и khz файла с помощью bass.dll

[Demon]

Это для Kbps:

Код:

function GetKbps(Channel: DWord): DWord;
var
time: float;
len: dword;
begin
time := BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel,Bass_Pos_Byte));
len := BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_END);
Result := Round(len / (125 * time)+0.5);
end;

А для KHz уже обсуждалось(кстати как и для Kbps), пользуйся поиском

[SnoopBill]

А как установить запись потока в файл.......

[SnoopBill]

А как установить запись потока в файл.......

Не ну народ неужели ни кто не знает как установить запись потока, я уже весь нет облазил ничего не нашёл......
Оооооочень надо............