Streamwiedergabe
Verfasst: 06.10.2006 10:53
Hi ihr, ich habe ein Problem, ich habe was programmiert, das ich Videos und Musik abspielen kann. Aber ich möchte auch, dass ich die Videos, Musik und Radio wie Stream abspielen möchte. Es funktioniert nicht, könnt ihr mir helfen?

Code: Alles auswählen
If InitMovie()=0
MessageRequester("Fehler","This setup can not init!",0)
EndIf
If InitSound()=0
MessageRequester("Fehler","This setup can not init!",0)
EndIf
;LoadMovie(1,"mms://giga.streamed.by.ngz-server.de.esl-tv.net/GIGA")
LoadSound(3,"http://club-high.rautemusik.fm")
Procedure AlertThread(Parameter)
Repeat
Delay(20000)
SetGadgetText(1,Str(MovieInfo(0)))
Delay(0)
ForEver
EndProcedure
Procedure AlertThread1(Parameter)
PlayMovie(3, WindowID())
EndProcedure
If OpenWindow(0, 0, 0, 800, 800, #PB_Window_SystemMenu, "Play")
If CreateGadgetList(WindowID())
TextGadget(1,10,610,100,20,"",0)
EndIf
;PlayMovie(1, WindowID())
;PlaySound(2,0)
CreateThread(@AlertThread1(), 154)
;Delay(0)
;CreateThread(@AlertThread(), 154)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf