Problem³

[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")

Edit by NicTheQuick: Code-Tags gesetzt

[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

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

[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

[125]

Cain erklär mal dein Problem meine vorredner waren nen bissle unfreundlich ich helf dir wenn du mir sagts wo das prob liegt

[freedimension]

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

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

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

[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!

[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