XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur 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 qui Ausgabe
let h%=240    h - Hauteur qui Ausgabe
FILM - AliasName AVI Dossier
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 qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Déclarer A$,B$
Titre de la fenêtre 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$)

    Si %MCIError

        Imprimer faute: ;B$

    EndIf

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

WEND

FIN

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Déclarer A$,B$
Titre de la fenêtre 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$)

    Si %MCIError

        Imprimer faute: ;B$

    EndIf

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

WEND

FIN