Desktop Radio 3.9

DeepRed92

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?

progandy

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.

DeepRed92

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
#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 ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <inet.au3>

[/autoit] [autoit][/autoit] [autoit]

_Refresh_URL("RPR1.")
_Refresh_URL("RPR2.")
_Refresh_URL("RPR.Rock")
_Refresh_URL("RPR.NewSongs")
_Refresh_URL("RPR.80'er")
_Refresh_URL("RPR.100% Deutsch")

[/autoit] [autoit][/autoit] [autoit]

Func _Refresh_URL($FUNK_Sendername)
$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_URL

[/autoit] [autoit][/autoit] [autoit]

Func _Sender_Change_URL($FUNK_Sendername, $FUNK_SenderURL)
$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_URL

[/autoit] [autoit][/autoit] [autoit]

Func _Sender_Delete($Sendername)
$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_Delete

[/autoit] [autoit][/autoit] [autoit]

Func _Sender_Add($FUNK_Sendername, $FUNK_URL, $FUNK_Genre, $FUNK_Bewertung)
$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_Add

[/autoit] [autoit][/autoit] [autoit]

Func _SenderExists($FUNK_Sendername)
$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 ;==>_SenderExists

[/autoit] [autoit][/autoit] [autoit]

Func _IniReadLastSectionKey(Const $S_FILE, Const $S_SECTION)
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 ;==>_IniReadLastSectionKey

[/autoit] [autoit][/autoit] [autoit]

Func _SenderList()
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

[/autoit]

xXTobi93Xx

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

DeepRed92

Merkwürdig...könntest du das wiederholen und die Datei Music.txt posten?
Vielleicht liegt es daran, das es nicht richtig gespeichert wurde.

progandy

Zitat von Deepred

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

DeepRed92

Zitat

Aber in der Beta konnte man die doch auch ohne Neustart aktualisieren

Stimmt. Ich guck mal nach was sich da machen lässt ;-).

xXTobi93Xx

Problem hat sich erledigt^^
Habs nochmal neu hinzugefügt und jetzt geht das lied ganz normal^^

Broken_Arrow

Also ich muss sagen der Radio ist echt cool und so verdammt simpel.
Echt hammer geil

DeepRed92

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 .

Zitat

Also ich muss sagen der Radio ist echt cool und so verdammt simpel.
Echt hammer geil

Danke Broken Arrow . Schön das es dir gefällt.

MehmeX

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.

DeepRed92

Hier mal ein Beispiel aus der Hilfe ;):

Spoiler anzeigen

[autoit]

#include <GuiToolbar.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

[/autoit] [autoit][/autoit] [autoit]

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()
Local $hGUI, $hToolbar
Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp

[/autoit] [autoit][/autoit] [autoit]

; Create GUI
$hGUI = GUICreate("Toolbar", 400, 300)
$hToolbar = _GUICtrlToolbar_Create ($hGUI)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

; Add standard system bitmaps
_GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)

[/autoit] [autoit][/autoit] [autoit]

; Add buttons
_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)

[/autoit] [autoit][/autoit] [autoit]

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_Main

[/autoit]

MehmeX

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)).

DeepRed92

Ach so. Also so geht das:

[autoit]

$hToolbar = _GUICtrlToolbar_Create($hgui)

[/autoit][autoit][/autoit][autoit]

$hImage = _GUIImageList_Create(32, 32, 5, 3, 3)
_GUIImageList_AddIcon($hImage,"File.dll")
_GUICtrlToolbar_SetImageList($hToolbar, $hImage)

[/autoit]

MehmeX

Danke.

Edit: Es klappt irgendwie nicht. Ich habe mal ein kurzes Beispiel geschrieben.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiToolbar.au3>
#Include <GuiImageList.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 625, 445, 193, 125)

[/autoit] [autoit][/autoit] [autoit]

$hToolbar = _GUICtrlToolbar_Create($Form1)
$hImage = _GUIImageList_Create(32, 32)
_GUIImageList_AddIcon($hImage,"test.ico")
_GUICtrlToolbar_SetImageList($hToolbar, $hImage)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

DeepRed92

Hi MehmeX,

so jetzt funktioniert es aber :
_____________________________________________

Neuer Downloadlink hinzugefügt. Siehe Post 1 :).

_____________________________________________

MehmeX

Danke @Deepred!

DeepRed92

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 .

DeepRed92

Neue Version siehe Post 1 .

Broken_Arrow

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