Hmmm...ich kann das gerade nicht nachvollziehen. Was für einen Betriebssystem hast du? Hast du nur auf Play geklickt oder wann kam genau dieser Fehler?
Desktop Radio 3.9
-
-
Kann es sein, dass du die RPR-Sender wieder rausgenommen hast? In der Liste sind sie jedenfalls nicth mehr drin, auch nicht nach dem Start vom RPR Link updater.
-
Hi Progandy,
wenn Du Desktop Radio neustartest sind die RPR-Sender in der Liste, denn die Liste wird nicht automatisch aktualisiert, sondern nur bei jedem Start . Falls es trotzdem nicht funktioniert müsste es wohl am Plug-In liegen. Hier mal der Code:
Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=RPR1.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Desktop Radio© Plugin
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2009 - 2010 Burak Keskin
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=E-Mail|[email='burak.keskin@arcor.de'][/email]
#AutoIt3Wrapper_Res_Field=CompanyName|BKSoft
#AutoIt3Wrapper_Res_Field=InternalName|RPR1 Channel Refresher
#AutoIt3Wrapper_Res_Field=Comments|Desktop Radio© Plug-In
#AutoIt3Wrapper_Res_Field=OriginalFilename|RPR1 channel refresher.exe
#AutoIt3Wrapper_Res_Field=ProductName|RPR1 Channel Refresher
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.0
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Burak Keskin
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <inet.au3>_Refresh_URL("RPR1.")
[/autoit] [autoit][/autoit] [autoit]
_Refresh_URL("RPR2.")
_Refresh_URL("RPR.Rock")
_Refresh_URL("RPR.NewSongs")
_Refresh_URL("RPR.80'er")
_Refresh_URL("RPR.100% Deutsch")Func _Refresh_URL($FUNK_Sendername)
[/autoit] [autoit][/autoit] [autoit]
$FUNK_RPR1 = "radiorpr/livestream.wma"
$FUNK_RPR2 = "radiorpr2/livestream.wma"
$FUNK_RPRrock = "rprchannels/rock.wma"
$FUNK_RPRnewsongs = "rprchannels/newsongs.wma"
$FUNK_RPR80er = "rprchannels/80er.wma"
$FUNK_RPRdeutsch = "rprchannels/rnb.wma"
$FUNK_StreamName = $FUNK_Sendername
If $FUNK_Sendername = "RPR1." Then $FUNK_streamID = $FUNK_RPR1
If $FUNK_Sendername = "RPR2." Then $FUNK_streamID = $FUNK_RPR2
If $FUNK_Sendername = "RPR.Rock" Then $FUNK_streamID = $FUNK_RPRrock
If $FUNK_Sendername = "RPR.NewSongs" Then $FUNK_streamID = $FUNK_RPRnewsongs
If $FUNK_Sendername = "RPR.80'er" Then $FUNK_streamID = $FUNK_RPR80er
If $FUNK_Sendername = "RPR.100% Deutsch" Then $FUNK_streamID = $FUNK_RPRdeutsch
InetGet("http://edge.download.newmedia.nacamar.net/sltokens/radiorpr/stream-radio-player.php?stream=" & $FUNK_streamID, @TempDir & "\AC4F5G4F", 1)
$FUNK_token = StringRegExp(FileRead(@TempDir & "\AC4F5G4F"), 'token = "(.*?)"', 1)
If Not @error Then $FUNK_token = $FUNK_token[0]
FileDelete(@TempDir & "\AC4F5G4F")
$FUNK_contentType = "ms"
$FUNK_URL = "http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=" & $FUNK_streamID & "&content=live&media=" & $FUNK_contentType & "&token=" & $FUNK_token
If Not _SenderExists($FUNK_StreamName) Then
_Sender_Add($FUNK_StreamName, $FUNK_URL, "Mix", "*****")
EndIf
$FUNK_Return = _Sender_Change_URL($FUNK_Sendername, $FUNK_URL)
Return $FUNK_Return
EndFunc ;==>_Refresh_URLFunc _Sender_Change_URL($FUNK_Sendername, $FUNK_SenderURL)
[/autoit] [autoit][/autoit] [autoit]
$FUNK_Read_Index = IniRead(_SenderList(), "index", $FUNK_Sendername, "ERROR")
If $FUNK_Read_Index = "ERROR" Then Return False
$FUNK_Stringsplit = StringSplit($FUNK_Read_Index, ",")
Return IniWrite(_SenderList(), "Senderurl", $FUNK_Stringsplit[1], $FUNK_SenderURL)
EndFunc ;==>_Sender_Change_URLFunc _Sender_Delete($Sendername)
[/autoit] [autoit][/autoit] [autoit]
$FUNK_SenderListe = _SenderList()
$FUNK_Read_Index = IniRead($FUNK_SenderListe, "index", $Sendername, "ERROR")
If $FUNK_Read_Index = "ERROR" Then
Return False
Else
$FUNK_Stringsplit = StringSplit($FUNK_Read_Index, ",")
IniDelete($FUNK_SenderListe, "index", $Sendername)
IniDelete($FUNK_SenderListe, "Senderurl", $FUNK_Stringsplit[1])
IniDelete($FUNK_SenderListe, "Sendername", $FUNK_Stringsplit[2])
IniDelete($FUNK_SenderListe, "Genre", $FUNK_Stringsplit[3])
IniDelete($FUNK_SenderListe, "Bewertung", $FUNK_Stringsplit[4])
Return True
EndIf
EndFunc ;==>_Sender_DeleteFunc _Sender_Add($FUNK_Sendername, $FUNK_URL, $FUNK_Genre, $FUNK_Bewertung)
[/autoit] [autoit][/autoit] [autoit]
$FUNK_Filename = _SenderList()
$FUNK_readlastkey = _IniReadLastSectionKey($FUNK_Filename, "Sendername")
$FUNK_Stringtrimleft1 = StringTrimLeft($FUNK_readlastkey, 6)
$FUNK_iniwrite2 = "Sender" & $FUNK_Stringtrimleft1 + 1
IniWrite($FUNK_Filename, "Sendername", $FUNK_iniwrite2, $FUNK_Sendername)
$FUNK_readlastsection2 = _IniReadLastSectionKey($FUNK_Filename, "Senderurl")
$FUNK_Stringtrimleft2 = StringTrimLeft($FUNK_readlastsection2, 9)
$FUNK_iniwrite = "Senderurl" & $FUNK_Stringtrimleft2 + 1
IniWrite($FUNK_Filename, "Senderurl", $FUNK_iniwrite, $FUNK_URL)
$FUNK_readlastkeynumber = _IniReadLastSectionKey($FUNK_Filename, "Genre")
$FUNK_Stringtrimleft1 = StringTrimLeft($FUNK_readlastkeynumber, 5)
$FUNK_iniwrite3 = "Genre" & $FUNK_Stringtrimleft1 + 1
IniWrite($FUNK_Filename, "Genre", $FUNK_iniwrite3, $FUNK_Genre)
$FUNK_readlastkeynumber2 = _IniReadLastSectionKey($FUNK_Filename, "Bewertung")
$FUNK_StringtrimlefT3 = StringTrimLeft($FUNK_readlastkeynumber2, 9)
$FUNK_iniwrite4 = "Bewertung" & $FUNK_StringtrimlefT3 + 1
IniWrite($FUNK_Filename, "Bewertung", $FUNK_iniwrite4, $FUNK_Bewertung)
IniWrite($FUNK_Filename, "index", $FUNK_Sendername, $FUNK_iniwrite & "," & $FUNK_iniwrite2 & "," & $FUNK_iniwrite3 & "," & $FUNK_iniwrite4)
EndFunc ;==>_Sender_AddFunc _SenderExists($FUNK_Sendername)
[/autoit] [autoit][/autoit] [autoit]
$FUNK_Filename = _SenderList()
$FUNK_Read_Sections_1 = IniReadSection($FUNK_Filename, "index")
For $FUNK_next_1 = 1 To $FUNK_Read_Sections_1[0][0]
$FUNK_Read_INI_1 = IniRead($FUNK_Filename, "index", $FUNK_Read_Sections_1[$FUNK_next_1][0], "Error")
$FUNK_Split_INI_1 = StringSplit($FUNK_Read_INI_1, ",")
$FUNK_Read_INI_2 = IniRead($FUNK_Filename, "Sendername", $FUNK_Split_INI_1[2], "Error")
If $FUNK_Read_INI_2 = $FUNK_Sendername Then
Return True
EndIf
Next
Return False
EndFunc ;==>_SenderExistsFunc _IniReadLastSectionKey(Const $S_FILE, Const $S_SECTION)
[/autoit] [autoit][/autoit] [autoit]
Local Const $AS_INI = IniReadSection($S_FILE, $S_SECTION)
If @error Then Return SetError(@error, 0, 0)
Return $AS_INI[$AS_INI[0][0]][0]
EndFunc ;==>_IniReadLastSectionKeyFunc _SenderList()
[/autoit]
Local $FUNK_ListPath
$FUNK_Path = @ScriptDir
$FUNK_Path = StringSplit($FUNK_Path, "\")
For $FUNK_NextLoop = 1 To $FUNK_Path[0] - 2
$FUNK_ListPath &= $FUNK_Path[$FUNK_NextLoop] & "\"
Next
Return $FUNK_ListPath & "Sender.ini"
EndFunc ;==>_SenderList -
Ich habe das lied darauf gezogen und dann auf Play geklickt dann kam dieser fehler
Hab Windows XP
MfG
/Edit: kommt aber nur bei dem Lied Alexander Rybak - Fairytale Sonst eigendlich nicht -
Merkwürdig...könntest du das wiederholen und die Datei Music.txt posten?
Vielleicht liegt es daran, das es nicht richtig gespeichert wurde. -
Hi Progandy,
wenn Du Desktop Radio neustartest sind die RPR-Sender in der Liste, denn die Liste wird nicht automatisch aktualisiert, sondern nur bei jedem Start . Falls es trotzdem nicht funktioniert müsste es wohl am Plug-In liegen. Hier mal der Code:
Hmm, jetzt sind sie da. Als ich gestern neu gestartet habe, sind sie nicht gekommen ...
Aber in der Beta konnte man die doch auch ohne Neustart aktualisieren -
Zitat
Aber in der Beta konnte man die doch auch ohne Neustart aktualisieren
Stimmt. Ich guck mal nach was sich da machen lässt ;-).
-
Problem hat sich erledigt^^
Habs nochmal neu hinzugefügt und jetzt geht das lied ganz normal^^ -
Also ich muss sagen der Radio ist echt cool und so verdammt simpel.
Echt hammer geil -
Zitat
Problem hat sich erledigt^^
Habs nochmal neu hinzugefügt und jetzt geht das lied ganz normal^^Das liegt wahrscheinlich an der UDF die ich benutze .
ZitatAlso ich muss sagen der Radio ist echt cool und so verdammt simpel.
Echt hammer geilDanke Broken Arrow . Schön das es dir gefällt.
-
Wie hast du bei Music Manager.exe die Toolbar gemacht? Wiel ich möchte gerne wissen wie man das macht, wenn man die Maus auf eine bestimmte Stelle hat und diese dann hervorheben lässt.
-
Hier mal ein Beispiel aus der Hilfe ;):
Spoiler anzeigen
[autoit]#include <GuiToolbar.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]$Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hGUI, $hToolbar
Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp; Create GUI
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("Toolbar", 400, 300)
$hToolbar = _GUICtrlToolbar_Create ($hGUI)
GUISetState(); Add standard system bitmaps
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR); Add buttons
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlToolbar_AddButton ($hToolbar, $idNew, $STD_FILENEW)
_GUICtrlToolbar_AddButton ($hToolbar, $idOpen, $STD_FILEOPEN)
_GUICtrlToolbar_AddButton ($hToolbar, $idSave, $STD_FILESAVE)
_GUICtrlToolbar_AddButtonSep ($hToolbar)
_GUICtrlToolbar_AddButton ($hToolbar, $idHelp, $STD_HELP); Loop until user exits
[/autoit] [autoit][/autoit] [autoit]
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSEEndFunc ;==>_Main
[/autoit] -
Ja ok, dass weiß ich schon. Nur wie füge ich andere Bilder hinzu? Denn wenn ich ein Pfad zu einer BMP-Datei angebe, dann kommt immer ein anderes Bild (Eine Schere (Ausschneiden)).
-
Ach so. Also so geht das:
[autoit]$hToolbar = _GUICtrlToolbar_Create($hgui)
[/autoit][autoit][/autoit][autoit]$hImage = _GUIImageList_Create(32, 32, 5, 3, 3)
[/autoit]
_GUIImageList_AddIcon($hImage,"File.dll")
_GUICtrlToolbar_SetImageList($hToolbar, $hImage) -
Danke.
Edit: Es klappt irgendwie nicht. Ich habe mal ein kurzes Beispiel geschrieben.
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <GuiToolbar.au3>
#Include <GuiImageList.au3>$Form1 = GUICreate("Form1", 625, 445, 193, 125)
[/autoit] [autoit][/autoit] [autoit]$hToolbar = _GUICtrlToolbar_Create($Form1)
[/autoit] [autoit][/autoit] [autoit]
$hImage = _GUIImageList_Create(32, 32)
_GUIImageList_AddIcon($hImage,"test.ico")
_GUICtrlToolbar_SetImageList($hToolbar, $hImage)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd -
Hi MehmeX,
so jetzt funktioniert es aber :
_____________________________________________Neuer Downloadlink hinzugefügt. Siehe Post 1 :).
_____________________________________________
-
Danke @Deepred!
-
Ich hab mal für die Leute, die auch selber Plug-Ins machen möchten eine UDF erstellt. Viel Spaß damit .
Info: Desktop Radio muss dabei laufen. Sonst funktioniert das nicht.
Edit: Beispiel hinzugefügt.
Edit2: Kleiner Fehler behoben . -
Neue Version siehe Post 1 .
-
Ist es möglich auch andere Sender aufzunehmen ausser das Ding vielleich 1080 power fm. Das ist mein Lienblingssender
bis auf das funktioniert das Aufnhmen ganz gut -