Hey Leute!
Ich hab mit dem RadioUDF mal ein Programm gemacht, womit man vorgegebene Radiosender hören kann, und womit man eigene Sender hinzufügen kann. Die Stream URL kann man dann hier ablesen. Das Problem:
Man soll ja mehrere Sender hinzufügen können, aber das sind dann ja mehrere Variablen.
Die müssen dann doch so: $selbstsender[0usw.] geschrieben werden. Das wird dann doch mit _ArrayAdd($selbstsender, 1) gemacht oder? Nja, mit meinem kleinen Arraywissen kann ich das noch nicht.
Schon n Wunder dass ich überhaupt jetzt erst For-Schleifen gelernt habe .
Überarbeitet das mal, und mit IniWrite gibt es auch n paar Probleme, die ich im Skript geschildert habe.
Skript
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <_Radio.au3>
#include <Array.au3>
$no = "---Kein Sender---"
Global $sender, $readtitle, $senderselbst
$ini = IniReadSection(@ScriptDir&"\Eigene Sender.ini","SENDER")
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("RadioStream - Radio einfach streamen!", 626, 315, 192, 124)
$Group1 = GUICtrlCreateGroup("", 96, 0, 521, 65)
$Label1 = GUICtrlCreateLabel($readtitle, 104, 16, 497, 40)
GUICtrlSetFont(-1, 28, 800, 0, "LCD")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1 = GUICtrlCreateListView("Sender", 8, 72, 129, 233)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 125)
$Bremen1 = GUICtrlCreateListViewItem("Bremen 1", $ListView1)
$Bremen4 = GUICtrlCreateListViewItem("Bremen 4", $ListView1)
$HitRadioAntenne = GUICtrlCreateListViewItem("Hit Radio Antenne", $ListView1)
$FFN = GUICtrlCreateListViewItem("FFN", $ListView1)
$NDR2 = GUICtrlCreateListViewItem("NDR2", $ListView1)
$NDR1 = GUICtrlCreateListViewItem("NDR1", $ListView1)
$NJOY = GUICtrlCreateListViewItem("N-JOY", $ListView1)
$senderselbst = GUICtrlCreateListViewItem(IniRead(@ScriptDir&"\Eigene Sender.ini","SENDER","","", $ListView1)
#cs
Beim ersten "" soll das stehen was er unten hingeschreiben hat, aber das muss ja beim nächsten Programmstart immer noch da stehen.
Beim zweiten "" muss dann wie oben das was beim letzten Programmstart darein geschrieben wurde, drinstehen.
#ce
$Button2 = GUICtrlCreateButton("Play!", 152, 80, 83, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Pause!", 248, 80, 83, 41, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Stop!", 336, 80, 83, 41, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Eigenen Sender!", 424, 80, 99, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Lautstärke:", 472, 248, 57, 17)
$Slider1 = GUICtrlCreateSlider(464, 272, 150, 29)
GUICtrlSetLimit(-1, 10, 0)
GUICtrlSetData(-1, 9)
$WMP = _Radio_Create("WMP Example",$Form1_1, 140, 260)
$Pic1 = GUICtrlCreatePic("", 184, 144, 241, 153, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateIcon("", -0, 8, 40, 25, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neuen Radiosender hinzufügen", 460, 100, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Name:", 8, 8, 35, 17)
$Input1 = GUICtrlCreateInput("z.B. Radio 7", 56, 8, 401, 21)
$Label2 = GUICtrlCreateLabel("Stream-URL:", 8, 32, 65, 17)
$Input2 = GUICtrlCreateInput("", 80, 32, 377, 21)
$Label3 = GUICtrlCreateLabel("Tipp: Unter http://www.linupedia.org/opensuse/Radiosender findest du alle URL von Sendern.", 0, 56, 454, 17)
$OKNEWRD = GUICtrlCreateButton("OK", 384, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
SoundSetWaveVolume(GUICTRLREAD($Slider1)) ;Problem 1: Lautstärke reguliert sich nicht mit dem Slider!
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Bremen1
_Radio_Action_SetItem($WMP, "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w48a")
_Radio_Action_Play($WMP)
Dim $sender="Bremen 1" ;Text wird nicht geändert!
Case $Bremen4
_Radio_Action_SetItem($WMP,"http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w49a")
_Radio_Action_Play($WMP)
$sender="Bremen 4" ;Text wird nicht geändert!
Case $HitRadioAntenne
_Radio_Action_SetItem($WMP,"http://edge.live.mp3.mdn.newmedia.nacamar.net/stbantennebremen/livestream.mp3")
_Radio_Action_Play($WMP)
Dim $sender="Hit Radio Antenne" ;Text wird nicht geändert!
Case $FFN
_Radio_Action_SetItem($WMP,"http://rs35.stream24.org/stream")
_Radio_Action_Play($WMP)
Dim $sender="FFN" ;Text wird nicht geändert!
Case $NDR2
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr2_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NDR1
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr1wellenord_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NJOY
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_n-joy_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $Button2
_Radio_Action_Play($WMP)
Case $Button3
_Radio_Action_Pause($WMP)
Case $Button4
_Radio_Action_Stop($WMP)
Case $Button5
GUISetState(@SW_SHOW, $Form2)
Case $OKNEWRD
GUISetState(@SW_HIDE, $Form2)
$senderselbst = GUICtrlCreateListViewItem(GUICtrlRead($Input1), $ListView1)
IniWrite(@ScriptDir&"\Eigene Sender.ini","SENDER",GUICtrlRead($Input1),GUICtrlRead($Input2))
_Radio_Action_SetItem($WMP, GUICtrlRead($Input2))
_Radio_Action_Play($WMP)
Dim $sender=GUICtrlRead($Input1) ;Text wird nicht geändert!
EndSwitch
WEnd
MfG button421!!!