Seite 1 von 2
Problem³
Verfasst: 13.04.2005 20:24
von Cain41
Hallo Leute!Ich habe ein kleines Problem,mit einem Progg:
Code: Alles auswählen
InitMovie()
Procedure inhalt(pfad.s)
IncludeDirectoriesInListings.l = #False
DirectoryName.s
FileType.l
NewList Listings.s()
If ExamineDirectory(1,pfad, "")
Repeat
FileType = NextDirectoryEntry()
If FileType = 1
AddElement(Listings())
Listings() = DirectoryEntryName()
EndIf
If IncludeDirectoriesInListings = #True
If FileType = 2
AddElement(Listings())
Listings() = DirectoryEntryName()
EndIf
EndIf
Until FileType = 0
EndIf
If OpenFile(1, "Listings.txt")
ForEach Listings()
WriteStringN(pfad+Listings())
Next
CloseFile(1)
EndIf
EndProcedure
PfadName.s = PathRequester("Please choose a folder...","")
inhalt(PfadName)
OpenFile(0,"Listings.txt")
CreateFile(1,"Playlist.txt")
Repeat
UseFile(0)
DateiPfad$ = ReadString()
endung$=GetExtensionPart(DateiPfad$)
If endung$="mp3"
UseFile(1)
WriteStringN(DateiPfad$)
EndIf
Until Eof(0)<>0
CloseFile(0)
CloseFile(1)
OpenFile(2,"Playlist.txt")
Repeat
songpfad$=ReadString()
If songpfad$
If LoadMovie(0,songpfad$)
OpenWindow(0, 100, 150, MovieWidth(), MovieHeight(), #PB_Window_SystemMenu, "Player")
PlayMovie(0, WindowID())
Repeat
Until WaitWindowEvent() = #PB_EventCloseWindow
Else
MessageRequester("Shit", "Es geht ned!!!", 0)
EndIf
EndIf
Until Eof(2)<>0
CloseFile(2)
DeleteFile("Playlist.txt")
DeleteFile("Listings.txt")
Re: Problem³
Verfasst: 13.04.2005 20:28
von traumatic
1.) Code-Tags setzen
2.) Problem beschreiben
3.) Ist die Signatur Dein ernst?
EDIT: Im übrigen funktioniert der Code bei mir, mal abgesehen davon,
dass ständig ein neues Fenster aufgemacht wird
Verfasst: 13.04.2005 23:30
von Kaeru Gaman
yup. du solltest definitiv dein problem beschreiben.
außerdem wäre eine aussagefähige Überschrift auch nicht schlecht.
merke: du mußt hier nicht pro buchstabe bezahlen.
Verfasst: 14.04.2005 03:29
von Hroudtwolf
Wir sind doch viel zu blöd für diese Frage.
@Cain41
Wende dich lieber damit an ein Profiforum. Von uns wird dir keiner helfen können.
http://www.AbsolutePureBasicProfiForum.de 
Verfasst: 14.04.2005 07:38
von 125
Cain erklär mal dein Problem meine vorredner waren nen bissle unfreundlich ich helf dir wenn du mir sagts wo das prob liegt
Verfasst: 14.04.2005 09:03
von freedimension
125 hat geschrieben:...meine vorredner waren nen bissle unfreundlich...
Naja, also außer bei HW kann ich hier nirgends Bößwilliges oder Unfreundliches entdecken, eher aber Sachlichkeit. Warum also die Mehrzahl?
@Cain41:
kann mich traumatic nur anschließen, in allen 3 Punkten. Wir können dir leider nicht helfen wenn du uns nicht sagst wo das Problem liegt
Desweiteren muss diese Verherrlichung von Raubkopien wirklich nicht sein, kommt in einem Programmierforum (mit einigen professionellen Programmierern) nicht so gut
Verfasst: 14.04.2005 14:45
von stbi
nach einem schnellen Blick auf den Code unterstelle ich mal, dass Du *.MP3-Dateien mittels LoadMovie/PlayMovie abspielen möchtest ... probiers doch mal mit InitSound/LoadSound/PlaySound.
Verfasst: 14.04.2005 15:08
von Hroudtwolf
Naja, also außer bei HW kann ich hier nirgends Bößwilliges oder Unfreundliches entdecken, eher aber Sachlichkeit. Warum also die Mehrzahl?
Bösswillig war das auch von mir nicht.
Ich wollt ihn nur mal ein wenig dafür utzen, daß er uns so im Dunkeln tappen lässt.
Sry
Verfasst: 14.04.2005 15:56
von Cain41
sry,dass ich nciht ds Problem gesagt habe(wusst' ich doch,dass da was fehlte).Das ist ja ein Programm,dass eine mp3-Datei laden soll und das Problem ist,dass der Sound nicht abgespielt wird.Ist jetzt blöd,dass ich die falsche Datei reingepostet habe,aber die andre ist mit InitSound....,wie stbi schon meinte.
Also hier nochmal der echte:
Code: Alles auswählen
InitSound()
Procedure inhalt(pfad.s)
IncludeDirectoriesInListings.l = #False
DirectoryName.s
FileType.l
NewList Listings.s()
If ExamineDirectory(1,pfad, "")
Repeat
FileType = NextDirectoryEntry()
If FileType = 1
AddElement(Listings())
Listings() = DirectoryEntryName()
EndIf
If IncludeDirectoriesInListings = #True
If FileType = 2
AddElement(Listings())
Listings() = DirectoryEntryName()
EndIf
EndIf
Until FileType = 0
EndIf
If OpenFile(1, "Listings.txt")
ForEach Listings()
WriteStringN(pfad+Listings())
Next
CloseFile(1)
EndIf
EndProcedure
PfadName.s = PathRequester("Please choose a folder...","")
inhalt(PfadName)
OpenFile(0,"Listings.txt")
CreateFile(1,"Playlist.txt")
Repeat
UseFile(0)
DateiPfad$ = ReadString()
endung$=GetExtensionPart(DateiPfad$)
If endung$="mp3"
UseFile(1)
WriteStringN(DateiPfad$)
EndIf
Until Eof(0)<>0
CloseFile(0)
CloseFile(1)
OpenFile(2,"Playlist.txt")
Repeat
songpfad$=ReadString()
If songpfad$
If LoadSound(0,songpfad$)
OpenWindow(0, 100, 150, MovieWidth(), MovieHeight(), #PB_Window_SystemMenu, "Player")
PlaySound(0, WindowID())
Repeat
Until WaitWindowEvent() = #PB_EventCloseWindow
Else
MessageRequester("Shit", "Es geht ned!!!", 0)
EndIf
EndIf
Until Eof(2)<>0
CloseFile(2)
DeleteFile("Playlist.txt")
DeleteFile("Listings.txt")
Übrigens@traumatic:Ich hab's nur 'just for fun' reingeschrieben.
Edit by NicTheQuick: Das nächste mal mache ich die Code-Tags aber nicht mehr rein. Also bitte immer an die Code-Tags denken!
Verfasst: 14.04.2005 17:25
von bobobo
mp3's gehen nicht mit playsound abzuspielen
benutz dafür MCI
zu beachten : MCI mag nur kurze Dateinamen
MCI mag aber nicht nur mp3's sondern alle möglichen die im System bekannt sind.
Code: Alles auswählen
; Author: cnesm
; Date: 09. November 2003
; leicht erweitert von bobobo
If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "Beispiel: MP3 Abspielen")
tmp$=OpenFileRequester("Mp3 auswählen","","Mp3-File|*.mp3|WaveDatei|*.wav|Audioformate|*.mp3;*.wav;*.au;*.wma;*.snd;*.aiff;*.aifc",0)
Tmps$=Space(512)
GetShortPathName_(Tmp$,@Tmps$,512)
Buffer$=Space(128)
mciSendString_("OPEN "+tmps$+" TYPE MpegVideo ALIAS MP3",Buffer$,128,0)
mciSendString_("PLAY MP3 ",0,0,0)
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button
mciSendString_("CLOSE MP3",0,0,0)
Quit = 1
EndIf
Until Quit = 1
EndIf
End