Video Streamen und PB

[RSBasic]

Kann man eigentlich mit FMOD auch Videos streamen?

[Joel]

Geil, das geht sogar, hier mein Proggy:

Code: Alles auswählen

Procedure Download()
URLDownloadToFile_(0, "http://test.de/test.wmv", "D:\test.wmv" ,0,0)
Delay (100000)
EndProcedure


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

aThread = CreateThread(@Download(), 88)
Delay(1000)
  If LoadMovie(0, "D:\test.wmv")
  
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie")
    PlayMovie(0, WindowID(0))
      
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  Else
    MessageRequester("Error", "Can't load the movie...", 0)
  EndIf

Ich sage nur kompillieren udn staunen

[ts-soft]

@Joel
Versteh den Sinn Deines Codes nicht
Wenn Du die ganzen Delay sowie den Thread wegläßt, funktionierts
mindestens genauso schnell

Wozu überhaupt die API statt der nativen PB Funktion?

[Joel]

Code: Alles auswählen

Procedure Download()
URLDownloadToFile_(0, "http://test.de/test.wmv", "D:\test.wmv" ,0,0)
Delay (100000)
EndProcedure

Wenn ich das Delay weglasse, dann sagt Pure-Basic: "Invalid Memory Access" bei Endprocedure.

Das andere Delay vor dem Abspielen des Videos ist sozusamen das Caching

[ts-soft]

URLDownloadToFile_ kehrt doch sowieso erst nach Fertigstellung zurück?
Muß mir mal ne reale Inetadresse zum testen suchen.

Dem Thread fehlt schon mal der Parameter, erster Crash

[Joel]

Habe das jetzt etwas Optimiert:

Code: Alles auswählen

Procedure Download(x.l)
URLDownloadToFile_(0, "http://www.test.de/test.wmv", "D:\test.wmv" ,0,0)
EndProcedure


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

aThread = CreateThread(@Download(), 88)
Delay(500)
  If LoadMovie(0, "D:\test.wmv")
  
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "Film")
    PlayMovie(0, WindowID(0))
      
    Repeat
    Until WaitWindowEvent(1) = #PB_Event_CloseWindow
  EndIf 

Habe aber noch ein Problem: Wenn ich den Video gerade Abspiele, dann ein Fenster öffne, und dann Fenster dann wieder Minimiere, dann ist das Fenster mit dem Video wieder im Vordergrund aber der Video wird nicht angezeigt. Das Fenster ist dann weiß und erst, wenn ich das Fenster bewege, sehe ich den Video wieder....

[ts-soft]

Bei Deinem Code wird nichts gestreamt, lediglich UrlDownloadToFile nutzt
den Cache, wenn die Datei bereits vorhanden ist.
Ohne "Streaming" ist es genauso schnell da:

Code: Alles auswählen

TempFile.s = GetTemporaryDirectory() + "test.mpeg" 

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

If Not URLDownloadToFile_(0, "http://www.blitzbasement.net/bank/aliensong.mpeg", TempFile, 0, 0)

  If LoadMovie(0, TempFile)
 
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "Alien Song")
    PlayMovie(0, WindowID(0))
     
    Repeat
    Until WaitWindowEvent(1) = #PB_Event_CloseWindow
    
    DeleteFile(TempFile)
  EndIf 
EndIf

[Joel]

Hmmm, es müsste eine Funktion geben, die Videos abspielt, die noch übertragen werden.

[Joel]

Dann ist also Streaming mit PB gar nicht möglich oder?

[PMV]

Mit nativen Befehlen nicht. PB hat nur Funktionen zum abspielen von
Videos von der Festplatte (Movielib) ... willst du Streamen oder sogar
Dateiformate verwenden, die diese Lib nicht unterstützt, bist du
gezwungen auf alternativen um zu steigen. Alternativen nicht zu PB,
sondern alternative Bibliotheken wie FMOD für Audio, das aber auch
Streamen kann

Welche da für Videos gut geeignet ist weis ich aber nicht.

MFG PMV