XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
AVI im Fenster abspielen
declare a$
cls
a$=loadfile$(AVI-Film im Profan-Fenster abspielen,AVI-Filme (*.avi)|*.avi|Alle Dateien|*.*)
case %button=2:end
mcisend$(OPEN +shortname$(a$)+ TYPE AVIVIDEO ALIAS MOVIE)
mcisend$(WINDOW MOVIE HANDLE +str$(%hwnd))
mcisend$(PUT MOVIE DESTINATION AT 160 120 0 0)
mcisend$(PLAY MOVIE)
waitinput
mcisend$(CLOSE MOVIE)

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'AVI im Fenster abspielen
'Souce angepasst von E.T. am 12.12.2010
'Änderung:
'	Übergabe des zu startenden Video's mit vollem (langem) Verz.\Name
'	TYPE: MPEGVIDEO, da komprim. Avi's nicht abgespielt wurden, getestet mit DivX(funzt auch bei unkompr. avi's)
'	Spielzeit berechnen anhand Längen-Info und Frame-Info aus Datei
'	Video-Abmessungen ermitteln und V-Fenster positionieren (hier: zentriert im HWnd)
'	Warte-Zeit bis Ende, kann jederzeit durch Taste oder Maus abgebrochen werden
declare a$, T%, H%, F%, Vx%, Vy%
@Set("Decimals",0)'sonst sind die Ausgaben so ewig lang
WindowStyle 16+64'kein Titel, kein Menü
window %MaxX,%MaxY'Vollbild
cls 0'Geschmacks-Sache
a$=loadfile$("AVI-Film im Profan-Fenster abspielen","AVI-Filme (*.avi)|*.avi")
print a$'INFO: Datei-Name
case %button=2:end
mcisend$("OPEN \q"+a$+"\q TYPE MPEGVIDEO ALIAS MOVIE")'AVIVIDEO bei unkompr. Avi's
T% = @Val(mcisend$("STATUS MOVIE LENGTH"))'Länge bei 100Frames/sec
F% = @Val(mcisend$("STATUS MOVIE nominal frame rate"))/1000'durchschnittl. Frames/sec
H% = @Val(mcisend$("STATUS MOVIE WINDOW HANDLE"))'Handle des Movie-Fensters ermitteln
print "Time :",@str$(T%/F%),"sec."'INFO: Spielzeit
print "Framerate :",@str$(F%)'INFO: Durchschn. Framerate
mcisend$("WINDOW MOVIE HANDLE "+str$(%hwnd))'Video ins HWnd
Vx% = (@Width(%HWnd)/2) - (@Width(H%)/2)'X zentrieren
Vy% = (@Height(%HWnd)/2) - (@Height(H%)/2)'YZentrieren
mcisend$("PUT MOVIE DESTINATION AT " + @str$(Vx%) + " " + @str$(Vy%) + " 0 0")'VideoFenster Zentriert im Hwnd
mcisend$("PLAY MOVIE")'abspielen
SetTimer (T%/F%*1000)'Warten bis Video fertig
waitinput'oder gleich weiter bei Taste / Mausklick
Killtimer'Timer löschen
mcisend$("CLOSE MOVIE")'Video schließen
print "Beendet !!"'Na sowas...
waitinput'...auf was auch immer
end'Tschüss