Beiträge von DeepRed92

  • Desktop Radio 3.9

    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]

  • Desktop Radio 3.9

    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]

  • Desktop Radio 3.9

    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 :huh: .


    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. :D

  • Einfalls- + Ausfallswinkel

    Dann müsstes Du den Einfallswinkel kennen. Also ungefähr so:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Das wäre dann:

    180' = 45' + 90' + x
    180' = 135' + x | - 135'
    x = 45'

    Der Winkel unten Rechts wäre dann 45'. So müsstes du es dann mit Autoit berechnen ;)

  • ID3 Tag auslesen

    Zitat

    Hi,

    könntest du mal nähere Angaben zur Nichtfunktion machen,
    z.B. funktionierts unter XP, welche Fehlermeldungenn erscheinen, wie sieht der aufrufende Code aus etc. pp.

    Also statt Interpret wird unter Vista was anderes zurückgegeben. Weiß es jetzt gerade nicht mehr was, weil ich im Moment xp nutze
    und statt Länge erhalte ich den Interpreten. :huh:

    Zitat

    Hallo Deepred,

    schau dir mal diesen Beitrag von Micha_he an: https://autoit.de/index.php?page…92628#post92628

    im gleichen Thread ist davor noch ein Beispiel von Micha_he, kannst dir ja mal beide anschauen,

    mfg (Auto)Bert

    Hi (Auto)Bert

    danke, ich werde es mir mal genauer anschauen ;)

    Edit: Woher weiß ich jetzt ob ein Audiodatei nun ID3 V1 ODER ID V2 hat???

  • ID3 Tag auslesen

    Hallo,

    ich suche eine Funktion, mit der man ID3 - Tags aus Musikdateien auslesen kann. Diese Funktion hab ich schon ausprobiert, aber sie funktioniert nicht auf Vista:

    Spoiler anzeigen
    [autoit]

    Func _GetExtProperty($sPath, $iProp)
    Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
    $iExist = FileExists($sPath)
    If $iExist = 0 Then
    SetError(1)
    Return 0
    Else
    $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
    $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
    $oShellApp = ObjCreate("shell.application")
    $oDir = $oShellApp.NameSpace($sDir)
    $oFile = $oDir.Parsename($sFile)
    If $iProp = -1 Then
    Local $aProperty[35]
    For $i = 0 To 34
    $aProperty[$i] = $oDir.GetDetailsOf($oFile, $i)
    Next
    Return $aProperty
    Else
    $sProperty = $oDir.GetDetailsOf($oFile, $iProp)
    If $sProperty = "" Then
    Return 0
    Else
    Return $sProperty
    EndIf
    EndIf
    EndIf
    EndFunc ;==>_GetExtProperty

    [/autoit]

    Kennt jemand eine andere UDF?

  • Inhalt eines ListViews schnell speichern

    Hallo,

    ich habe eine Listview mit mehr als 100 Einträgen. Diese werden beim beenden des Scripts durch diese Funktion gespeichert:

    Spoiler anzeigen
    [autoit]

    Func _exit()
    WinSetState($hgui, "", @SW_HIDE)
    If $ItemDeleted = True Then
    $Fopen = FileOpen(@ScriptDir & "\Music2.txt", 2)
    For $NextLoop = 0 To _GUICtrlListView_GetItemCount($ListView3) - 1
    $MusicText = _GUICtrlListView_GetItemTextArray($ListView3, $NextLoop)
    FileWriteLine($Fopen, _
    $MusicText[1] & "|" _
    & $MusicText[2] & "|" _
    & $MusicText[3] & "|" _
    & $MusicText[4] & "|" _
    & $MusicText[5] & "|" _
    & $MusicText[6] & "|" _
    & _GetMusicPathByName($MusicText[1]))
    Next
    FileClose($Fopen)
    FileDelete(@ScriptDir & "\Music.txt")
    FileMove(@ScriptDir & "\Music2.txt", @ScriptDir & "\Music.txt")
    EndIf
    Exit
    EndFunc ;==>_exit

    [/autoit]

    Doch das dauert bei vielen Einträgen zu lange. Gibt es evtl. eine schnellere Methode?

  • Desktop Radio 3.9

    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]

  • EuroEditor 3.1.0 Beta-Version

    Villt interresiert es ja jemanden.

    Wikipedia


    Urheberrecht

    Das Urheberrecht schützt persönliche geistige Schöpfungen (für das deutsche Recht: § 2 Abs. 2 UrhG), insbesondere Werke der Literatur, Wissenschaft und Kunst, zum Beispiel Kompositionen, Gemälde, Skulpturen, Texte, Theaterinszenierungen, Fotografien, Filme, Rundfunksendungen, Musik- und Tonaufnahmen sowie Computerprogramme. Ein urheberrechtlicher Schutz entsteht für ein Werk, wenn die geistige oder künstlerische Leistung eine angemessene Schöpfungshöhe aufweist, also vereinfacht ausgedrückt kreativ genug ist beziehungsweise in dem Werk die Individualität des Schöpfers zum Ausdruck kommt. Allerdings werden von Seiten der Rechtsprechung unterschiedliche Hürden für die Einschätzung als Werk aufgestellt. So kann einerseits auch die so genannte Kleine Münze schutzfähig sein (etwa ein Werbeslogan), andererseits ein architektonisches Gebäude nicht als eigenschöpferische Leistung eingestuft werden. Fehlt also die Schöpfungshöhe, so handelt es sich nicht um ein urheberrechtlich geschütztes Werk. Dann entstehen keine Ausschließlichkeitsrechte. Etwas anderes gilt nur für die so genannten verwandten Schutzrechte. Hier handelt es sich zwar nicht um künstlerische Arbeiten. Dennoch ist ein Schutz gewollt etwa für einfache Fotografien.
    Das Urheberrecht muss nicht angemeldet werden, es entsteht im Moment der Schaffung des Werkes. Dies bringt das Problem mit sich, dass die Klärung, ob es sich um ein urheberrechtsfähiges Werk handelt, im Zweifel erst im Prozess erfolgen wird.
    Dem Urheber wird das Recht der Verwertung seines Werkes zugebilligt: Dieses umfasst Vervielfältigung, Verbreitung, Ausstellung, öffentliche Wiedergabe und Bearbeitung des Werkes. Der Urheber darf die Rahmenbedingungen der Verwertung festlegen, hat somit das Recht auf die Erstveröffentlichung und auf die erste Inhaltsmitteilung. Zudem ist die Urheberrechtsbezeichnung geschützt. Der Urheber kann die Entstellung eines Werkes verbieten.
    Eine Reihe von wichtigen Merkmalen des Urheberrechts (Umfang der Verwertungsrechte, Schutzdauer, Übertragbarkeit …) sind in verschiedenen Ländern unterschiedlich geregelt.