XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
AVI-Video abspielen
Lauffähig ab Profan-Version 5.0
declare x%,y%,b%,h%
declare handle$,b$
cls
let x%=50     x - Ausgabekoordinate
let y%=50     y - Ausgabekoordinate
let b%=320    b - Breite der Ausgabe
let h%=240    h - Höhe der Ausgabe
FILM - AliasName AVI File
let handle$=@Str$(%HWnd)
let b$=TEST.AVI
let b$=@ADD$(@ADD$(OPEN ,b$),
TYPE AVIVIDEO ALIAS FILM)
let B$=@MCISend$(b$)
let b$=WINDOW FILM Handle ;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 wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Declare A$,B$
WindowTitle Testprogramm AVI-Video
LET A$=@LOADFILE$(FILM-DATEI,*.AVI)

WHILE @NEQ$(A$,)

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

    If %MCIError

        Print Fehler: ;B$

    EndIf

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

WEND

END

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Declare A$,B$
WindowTitle Testprogramm AVI-Video
LET A$=@LOADFILE$(FILM-DATEI,*.AVI)

WHILE @NEQ$(A$,)

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

    If %MCIError

        Print Fehler: ;B$

    EndIf

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

WEND

END