10
« Last post by Dav on Today at 10:45:04 AM »
Here a video player I made years ago using MCI commands, which means it's for Windows. This is a VERY basic use of MCI, you can expand it by declaring types of files when opening the file, and add pause, resume, etc. Lookup opening types of files with MCI for more info. I'm not 100% sure I'm using MCI correctly here, but the video played for me at the time so I didn't mess with it anymore.
- Dav
'=============
'QB64VIDEO.BAS
'=============
'Plays a video file in QB64 via MCI commands (WINDOWS ONLY)
'Coded by Dav, forgot what year...
'NOTE: This demo plays a sample video name davpiano.wmv.
DECLARE DYNAMIC LIBRARY "WINMM"
FUNCTION mciSendStringA% (lpstrCommand AS STRING, lpstrReturnString AS STRING, BYVAL uReturnLength AS INTEGER, BYVAL hwndCallback AS INTEGER)
' mciSendStringA function plays media files and returns the following:
' 0 = command sucessful
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' lpstrCommand is the MCI command string (and optional flags) to send.
' lpstrReturnString is a string that holds any return information.
' uReturnLength is the length of the lpstrReturnString string passed.
' NOTE: If lpstrCommand given doesn't retun a value then lpstrReturnString
' can be empty and uReturnLength can be set to 0.
' hwndCallback contains a callback window handle (only if the Notify flag used in lpstrCommand)
'====================================================================
FUNCTION mciGetErrorStringA% (BYVAL dwError AS INTEGER, lpstrBuffer AS STRING, BYVAL uLength AS INTEGER)
' mciGetErrorStringA returns error info if the mciSendStringA failed.
' dwError is the return value from the mciSendString function.
' lpstrBuffer string holds the error information returned by the function.
' uLength is the length of the lpstrBuffer string buffer.
'====================================================================
END DECLARE
DECLARE CUSTOMTYPE LIBRARY
FUNCTION FindWindow& (BYVAL ClassName AS _OFFSET, WindowName$)
END DECLARE
filename$ = "davpiano.wmv" '<========== My video file to play
IF NOT _FILEEXISTS(filename$) THEN
PRINT filename$ + " " + "not found."
END
END IF
handle& = _NEWIMAGE(320, 240, 32) '<===== The x/y size of my video
SCREEN handle&
DO UNTIL _SCREENEXISTS: _LIMIT 30: LOOP 'be sure screen exists before using in this way
title$ = "QB64 Video Player - " + filename$
_TITLE title$
hwnd& = FindWindow(0, title$ + CHR$(0))
ReturnString$ = SPACE$(255): ErrorString$ = SPACE$(255)
a% = mciSendStringA%("open " + filename$ + " style popup", ReturnString$, LEN(ReturnString$), 0)
IF a% THEN
x% = mciGetErrorStringA%(a%, ErrorString$, LEN(ErrorString$))
PRINT ErrorString$
END
ELSE
a2% = mciSendStringA%("window " + filename$ + " handle " + STR$(hwnd&), ReturnString$, LEN(ReturnString$), 0)
b% = mciSendStringA%("play " + filename$, "", 0, 0)
'=== Play video...
DO
_LIMIT 30
'you can add pause/resume routine here if you want...
LOOP UNTIL INKEY$ <> ""
x% = mciSendStringA%("stop " + filename$, "", 0, 0)
x% = mciSendStringA%("close " + filename$, "", 0, 0)
END IF
Recent Posts