//////////
//
// File: QTFullScreen.c
//
// Contains: Functions to display full-screen QuickTime movies.
//
// Written by: Tim Monroe
//
// Copyright: (C) 1998 by Apple Computer, Inc., all rights reserved.
//
// Change History (most recent first):
//
// <4> 03/21/00 rtm changed QTFullScreen_PlayOnFullScreen to use FSSpec parameter
// <3> 04/30/99 rtm added QTFullScreen_PlayMovieOnFullScreen, to play an existing
// movie full screen
// <2> 03/17/98 rtm finally got back to this; now it's working on Mac and Windows
// <1> 12/22/97 rtm first file
//
// This file contains functions that illustrate how to play QuickTime movies full screen. The
// key elements to displaying full screen movies are the calls BeginFullScreen and EndFullScreen,
// introduced in QuickTime 2.5. In the function QTFullScreen_PlayOnFullScreen, we open a movie
// file, get the movie from it, configure it to play full screen, associate a movie controller,
// and then let the controller handle events. Your application should call the function
// QTFullScreen_EventLoopAction in its event loop (on MacOS) or when it gets idle events (on Windows).
//
// In the function QTFullScreen_PlayMovieOnFullScreen, we take an existing movie and play it full
// screen; in this function, we use the Movie Toolbox to start the movie and to give it processor
// time.
//
//////////
#include "QTFullScreen.h"
// gloabl variables
WindowPtr gFullScreenWindow = NULL; // the full-screen window
MovieController gMC = NULL; // movie controller for the full-screen window
Ptr gRestoreState = NULL; // restore state; used when closing the full-screen window
//////////
//
// QTFullScreen_PlayOnFullScreen
// Prompt the user for a movie and play it full screen.
//
//////////
OSErr QTFullScreen_PlayOnFullScreen (FSSpecPtr theFSSpecPtr)
{
Movie myMovie = NULL;
short myRefNum = 0;
long myFlags = fullScreenDontChangeMenuBar | fullScreenAllowEvents;
OSErr myErr = noErr;
myErr = OpenMovieFile(theFSSpecPtr, &myRefNum, fsRdPerm);
if (myErr != noErr)
goto bail;
// now fetch the first movie from the file
myErr = NewMovieFromFile(&myMovie, myRefNum, NULL, NULL, newMovieActive, NULL);
if (myErr != noErr)
goto bail;
CloseMovieFile(myRefNum);
// set up for full-screen display
myErr = BeginFullScreen(&gRestoreState, NULL, 0, 0, &gFullScreenWindow, NULL, myFlags);
#if TARGET_OS_WIN32
// on Windows, set a window procedure for the new window and associate a port with that window
QTMLSetWindowWndProc(gFullScreenWindow, QTFullScreen_HandleMessages);
CreatePortAssociation(GetPortNativeWindow(gFullScreenWindow), NULL, 0L);
#endif
SetMovieGWorld(myMovie, (CGrafPtr)gFullScreenWindow, GetGWorldDevice((CGrafPtr)gFullScreenWindow));
SetMovieBox(myMovie, &gFullScreenWindow->portRect);
// create the movie controller
gMC = NewMovieController(myMovie, &gFullScreenWindow->portRect, 0);
bail:
return(myErr);
}
//////////
//
// QTFullScreen_RestoreScreen
//
//////////
OSErr QTFullScreen_RestoreScreen (void)
{
OSErr myErr = noErr;
#if TARGET_OS_WIN32
DestroyPortAssociation((CGrafPtr)gFullScreenWindow);
#endif
DisposeMovieController(gMC);
myErr = EndFullScreen(gRestoreState, 0L);
return(myErr);
}
//////////
//
// QTFullScreen_EventLoopAction
// Do any required event loop action processing.
//
//////////
OSErr QTFullScreen_EventLoopAction (EventRecord *theEvent)
{
return(MCIsPlayerEvent(gMC, theEvent));
}
#if TARGET_OS_WIN32
//////////
//
// QTFullScreen_HandleMessages
// Handle Windows messages for the full-screen window.
//
//////////
LRESULT CALLBACK QTFullScreen_HandleMessages (HWND theWnd, UINT theMessage, UINT wParam, LONG lParam)
{
MSG myMsg = {0};
EventRecord myMacEvent;
LONG myPoints = GetMessagePos();
myMsg.hwnd = theWnd;
myMsg.message = theMessage;
myMsg.wParam = wParam;
myMsg.lParam = lParam;
myMsg.time = GetMessageTime();
myMsg.pt.x = LOWORD(myPoints);
myMsg.pt.y = HIWORD(myPoints);
// translate the Windows message to a Mac event
WinEventToMacEvent(&myMsg, &myMacEvent);
// pass the Mac event to the movie controller
QTFullScreen_EventLoopAction(&myMacEvent);
return(DefWindowProc(theWnd, theMessage, wParam, lParam));
}
#endif // TARGET_OS_WIN32
//////////
//
// QTFullScreen_MoviePrePrerollCompleteProc
// A completion procedure for pre-prerolling movies.
//
//////////
PASCAL_RTN void QTFullScreen_MoviePrePrerollCompleteProc (Movie theMovie, OSErr thePrerollErr, void *theRefcon)
{
#pragma unused(thePrerollErr, theRefcon)
StartMovie(theMovie);
}
//////////
//
// QTFullScreen_PlayMovieOnFullScreen
// Play the specified movie full screen (without a movie controller).
//
//////////
OSErr QTFullScreen_PlayMovieOnFullScreen (Movie theMovie)
{
long myFlags = fullScreenAllowEvents;
GWorldPtr myOrigGWorld = NULL;
Rect myRect;
OSErr myErr = noErr;
StopMovie(theMovie);
// set up for full-screen display
myErr = BeginFullScreen(&gRestoreState, NULL, 0, 0, &gFullScreenWindow, NULL, myFlags);
#if TARGET_OS_WIN32
// on Windows, set a window procedure for the new window and associate a port with that window
QTMLSetWindowWndProc(gFullScreenWindow, QTFullScreen_HandleMessages);
CreatePortAssociation(GetPortNativeWindow(gFullScreenWindow), NULL, 0L);
#endif
GetMovieBox(theMovie, &myRect);
GetMovieGWorld(theMovie, &myOrigGWorld, NULL);
SetMovieGWorld(theMovie, (CGrafPtr)gFullScreenWindow, GetGWorldDevice((CGrafPtr)gFullScreenWindow));
SetMovieBox(theMovie, &gFullScreenWindow->portRect);
PrePrerollMovie(theMovie, GetMovieTime(theMovie, NULL), GetMoviePreferredRate(theMovie), NewMoviePrePrerollCompleteProc(QTFullScreen_MoviePrePrerollCompleteProc), (void *)0L);
// play the movie through until the end; of course, a real application would probably want
// to call MoviesTask in its idle routine instead of just looping mindlessly here; this is
// left as an exercise for the reader
while (!IsMovieDone(theMovie))
MoviesTask(theMovie, 0L);
StopMovie(theMovie);
SetMovieGWorld(theMovie, myOrigGWorld, NULL);
myErr = EndFullScreen(gRestoreState, 0L);
SetMovieBox(theMovie, &myRect);
bail:
return(myErr);
}
|
