Sample of QuickTime API on Windows

// Win32P.cpp : Defines the entry point for the application.

//

#include "stdafx.h"

#include "Win32P.h"

#include <windows.h>

// quicktime

#include <QTML.h>

#include <Movies.h>

// quicktime

char movieFile[255] = "D://MyWorks//2010.9 QuickTime//movs//QTMovie.mov"; // Name of movie file

Movie theMovie = 0; // Movie object

MovieController theMC = 0; // Movie controller

bool hasWndAssociated = false; // whether has associated with a HWND

#define MAX_LOADSTRING 100

// Global Variables:

HINSTANCE hInst; // current instance

TCHAR szTitle[MAX_LOADSTRING]; // The title bar text

TCHAR szWindowClass[MAX_LOADSTRING]; // the main window class name

// Forward declarations of functions included in this code module:

ATOM MyRegisterClass(HINSTANCE hInstance);

BOOL InitInstance(HINSTANCE, int);

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

INT_PTR CALLBACK About(HWND, UINT, WPARAM, LPARAM);

int APIENTRY _tWinMain(HINSTANCE hInstance,

HINSTANCE hPrevInstance,

LPTSTR lpCmdLine,

int nCmdShow)

{

UNREFERENCED_PARAMETER(hPrevInstance);

UNREFERENCED_PARAMETER(lpCmdLine);

// TODO: Place code here.

MSG msg;

HACCEL hAccelTable;

// Initialize global strings

LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);

LoadString(hInstance, IDC_WIN32P, szWindowClass, MAX_LOADSTRING);

MyRegisterClass(hInstance);

// Perform application initialization:

if (!InitInstance (hInstance, nCmdShow))

{

return FALSE;

}

hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_WIN32P));

// quicktime

InitializeQTML(0);

EnterMovies();

// Main message loop:

while (GetMessage(&msg, NULL, 0, 0))

{

if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

}

// quicktime

//ExitMovies(); // Terminate QuickTime

//TerminateQTML();

return (msg.wParam);

}

//

// FUNCTION: MyRegisterClass()

//

// PURPOSE: Registers the window class.

//

// COMMENTS:

//

// This function and its usage are only necessary if you want this code

// to be compatible with Win32 systems prior to the 'RegisterClassEx'

// function that was added to Windows 95. It is important to call this function

// so that the application will get 'well formed' small icons associated

// with it.

//

ATOM MyRegisterClass(HINSTANCE hInstance)

{

WNDCLASSEX wcex;

wcex.cbSize = sizeof(WNDCLASSEX);

wcex.style = CS_HREDRAW | CS_VREDRAW;

wcex.lpfnWndProc = WndProc;

wcex.cbClsExtra = 0;

wcex.cbWndExtra = 0;

wcex.hInstance = hInstance;

wcex.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_WIN32P));

wcex.hCursor = LoadCursor(NULL, IDC_ARROW);

wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);

wcex.lpszMenuName = MAKEINTRESOURCE(IDC_WIN32P);

wcex.lpszClassName = szWindowClass;

wcex.hIconSm = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));

return RegisterClassEx(&wcex);

}

//

// FUNCTION: InitInstance(HINSTANCE, int)

//

// PURPOSE: Saves instance handle and creates main window

//

// COMMENTS:

//

// In this function, we save the instance handle in a global variable and

// create and display the main program window.

//

BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)

{

HWND hWnd;

hInst = hInstance; // Store instance handle in our global variable

hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);

if (!hWnd)

{

return FALSE;

}

ShowWindow(hWnd, nCmdShow);

UpdateWindow(hWnd);

return TRUE;

}

////////////////////////////////////////////////////////////////

void OpenMovie (HWND hwnd)

{

short theFile = 0;

FSSpec sfFile;

char fullPath[255];

Rect bounds;

if (!hasWndAssociated)

{

CreatePortAssociation(hwnd, NULL, 0L); // Register window with QTML

hasWndAssociated = true;

}

strcpy (fullPath, movieFile); // Copy full pathname

c2pstr (fullPath); // Convert to Pascal string

FSMakeFSSpec (0, 0L, (ConstStr255Param)fullPath, &sfFile); // Make file-system

SetGWorld ( (CGrafPtr)GetNativeWindowPort( hwnd ), nil); // Set graphics port

OSErr err = OpenMovieFile (&sfFile, &theFile, fsRdPerm);

err = NewMovieFromFile (&theMovie, theFile, nil, nil, newMovieActive, nil);

CloseMovieFile (theFile);

Rect theMovieRect;

GetMovieBox(theMovie, &theMovieRect);

theMC = NewMovieController(theMovie, &theMovieRect, mcTopLeftMovie);

} /* end OpenMovie */

////////////////////////////////////////////////////////////////

void CloseMovie (HWND hwnd)

{

if (theMC)

DisposeMovieController(theMC);

if (theMovie)

DisposeMovie(theMovie);

if (hasWndAssociated)

{

CWindowPtr qtmlPtr;

qtmlPtr = (CWindowPtr)GetHWNDPort(hwnd);

DestroyPortAssociation (qtmlPtr); // Unregister window with QTML

hasWndAssociated = false;

}

}

//

// FUNCTION: WndProc(HWND, UINT, WPARAM, LPARAM)

//

// PURPOSE: Processes messages for the main window.

//

// WM_COMMAND - process the application menu

// WM_PAINT - Paint the main window

// WM_DESTROY - post a quit message and return

//

//

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

{

int wmId, wmEvent;

PAINTSTRUCT ps;

HDC hdc;

if (GetNativeWindowPort(hWnd))

{

MSG winMsg;

EventRecord qtmlEvent;

winMsg.hwnd = hWnd;

winMsg.lParam = lParam;

winMsg.message = message;

winMsg.wParam = wParam;

winMsg.time = GetMessageTime();

DWORD msgPos = GetMessagePos(); // Get mouse position

winMsg.pt.x = LOWORD(msgPos); // Extract x coordinate

winMsg.pt.y = HIWORD(msgPos); // Extract y coordinate

NativeEventToMacEvent (&winMsg, &qtmlEvent);

if (theMC)

MCIsPlayerEvent (theMC, (const EventRecord *) &qtmlEvent);

}

switch (message)

{

case WM_CREATE:

break;

case WM_COMMAND:

wmId = LOWORD(wParam);

wmEvent = HIWORD(wParam);

// Parse the menu selections:

switch (wmId)

{

case ID_FILE_OPEN:

OpenMovie (hWnd); // Open the movie

break;

case ID_FILE_CLOSE:

CloseMovie(hWnd);

break;

case IDM_ABOUT:

DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);

break;

case IDM_EXIT:

DestroyWindow(hWnd);

break;

default:

return DefWindowProc(hWnd, message, wParam, lParam);

}

break;

case WM_PAINT:

hdc = BeginPaint(hWnd, &ps);

// TODO: Add any drawing code here...

EndPaint(hWnd, &ps);

break;

case WM_CLOSE:

break;

case WM_DESTROY:

PostQuitMessage(0);

break;

default:

return DefWindowProc(hWnd, message, wParam, lParam);

}

return 0;

}

// Message handler for about box.

INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)

{

UNREFERENCED_PARAMETER(lParam);

switch (message)

{

case WM_INITDIALOG:

return (INT_PTR)TRUE;

case WM_COMMAND:

if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)

{

EndDialog(hDlg, LOWORD(wParam));

return (INT_PTR)TRUE;

}

break;

}

return (INT_PTR)FALSE;

}