windoze media

[Ken Norris]

Hello Wilhelm,

> Date: Tue, 23 Sep 2003 10:59:01 +0200
> From: Wilhelm Sanke <sanke at hrz.uni-kassel.de>
> Subject: RE: windoze media

Thanks so much. Your scripts will be tucked away where I can reach them
easily. It's really what I was inquiring about and I can't wait to try them
out. QT script control is fairly good in Rev, but we may not want to force a
PC user to have QT aboard.

Here they are again in case anyone missed them:

> Here is a script to play a video clip in Revolution:
> 
> on mouseup
> get mciSendstring("open c:\Quest\Tutorial\Video.avi alias Film")
> get mciSendstring("put Film destination at 300 90 160 120")
> get mciSendstring("window FILM handle"&& the windowId of this stack)
> get mciSendstring("play Film wait")
> get mciSendstring("close Film")
> end mouseup
> 
> A similar script to play a sound file:
> 
> on mouseup
> get mciSendstring("open c:\mao\gong.wav type waveaudio alias Mao")
> get mciSendstring("play Mao wait")
> get mciSendstring("close Mao")
> end mouseup
> 
> Another script to play an "avi" file where a "screen" is pulled down
> before the film starts:
> 
> on mouseUp
> get mciSendString("open C:\Windows\Desktop\Meta2.5.B3\asym01.avi alias
> Film")
> get mciSendstring("put Film destination at 250 90 260 220")
> get mciSendstring("window FILM handle"&&the windowID of this stack)
> 
> show fld "frame" with visual effect reveal down
> wait 1 second
> get mciSendstring("play Film from 1")
> 
> wait 5 seconds
> get mciSendstring("close Film")
> hide fld "frame"  with visual effect reveal up
> end mouseup
-----------
Thanks again,
Ken N.