CatchMovie()

[kreeph]

Hallo Leute, ich hab mal wieder eine kleine Frage. Kann ich Movies per IncludeBinary abspielen in pb3.30? In der Version gibt es den Befehl nämlich nicht und ich muss ein Video in mein Programm einbinden.
Vielleich lässt sich das ja mit API lösen. Hier mein kleiner Code:

Code: Alles auswählen

If InitMovie() = 0:End:EndIf:
OpenWindow(0,0,0,0,0,#PB_Window_Borderless,"..."):LoadMovie(0,"movie.wmv")
MovieWidth=MovieWidth()
MovieHeight=MovieHeight()
ResizeWindow(MovieWidth,MovieHeight):ResizeMovie(0,0,MovieWidth,MovieHeight):
MoveWindow(GetSystemMetrics_(#SM_CXSCREEN)/2-MovieWidth/2,GetSystemMetrics_(#SM_CYSCREEN)/2-MovieHeight/2)
PlayMovie(0, WindowID()):MovieAudio(75,0)
Repeat :Until MovieStatus() <>0
Repeat
    MovieWidth  = MovieWidth();ohne das gehts nicht?!
    MovieHeight = MovieHeight();ohne das gehts nicht?!
Until getasynckeystate_(#vk_escape) Or MovieStatus()=0

Hoffe, ihr findet eine Antwort bzw. den API Befehl
Danke schonmal
mfg kreeph

[ts-soft]

>> Kann ich Movies per IncludeBinary abspielen in pb3.30?
PB unterstützt dies nicht, auch nicht in der aktuellen Version.
Per Streamingobject sollte es möglich sein, entsprechende
Snippets hab ich schon im engl. Forum gesehen, aber so einfach
wie Du Dir das vielleicht vorstellst ist es nicht. Warum nicht in den
Tempordner entpacken und von dort abspielen? Das sollte
einfacher sein