XProfan

Declare A$,B$
Cls
WindowTitle Testprogramm AVI-Video
A$=@LoadFile$(FILM-DATEI,*.AVI)

While A$ <>

    A$=OPEN  + A$ +  TYPE AVIVIDEO ALIAS FILM
    B$=@MCISend$(A$)
    Case %MCIError : Print Fehler: ;B$
    B$=@MCISend$(PLAY FILM)
    WaitMouse
    B$=@MCISend$(CLOSE FILM)
    A$=@LoadFile$(FILM-DATEI,*.AVI)

EndWhile

-End-------------------------------------------------------------------
End

var  FTP_dlg& = @Create(Window,%hwnd,Webseiten pflegen,5,44,1006,600)
Declare avi#
Dim avi#,255
Declare down&
String avi#,0= Video.avi
down&=Control(SysAnimate32,,$50080004,482,0,1,1,FTP_dlg&,0,%hinstance,$100)
sendmessage(down&,1124,0,avi#)
WaitInput
dispose avi#

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