Stream mit bass.dll

**Philipp1977**

Hallo,

ich möchte mit der bass.dll gerne einen Stream emfangen, den Stream mit anderer Bitrate neue encodieren und an einen anderen Shoutcast-Server streamen. Der Computer hat keine Soundkarte deshalb verwende ich den decoding channel. Hier ist der Code:

Setup and create mixer:

markieren

Code:

			BASS_FX_GetVersion();

BASS_Init(0, 44100, BASS_DEVICE_FREQ, 0, nil);

BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);

BASS_SetConfig(BASS_CONFIG_FLOATDSP, 1);

mix:= BASS_Mixer_StreamCreate(44100, 2, BASS_STREAM_DECODE );

Create Player:

markieren

Code:

			chan := BASS_StreamCreateURL('http://.....:8000/', 0 ,BASS_STREAM_DECODE,nil, nil);

s1 := BASS_Mixer_StreamAddChannel(mix, chan, BASS_STREAM_DECODE);

p := @chan;

Thread := BeginThread(nil,0 , @DataThread, p, 0, ThreadID); // Thread to receive data from channel

Thread to receive data from channel:

markieren

Code:

			repeat

try

nread := BASS_ChannelGetData(chan, @buf, sizeof(buf));

except

 err := Bass_errorgetcode();

end;

until (nread <= 0);

Mixer to Encoder:

markieren

Code:

			Encoder := BASS_Encode_Start(mix, 'lame.exe -r -s 44100 -b 128 -', BASS_ENCODE_FP_16BIT, nil, nil);

s3 := BASS_Encode_CastInit(encoder, 'http://....:2680', 'PASSWORD', BASS_ENCODE_TYPE_MP3, 'TITLE','http://www.......','Pop', nil, nil, 128, TRUE);

p := @mix;

Thread := BeginThread(nil,0 , @DataThread, p, 0, ThreadID); // Thread to receive data from mixer

Thread to receive data from mixer:

markieren

Code:

			repeat

try

nread := BASS_ChannelGetData(mix, @buf, sizeof(buf));

except

 err := Bass_errorgetcode();

end;

until (nread <= 0);

Ich habe nun das Problem das der stream immer nach gut 5 Sekunden abbricht und nicht mehr gestreamed wird. Hat jemand eine Idee?

Stream mit bass.dll

Stream mit bass.dll

Forumregeln