Пишем свою оболочку для FP под Windows. Шаг 5.

Код AS3:

//  CFlashWnd.h (дополнение)
class CFlashWnd:
	public  IDispatch
 
{
    ...
// starting events listening
	HRESULT SetReturnValue(WCHAR* xml_responce);
	HRESULT AdviseSink();
	// IDispatch methods
	STDMETHOD(QueryInterface)( REFIID riid, void ** ppvObject);
	ULONG STDMETHODCALLTYPE AddRef();
	ULONG STDMETHODCALLTYPE Release();
    	STDMETHOD(GetIDsOfNames)( REFIID riid, 
                              OLECHAR FAR *FAR *rgszNames,
                              unsigned int cNames, 
                              LCID lcid, 
                              DISPID FAR *rgDispId )
    	{ return( E_NOTIMPL ); }
 
    STDMETHOD(GetTypeInfo)( unsigned int iTInfo, 
                            LCID lcid, 
                            ITypeInfo FAR *FAR *ppTInfo )
    { return( E_NOTIMPL ); }
 
    STDMETHOD(GetTypeInfoCount)( unsigned int FAR *pctinfo )
    {
        return( E_NOTIMPL );
    }
 
    STDMETHOD(Invoke)( DISPID  dispIdMember,      
                       REFIID  riid,              
                       LCID  lcid,                
                       WORD  wFlags,              
                       DISPPARAMS FAR*  pDispParams,  
                       VARIANT FAR*  pVarResult,  
                       EXCEPINFO FAR*  pExcepInfo,  
                       unsigned int FAR*  puArgErr );
 
	// Override this methods if needed
virtual HRESULT OnReadyStateChange	(long newState )			{return S_OK;}
virtual HRESULT OnProgress		(long percentDone )		{return S_OK;}
virtual HRESULT FSCommand		(_bstr_t command,_bstr_t args )	{return S_OK;}
virtual HRESULT FlashCall		(_bstr_t xml_request )		{return S_OK;}

Код AS3:

//  CFlashWnd.cpp  (дополнение)
HRESULT STDMETHODCALLTYPE CFlashWnd::QueryInterface(REFIID iid, void** ppvObject)
{
	if (iid == IID_IUnknown)
	{
	  dwRefCount++;
	  *ppvObject = (void *)this;
	  return S_OK;
	}
	if (iid == DIID__IShockwaveFlashEvents)
	{
	  dwRefCount++;
	  *ppvObject = (void *)this;
	  return S_OK;
	}
	return E_NOINTERFACE;
}
 
ULONG STDMETHODCALLTYPE CFlashWnd::AddRef()
{
	dwRefCount++;
	return dwRefCount;
}
 
ULONG STDMETHODCALLTYPE CFlashWnd::Release()
{
	dwRefCount--;
	return dwRefCount;
}
HRESULT CFlashWnd::Invoke(
                            DISPID  dispIdMember,      
                            REFIID  riid,              
                            LCID  lcid,                
                            WORD  wFlags,              
                            DISPPARAMS FAR*  pDispParams,  
                            VARIANT FAR*  pVarResult,  
                            EXCEPINFO FAR*  pExcepInfo,  
                            unsigned int FAR*  puArgErr )
{
    if (!pDispParams)
        return E_POINTER;
 
    if (pDispParams->cNamedArgs != 0)
        return DISP_E_NONAMEDARGS;
 
    HRESULT hr = DISP_E_MEMBERNOTFOUND;
    switch (dispIdMember)
    {
	case 0xC5:// ExternalInterface call
		return FlashCall(pDispParams->rgvarg[0].bstrVal);
		break;
	case 0x96:// fscommand call
		return FSCommand(pDispParams->rgvarg[1].bstrVal, pDispParams->rgvarg[0].bstrVal );
		break;
	case 0x7A6: // OnProgress ???                 
		return OnProgress(pDispParams->rgvarg[0].intVal);
		break;
	case 0xFFFFFD9F: // OnReadyStateChange ???
		if(pDispParams->rgvarg[0].lVal == 4)
			isReady = TRUE;
		return OnReadyStateChange(pDispParams->rgvarg[0].lVal);
		break;
    }
 
    return  hr;
}
HRESULT CFlashWnd::SetReturnValue(WCHAR* xml_responce)
{
	if(isInit)
		return flash->SetReturnValue(xml_responce);
 
	return S_FALSE;
}
HRESULT CFlashWnd::AdviseSink()
{
	if(!isInit)
		return S_FALSE;
 
	IConnectionPointContainer*	lpConCont = NULL;
	HRESULT hr = flash->QueryInterface(IID_IConnectionPointContainer, (void**)&lpConCont);
	if (hr != S_OK)
		return hr;
 
	hr = lpConCont->FindConnectionPoint(DIID__IShockwaveFlashEvents, &lpConPoint);
	lpConCont->Release();
	lpConCont = NULL;
	if (hr != S_OK)
		return hr;
 
	hr = lpConPoint->Advise(this, &dwConPointID);
	return hr;
}

Код AS3:

#pragma once
#include "flashwnd.h"
 
class MyFlash :
	public CFlashWnd
{
private:
	void init();
public:
	MyFlash (void){ init();};
	~MyFlash(void){};
	HRESULT FlashCall (_bstr_t xml_request );
};

Код AS3:

#include "MyFlash.h"
 
void MyFlash::init()
{	
	WCHAR ver[16]={0};
	GetInstallVersion(ver);
	CreateHostWindow();
	SetWindowText(ver);
	SetWindowSize(550,600);
	CenterWindow();
	CreateInstance();
	AdviseSink();
	AttachControl();
 
	WCHAR buf[MAX_PATH]={0};
	::GetCurrentDirectory(MAX_PATH,buf);
    	lstrcat(buf,L"\\..\\common\\movie.swf");
	LoadMovie(buf);
 
}
 
HRESULT MyFlash::FlashCall (_bstr_t xml_request)
{
	// TODO: handle request here
	SetReturnValue(L”<string> Hello!</string>”);
    	return S_OK;
}