next »

[audiowally]

How would one go about encoding a WMA internet stream without using channelplay? What I really would like to do is just decode the WMS stream only and pass it to a WMA encoder routine so I do not need a sound card. Is it possible with the channelgetdata and if so how would I do that with a callback routine?
Thanks

[Ian @ un4seen]

You would create a decoding channel (BASS_STREAM_DECODE), and call BASS_ChannelGetData and BASS_WMA_EncodeWrite in a loop to decode and re-encode the data...

BASS_Init(0,44100,0,0,0); // "no sound" device - no soundcard needed

HSTREAM decoder=BASS_WMA_StreamCreateFile(FALSE,url,0,0,BASS_STREAM_DECODE); // open stream
BASS_CHANNELINFO info;
BASS_GetChannelInfo(decoder,&info); // get stream format info
HWMENCODE encoder=BASS_WMA_EncodeOpenFile(info.freq,info.chans,0,bitrate,filename); // setup encoder

while (BASS_ChannelIsActive(decoder)) { // haven't reached the end...
BYTE buffer[20000];
int c=BASS_ChannelGetData(decoder,buffer,20000); // decode some data
if (c>0) BASS_WMA_EncodeWrite(encoder,buffer,c); // got some - encode it
else Sleep(100); // no data - wait a bit
}

[audiowally]

   Ian, Thank you very much. That works to perfection. I've included the same snippet written for us more verbose VB developers with a slight twist. In the VB example below, I'm encoding to a network port but the results are the same. Your  code works beautifully.

Dim _Stream As Integer
Dim info As New BASS_CHANNELINFO
Dim enc As Integer

_Stream = BassWma.BASS_WMA_StreamCreateFile(url, 0, 0, BASSStream.BASS_STREAM_DECODE)

Bass.BASS_ChannelGetInfo(_Stream, info) ' get stream format info
enc = BassWma.BASS_WMA_EncodeOpenNetwork(info.freq, _
      info.chans, _
      BASSWMAEncode.BASS_WMA_ENCODE_DEFAULT, _
      64000, _
      8080, _
      3)

While Bass.BASS_ChannelIsActive(_Stream)
   Dim c As Integer = Bass.BASS_ChannelGetData(_Stream, _recbuffer, 20000)

   If c > 0 Then
         BassWma.BASS_WMA_EncodeWrite(enc, _recbuffer, c)
   Else
         Thread.Sleep(100)
   End If

End While

Again, thanks for all your help.