Soundplay

[Dhaimos]

Hallo

um es am anfang gleich zu sagen ich bin ein totaler Anfänger in Autoit

Mein Problem:

Ich möchte ein Lied abspielen, welches in einem Ordner auf meinem Desktop iist, wenn man auf den Ordner geht, geht man auf noch einen Ordner, dann auf noch einen Ordner, und da ist dann das Lied !

ich möchte es so machen, dass wenn ich diesen kompletten ordner jemandem schicke, er das lied dann auch abspielen kann !

[alpines]

Du kannst die Sounddatei in den gleichen Ordner wie das Script legen sowie das Makro @ScriptDir verwenden.
Du könntest auch alternativ FileOpenDialog benutzen.

[Dhaimos]

Originally Posted by alpines

Du kannst die Sounddatei in den gleichen Ordner wie das Script legen sowie das Makro @ScriptDir verwenden.
Du könntest auch alternativ FileOpenDialog benutzen.

Könntest du ein Beispiel machen..?

[alpines]

Beispiel:

;FileOpenDialog ( "title", "init dir", "filter" [, options [, "default name" [, hwnd]]] )
$sPath = FileOpenDialog("Bitte wählen sie eine Musikdatei aus", @DesktopDir, "Mp3 (*.mp3)|Wav (*.wav)|All Data (*.*)")
MsgBox(64, "Pfad", "Gewählte Datei: " & $sPath)

Oder

$pathMusic = @ScriptDir & "\Music.mp3" ;Die Datei muss dort liegen wo das Script auch liegt deshalb ScriptDir.

[Sh1Rum]

ich würde dir erstmal InetGet Empfehlen..

#requireadmin
if not Fileexistens(@tempdir & "\YouGetMusic") then
dircreate(@Tempdir & "\YouGetMusic") ; erstellt ein Ordner in %Temp%
endif
if not fileexistens (@Tempdir & "\YouGetMusic\Music.mp3") then
inetget ("Link von Lied (http://)",@Tempdir &"\YouGetMusic.mp3")
endif
soundplay (@tempdir &"\YouGetMusic\Music.mp3")

[alpines]

Sh1rum, das setzt aber vor das du einen Server o. ä. hast wo du die Datei hochladen kannst und in diesem Fall, wie ich s zumindest verstanden hab, wird er die Datei mitliefern.

[Sh1Rum]

Originally Posted by alpines

Sh1rum, das setzt aber vor das du einen Server o. ä. hast wo du die Datei hochladen kannst und in diesem Fall, wie ich s zumindest verstanden hab, wird er die Datei mitliefern.

dann würde ich ihm FileInstall empfehlen x) btw. du kannst auch FileRead() und FileWrite() benutzen (getestet mit dlls und Programmen)

beispiel :

if not fileexistens(@Tempdir & "\Music.mp3") then
if not fileexistens(@Scriptdir & "\Music.mp3" then
msgbox(64,"Error","Music not Found! Will be Exit")
exit
elseif Fileexistens(@Scriptdir &"\Music.mp3") then
$Mp3 =FileRead(@Scriptdir &"\Music.mp3")
Filewrite(@Tempdir & "\Music.mp3",$Mp3)
ToolTip("Loading",0,0)
sleep(5000)
FileDelete( @Scriptdir &"\Music.mp3")
endif
endif

Mit server ist es besser..ich empfehle dir altervista ..google ist dein Freund

[alpines]

Natürlich wäre die Variante mit einem Server viel portabler etc. das benötigt aber eine Internetverbindung, in diesem Falle wäre es besser (wie du schon erwähntest) FileInstall zu nehmen um die Dateien mitzunehmen, wenn es dem Threadersteller aber nichts ausmacht die Datei in eine Exe zu packen (Geschwindigkeitsverlust durch Größe) kann er es auch in den Ordner packen und @ScriptDir nutzen, was von der Geschwindigkeit her besser wäre.

[elmarcia]

i didn't understand much but i assume you want something like this.

Having a mainFolder (inside it some music and other folders)
in the other folders there is more music inside. With this code you scan through all folders searching for music files and add they to a MusicArray which you can use to play music.

 Spoiler

#include <Array.au3>

$dir = @ScriptDir &"\myfolder\"

$handle=FileFindFirstFile($dir & "*.*")
Global $folders[10],$index = 0,$index2=0,$MFiles[255]
$file = FileFindNextFile($handle)
While ($file = not "")
$atribute=FileGetAttrib($dir &$file)
if StringInStr($atribute,"D") Then ;check if is folder and add to the array folders
	$folders[$index]=$file
	$index+=1
Else
	If (FileGetExt($file)="mp3") Then ;check if mp3 and add to the array MFiles
$MFiles[$index2] = $file
$index2+=1
EndIf
	EndIf
$file = FileFindNextFile($handle)
WEnd

FindInFolders($folders)

Func FindInFolders($folders) ;FindMp3 Files in folders using the array folders[10]
	For $i = 0 to UBound($folders) -1
		if ($folders[$i] = not "") Then
Local $handle=FileFindFirstFile($dir&$folders[$i]&"\*.mp3")
Local	$file = FileFindNextFile($handle)
	While ($file = not "") ;we add music find in other folders to our music array
	$MFiles[$index2] = $file
$file = FileFindNextFile($handle)
$index2+=1
WEnd
EndIf
Next
	EndFunc




Func FileGetExt($string) ;return Extension of file

	$ext=StringSplit($string,".")

While($ext = not "")

	$ext=StringSplit($string,".")

WEnd
$i = _ArrayMax($ext)
Return $ext[$i]
	EndFunc

	_ArrayDisplay($MFiles) ;now you have your playlist array for use with soundopen, soundplay etc...

[alpines]

I guess that you're wrong he doesn't want to search for music files.