Das Script von Xeno klappt nicht !
Und dazu kommt die Fehlermeldung :
C:\Dokumente und Einstellungen\Administrator\Desktop\Eigene Dateien\Music Player\Main.au3 (1353) : ==> The requested action with this object has failed.:
$oId3.LoadFromFile ($h_file, False)
$oId3.LoadFromFile ($h_file, False)^ ERROR
Und wie gehts dann weiter?
The requested action with this object has failed.:
$oId3.LoadFromFile ($h_file, False)
$oId3.LoadFromFile ($h_file, False)^ ERROR
Habe das nun in
FileCopy(@ScriptDir & "\cddbcontrol.dll","C:\")
RunWait("regsvr32 C:\cddbcontrol.dll",@SW_HIDE)
Sleep(1000)
geändert....
[Blockierte Grafik: http://www.computerleben.net/images/articles/all_regdll_1.png]
Was ist das??? 
Ich habe keinen blassen Schimmer von .dll`s bzw. wie man Sie registriert.... 
Wohin muss die .dll-Datei kopiert werden ?
Edit: Ich bekomme alle Errors zu sehen,wieso ? Habe die .dll ins Scripverzeichnis kopiert.... Ich probier ma rum
Ich rufe dein Script wiefolgt ab:
Func _id3tag($pfad)
Global $file = $pfad
MsgBox(0,"",$file)
_DLLstartup()
Global $re = _getID3Tag($file)
If @error Then MsgBox(0, 'Error', 'Error - no array returned', 5)
_ArrayDisplay($re)
_setID3Tag($file, 'TrackPosition', 100)
If @error Then MsgBox(0, 'Error', 'Error - setID3Tag', 5)
_setID3Tag($file, 'TitleAlbum', 'Mega')
If @error Then MsgBox(0, 'Error', 'Error - setID3Tag', 5)
$re = _getID3Tag($file)
If @error Then MsgBox(0, 'Error', 'Error - no array returned', 5)
_ArrayDisplay($re)
_DLLshutdown()
EndFunc
;===================================================================================================
[/autoit] [autoit][/autoit] [autoit]; 'TitleAlbum', 'Movie', 'Title', 'CopyrightYear', 'CopyrightHolder', 'Comments', 'Label', 'BeatsPerMinute',
; 'LeadArtist', 'PartOfSet', 'TrackPosition', 'Year', 'Genre', 'FileId', 'ISRC'
;===================================================================================================
Func _setID3Tag($h_file, $detail, $value)
Local $oId3 = ObjCreate("CDDBControl.CddbID3Tag")
If Not IsObj($oId3) Then
SetError(1)
Return 0
EndIf
; False means open for read-write
$oId3.LoadFromFile ($h_file, False)
Switch $detail
Case 'TitleAlbum'
$oId3.Album = $value
Case 'LeadArtist'
$oId3.LeadArtist = $value
Case 'Title'
$oId3.Title = $value
Case 'TrackPosition'
$oId3.TrackPosition = $value
Case 'Year'
$oId3.Year = $value
Case 'Genre'
$oId3.Genre = $value
Case 'Comments'
$oId3.Comments = $value
Case 'Label'
$oId3.Label = $value
Case 'FileID'
$oId3.FileId = $value
Case 'IRSC'
$oId3.ISRC = $value
Case 'CopyrightHolder'
$oId3.CopyrightHolder = $value
Case 'CopyrightYear'
$oId3.CopyrightYear = $value
Case 'PartOfSet'
$oId3.PartOfSet = $value
Case 'Movie'
$oId3.Movie = $value
Case 'BeatsPerMinute'
$oId3.BeatsPerMinute = $value
Case Else
SetError(2)
Return 0
EndSwitch
$oId3.SaveToFile ($h_file)
Return 1
EndFunc ;==>_setID3Tag
Func _getID3Tag($h_file)
Local $oId3 = ObjCreate("CDDBControl.CddbID3Tag")
If Not IsObj($oId3) Then
SetError(1)
Return 0
EndIf
$oId3.LoadFromFile ($h_file, False)
Local $idTag_A[15][2]
$idTag_A[0][0] = 'Title'
$idTag_A[0][1] = $oId3.Title
$idTag_A[1][0] = 'LeadArtist'
$idTag_A[1][1] = $oId3.LeadArtist
$idTag_A[2][0] = 'Album'
$idTag_A[2][1] = $oId3.Album
$idTag_A[3][0] = 'TrackPosition'
$idTag_A[3][1] = $oId3.TrackPosition
$idTag_A[4][0] = 'Year'
$idTag_A[4][1] = $oId3.Year
$idTag_A[5][0] = 'Genre'
$idTag_A[5][1] = $oId3.Genre
$idTag_A[6][0] = 'Comments'
$idTag_A[6][1] = $oId3.Comments
$idTag_A[7][0] = 'Label'
$idTag_A[7][1] = $oId3.Label
$idTag_A[8][0] = 'FileId'
$idTag_A[8][1] = $oId3.FileId
$idTag_A[9][0] = 'ISRC'
$idTag_A[9][1] = $oId3.ISRC
$idTag_A[10][0] = 'CopyrightHolder'
$idTag_A[10][1] = $oId3.CopyrightHolder
$idTag_A[11][0] = 'CopyrightYear'
$idTag_A[11][1] = $oId3.CopyrightYear
$idTag_A[12][0] = 'PartOfSet'
$idTag_A[12][1] = $oId3.PartOfSet
$idTag_A[13][0] = 'Movie'
$idTag_A[13][1] = $oId3.Movie
$idTag_A[14][0] = 'BeatsPerMinute'
$idTag_A[14][1] = $oId3.BeatsPerMinute
Return $idTag_A
EndFunc ;==>_getID3Tag
Func _DLLstartup($DLLpath = '')
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
ShellExecuteWait('regsvr32', '/s /i ' & $DLLpath, @WindowsDir, 'open', @SW_HIDE)
EndFunc ;==>_DLLstartup
Func _DLLshutdown($DLLpath = '')
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
ShellExecuteWait('regsvr32', ' /s /u ' & $DLLpath, @WindowsDir, 'open', @SW_HIDE)
EndFunc ;==>_DLLshutdown
Die .dll habich ins Windows UND system32-Ver5zeichnis kopiert
Ich habe nun in einem Beispiel ein Musikstück.... (.mp3)
Nun möchte ich den Interpreten in eine externe Text-Datei aufschreiben !
Glaube,dass geht mit irgendwas mit "ld3"-Tags o.ä.
Könnte jemand die UDF (?) hochladen ?
Oder erklären,wie man das macht?
Nein,ich suche keine Fertiglösung... 
Mein Problem würde ich so beschreiben:
Man nehme einen FTP-Speicher.
Dann ein Script, welches alle Dateien auf dem Speicher anzeigen soll.
Wie machen???
Bin da völlig ratlos !
1. Gedanke: Textdatei erstellen
Client downloadet die Datei,ergänzt Sie und lädt Sie wieder hoch !
2. Gedanke: Log-Dateien in einem neuen Verzeichnis
Client lädt eine Log mit dem Namen der Datei hoch !
Dann lädt der 2. benutzer sich nur alle 1 KB - dateien herunter und mit Filefindnextfile in eine Tabelle geschrieben.
Was würdet oihr tun?
Tag.
Wie finde ich aus einem Pfad ("C:\Programme\DEAMON Tools\daemon.exe" z.bsp.) den Namen der zu beziehenden Datei heraus?
Also in diesem Beispiel "daemon.exe".
Es geht darum,aus dem Pfad die .exe-Datei herausufinden und den Process dann abzuschießen.
Danke schonmal !
Sollte was unklar sein,nachfragen .
STimmt.
War nur verwirrt,da ich zwischendurch auf _StringSplit umgestiegen bin......
Mmmmmh,auf einmal ist $registryfind kein String mehr.........
Mal gucken,aber danke für doe Hilfe !
edit: und gefunden !
Aber $array[0] ist auf einmal = 2 Oo
Das wird wiefolgt deklariert:
[autoit]$registryfind = RegEnumVal("HK" & $val & "\Software\Microsoft\Windows\CurrentVersion\Run",$count)
[/autoit]Also wo kommen dann die anderen klammern hin?
$registrystring = "C:\Programme\Valve\xxx\css.exe" /startsilent
$array = StringSplit($registrystring,"/")
MsgBox(0,"",$array[0] & " ---------------1" & @crlf & $array[1] & " -------------------------2")
Nun ist $array[0] eine 1 (ein Treffer beim Parameter), $array[1] enthält aber keinen String !
Will einfach nur den Parameter entfernen !
Das einzige TCP/IP-Script,das ich hatte,hat nicht funktioniert,OBWOHL es keine Fehler beeinhaltete ! .......
Port-Forwarding etc. sei dank !
Ach,ich wünschte,es gäbe ein OS außer Windows,mit dem man alle Spiele spielen könnte !
Du könntest einfach mehrere Nachrichten versenden,der erste wird als ID gezählt,der 2. als Titel und der 3. als Nachricht.
Dauaus wird dann ne Msgbox erstellt !
Also?
Probieren oder nicht?
Ich wollte halt versuchen,das in einem Bereich zu erledigen,nicht in 2 !
Aber die Idee ist gut,danke !
Interessiere mich auch dafür *buddel*
Wie ändere ich denn das Bild ?
Habe ja,wie manche wissen,einen Media Player erstellt.
Nun wollte ich ein Drag&Drop-Feld hinzufügen.
Damit das aber so ähnlich wie die gewohnten&populären Player von dannen geht , bräuchte ich ein wenig Hilfe !
Ihr kennt das bestimmt von allen Playern:
Die Playlist am Rand !
Man kann Dateien hineinziwehen und per doppelklick ausführen !
Das letztere habe ich ja so ähnlich gelöst,nur wie soll ich es schaffen,2 guifelder übereinander hinzupflanzen?
So dass man die Liste anklicken kann UND,wenn man etwas hineinzieht,dies hinzugefügt wird !
Die Idee,ein Edit-Feld über die Liste zu legen,geht nicht,da die Liste dann nichtmehr angesprochen wird !
Danke schonmal !
