Voila! I did have a defective winmm.dll. I booted to DOS, copied another (newer) winmm.dll to my system directory and now it works as advertised!

Thanks a lot

Glenn

BTW where did you find the documentation for this DLL?



>>Nice try, but that didn't work either. Can you get it to load?
>>
>>Glenn
>>
>Glenn,
>:) Yes it was a nice try. This time I copied code and checked.
>You immediately close it in destroy. If object is public then it loads and plays. I also tried playing with wait (nice foxhead play:) - foxrain.avi).
>Comment/uncomment to test play and wait/nowait.
>

*public oTest
>oTest = CreateObject('PlayAvi')
>oTest.cFileName = GetFile('AVI')
>oTest.Play()
>
>define class PlayAvi as relation
>	cFileName	=	''
>	function init
>		declare long mciSendString in "winmm.dll" ;
>		 string lpstrCommand, ;
>		 string lpstrReturnString, ;
>		 integer uReturnLength, ;
>		 integer hwndCallBack
>
>	function play
>	LOCAL lcRetString, lcFileName
>		IF not EMPTY( this.cFileName) and not EMPTY(SYS(2000,this.cFileName))
>			lcFileName = FULLPATH(this.cFileName)
>			lcRetString = space(127)
>			mciSendString(;
>				'open "' + ;
>				lcFileName + ;
>				'" type avivideo alias video', ;
>				lcRetString, 127, 0)
>			mciSendString("set video time format ms", lcRetString , 127, 0)
>			mciSendString("play video wait", lcRetString , 127, 0)
>*			mciSendString("play video", lcRetString , 127, 0)
>			mciSendString("close video ", lcRetString , 127, 0)
>		ENDIF
>	endfunc
>    procedure destroy
> *   lcRetString = space(127)
> * 	 mciSendString("close video ", lcRetString , 127, 0)
>    endproc
>enddefine
>
>

Cetin