playing_20an_20avi_20file
Playing an AVI file
by Richard Russell, June 2013
This is a very simple, no-frills, way of playing an AVI movie file:
avifile% = OPENIN("*.avi") IF avifile% = 0 THEN QUIT CLOSE #avifile% avifile$ = $$!420 PROCmci("open """ + avifile$ + """ type avivideo alias movie style popup") PROCmci("play movie wait") PROCmci("close movie") END DEF PROCmci(cmd$) LOCAL R%, S% DIM R% LOCAL 128 SYS "mciSendString", cmd$, R%, 128, 0 TO S% IF S% ERROR 100, "mciSendString failed: " + STR$(S%) ENDPROC
playing_20an_20avi_20file.txt · Last modified: 2024/01/05 00:21 by 127.0.0.1