User Tools

Site Tools


playing_20an_20avi_20file

This is an old revision of the document!


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
This website uses cookies for visitor traffic analysis. By using the website, you agree with storing the cookies on your computer.More information
playing_20an_20avi_20file.1522502373.txt.gz · Last modified: 2018/03/31 13:19 by 127.0.0.1