XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
AVI-Video abspielen
Lauffähig de Profano-Versión 5.0
declarar x%,y%,b%,h%
declarar handle$,b$
cls
let x%=50     x - Ausgabekoordinate
let y%=50     y - Ausgabekoordinate
let b%=320    b - Breite el Edición
let h%=240    h - Höhe el Edición
FILM - AliasName AVI Expediente
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 al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Declarar A$,B$
Título de la ventana 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

        Imprimir Fehler: ;B$

    EndIf

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

WEND

FIN

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
AVI-Video abspielen
CLS
Declarar A$,B$
Título de la ventana 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

        Imprimir Fehler: ;B$

    EndIf

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

WEND

FIN