PureBoard

Verfasst: **19.02.2008 18:47**

Hi
Es wurde ein Thread von Scrarabol erstellt, in dem man lesen kann, wie man eine MIDI Datei mithile von den Movie-Befehlen Spielen kann. Der Thread ist aber für 4.x-User. Da ich (und bestimmt einige andere auch) noch auch 3.94 progge, hab ich mir das mal angeschaut, und 94er-tauglich gemacht (eigentlich nur gekürzt

). Hier der Code:

Code: Alles auswählen

pfad$=""
InitMovie()

LoadMovie(1,pfad$) ; mp3 wma und mid wurde getestet.
PlayMovie(1,1)
Delay(10) ; das ist der ganze Trick !
MovieAudio(100,0) ;benötigt für midi Datein (bei 3.94 nur 2 Parameter)

Repeat
If MovieStatus()=0   ; Der ganze Repeat-Until Block ist nicht nötig! 
PlayMovie(1,0)        ; Es funktioniert auch so
Delay(10)
EndIf
Delay(100) benutzt
ForEver

Ich hoffe der Thread nütz euch was, sonst habe ich mal wieder etwas Mülleimerreifen gepostet.
Gruß, mok

Verfasst: **19.02.2008 19:08**

PB-Hilfe:

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - Movie example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

If InitMovie() = 0
  MessageRequester("Error", "Can't initialize movie playback !", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie/Audio files|*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), #PB_Window_SystemMenu, "PureBasic - Movie")
    PlayMovie(0, WindowID(0))
      
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  Else
    MessageRequester("Error", "Can't load the movie...", 0)
  EndIf
EndIf

Dein Syntax ist ein "bischen" unübersichtlich

Verfasst: **07.03.2008 14:39**

1. Läuft auf 3.30 nicht (dachte ich mir schon...)
2. Warum hast du nach dem Delay das Wort "benutzt"?

PureBoard

Re: einfaches mp3/wma/mid abspielen

Re: einfaches mp3/wma/mid abspielen