AVI width and height? - example

[ChrisPaulson]

/***************************************************************************************
**
** P R O C E D U R E
** -----------------
**
** File: general/getavisz.p
**
** Author: Chris Paulson
**
** Date: 25-Apr-02
**
** Description: Get the size of an avi file
**
** Mod history:
**
***************************************************************************************/

/************************************* Parameters *************************************/
define input param pFilename as char no-undo.
define output param pHeight as int no-undo.
define output param pWidth as int no-undo.
/************************************* Scope Defines **********************************/
/************************************* Includes ***************************************/
/************************************* Shared *****************************************/
/************************************* Vars *******************************************/
define var ReturnString As char no-undo.
define var Pos1 as int no-undo.
define var lStart as int no-undo.
define var vstatus as int no-undo.
/************************************* Widgets ****************************************/
/************************************* Frame ******************************************/
/************************************* Triggers ***************************************/
/************************************* Main *******************************************/
run mciSendStringA("close Movie1", output ReturnString, 0, 0, output vstatus).
define frame vtemp.

run mciSendStringA("open " + pfilename + " Type avivideo Alias Movie1", output ReturnString, 0, 0, output vstatus).

returnstring = fill(" ", 128).

run mciSendStringA("Where Movie1 destination", output ReturnString, length(ReturnString) - 1, 0, output vstatus).

pWidth = integer(entry( 4, returnString, " ")).
pHeight = integer(entry( 3, returnString, " ")).
/************************************* Procedures *************************************/
/***************************************************************************************
**
** Procedure:
**
** Description:
**
***************************************************************************************/
/************************************* Parameters *************************************/
/************************************* Vars *******************************************/
/************************************* Widgets ****************************************/
/************************************* Frame ******************************************/
/************************************* Triggers****************************************/
/************************************* Main *******************************************/
procedure mciSendStringA external "winmm.dll":
define input param lpstrCommand as char.
define output param lpstrReturnString As char.
define input param uReturnLength As long.
define input param hwndCallback As long.
define return parameter rstatus AS long.
end.

/************************************* End Proc ***************************************/