MessageRequester ("Erreur","RecordStart : " BASS_ErrorGetCode()) MessageRequester ("Erreur","RecordSetDevice : " BASS_ErrorGetCode()) Retour = BASS_RecordSetDevice(Dispositif) MessageRequester ("Erreur","RecordInit : " BASS_ErrorGetCode()) MessageRequester ("Erreur","Connection serveur IceCast Erreur : " BASS_ErrorGetCode())ĭispositif = gParametres\Dispositif_sonore MessageRequester ("Erreur","Le serveur IceCast est déja occupé !") Retour = BASS_Encode_CastInit(HENCODE_encoder, NomServeur, MotDePasse, #BASS_ENCODE_TYPE_OGG, Nom, Url, Genre, Description, Header, 192, 1) débute le castĪjouter_au_log ("Connecté au serveur IceCast.", #LOG_DEMARRAGE) BASS_Encode_CastInit(HENCODE_encoder, NomServeur$, MotDePasse$, Content$, #BASS_ENCODE_TYPE_OGG, Nom$, "url", "genre", #Null, #Null, 128, #Null) // start the cast BASS_Encode_CastInit(handle.l, server.p-utf8, pass.p-utf8, content.p-utf8, name.p-utf8, url.p-utf8, genre.p-utf8), desc.p-utf8, headers.p-utf8, bitrate.l, pub.l) MessageRequester ("Erreur","Erreur de l'encodeur OGG Bass : " BASS_ErrorGetCode())Ījouter_au_log ("Encodeur OGG Bass fonctionne.", #LOG_DEMARRAGE) HENCODE_encoder = BASS_Encode_Start(channel, #BASS_ENCODE_NOHEAD, #Null, 0) // setup the encoder HENCODE_encoder = BASS_Encode_Start(channel, #BASS_ENCODE_NOHEAD | #BASS_ENCODE_AUTOFREE, #Null, 0) // setup the encoder panel sholud To be a second form Or in the Mainform remember the Sterotool Editor is Not smallīASS_VST_EmbedEditor(FDSP, WindowID(Window_vst)) NomVst = "C:\Users\user\Documents\radio_programmation_purebasic_broadcast\vst_stereo_tool_64.dll"įDSP = BASS_VST_ChannelSetDSP(Channel, #BASS_Unicode, 0) Commande = "oggenc -M %d -m %d -r -R 44100 -"Ĭhannel = BASS_RecordStart (0, 2, #BASS_RECORD_PAUSE|#BASS_SAMPLE_FLOAT,#Null, #Null) NomServeur = "" address:port/mount" (Icecast).ĭescription = "Webradio à Castelnaudary France" BASS_Encode_CastInit send the Encoded (OGG) data to the icecast server.Ĭan you tell me if something is missing or wrong logic ? What's is 'content' and 'header' for IceCast ? Where to set the icecast 'username' next, BASS_Encode_Start convert the recorded channel to OGG. if i understand, BASS_Record record the current device sound to a channel. some sample sounds currently play (BASS_SampleLoad, and BASS_channel_play) to my sound device (gParametres\Dispositif_sonore). MessageRequester ("info","Retour Cast Init" Str(Retour) "erreur=" BASS_ErrorGetCode())īASS_Encode_CastInit return error 20 : BASS_ERROR_ILLPARAM Retour = BASS_Encode_CastInit(HENCODE_encoder, NomServeur, MotDePasse, Content, Nom, Url, Genre, Description, Header, 192, 0) BASS_Encode_CastInit(handle.l, server.p-utf8, pass.p-utf8, content.p-utf8, name.p-utf8, url.p-utf8, genre.p-utf8, desc.p-utf8, headers.p-utf8, bitrate.l, pub.l) MessageRequester ("info","Retour Cast Encodeur ok =" Str(HENCODE_encoder)) MessageRequester ("info","Retour Cast Encodeur erreur=" BASS_ErrorGetCode()) Nom = StringToUTF("Radio Les Floralies 2")ĭescription = StringToUTF("Webradio à Castelnaudary France")Ĭommande = StringToUTF("oggenc -M %d -m %d -r -R 44100 -")īASS_RecordInit(gParametres\Dispositif_sonore)īASS_RecordSetDevice(gParametres\Dispositif_sonore)Ĭhannel = BASS_RecordStart (0, 2, #BASS_RECORD_PAUSE,#Null, #Null) I've just a tiny-test project Purebasic-Bass to play a sound here : Ĭode: Procedure Son_envoyer_vers_serveur() If it's possible could you explain more the step to achieve this goal. It seems that Bass could directly broadcast to an IceCast Server. My goad is to avoid the RadioCaster or Rocket Broadcaster program. My purebasic program - Bass -> IceCAst Server. My purebasic program - Bass -> StereoTool vst (32 bits) -> IceCAst Server. Is it possible and easy to do with Bass ? Perhaps it shoud be interesting to include code to directly broadcast from my purebasic playlist program. My final FAI/VPS broadcast server is an IceCast2 server. i use too StereoTool vst from RadioCaster as DSP option. On the same machine, next i use a third party program to broadcast (RadioCaster or Rocket Broadcaster). I use Purebasic and Bass for my webradio Ogg playlist program.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |