XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
AVI-video Play
executable ex Profan-Version 5.0
declare x%,y%,b%,h%
declare lever$,b$
cls
let x%=50     x - Ausgabekoordinate
let y%=50     y - Ausgabekoordinate
let b%=320    b - wide the spending
let h%=240    h - Höhe the spending
FILM - AliasName AVI File
let lever$=@Str $(%HWnd)
let b$=TEST.AVI
let b$=@ADD$(@ADD$(OPEN ,b$),
TYPE AVIVIDEO ALIAS FILM)
let B$=@$ MCISend(b$)
let b$=WINDOW FILM lever ;handle$
@$ MCISend(b$)
let b$=PUT FILM DESTINATION AT ;
@Str $(x%),@Str $(y%),@Str $(b%),@Str $(h%)
@$ MCISend(b$)
@MCISEND$(PlAY FILM)
waitinput
@MCISEND$(STOP FILM)
@$ MCISend(CLOSE FILM)

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
AVI-video Play
CLS
Declare A$,B$
Window Title Testprogramm AVI-video
LET A$=@LOADFILE$(FILM-FILE,*.AVI)

WHILE @NEQ$(A$,)

    LET A$=@ADD$(@ADD$(OPEN ,A$), TYPE AVIVIDEO ALIAS FILM)
    LET B$=@$ MCISend(A $)

    If %MCIError

        Print Error: ;B$

    EndIf

    LET B$=@$ MCISend(PLAY FILM)
    WAITMOUSE
    LET B$=@$ MCISend(CLOSE FILM)
    LET A$=@LOADFILE$(FILM-FILE,*.AVI)

WEND

END

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
AVI-video Play
CLS
Declare A$,B$
Window Title Testprogramm AVI-video
LET A$=@LOADFILE$(FILM-FILE,*.AVI)

WHILE @NEQ$(A$,)

    LET A$=OPEN q + A$ + q TYPE AVIVIDEO ALIAS FILM
    LET B$=@$ MCISend(A $)

    If %MCIError

        Print Error: ;B$

    EndIf

    LET B$=@$ MCISend(PLAY FILM)
    WAITMOUSE
    LET B$=@$ MCISend(CLOSE FILM)
    LET A$=@LOADFILE$(FILM-FILE,*.AVI)

WEND

END