DEFINE_GUID(CLSID_WaveParser,
0xd51bd5a1, 0x7548, 0x11cf, 0xa5, 0x20, 0x0, 0x80, 0xc7, 0x7e, 0xf5, 0x8a);

#define SOURCE_FILE L"c:\\stuff\\6ch_96khz.wav"
#define OUTPUT_FILE L"C:\\stuff\\6ch_96khz.wma"
#define PRO_FILE _T("C:\\WMMedia\\Encoder\\Profiles\\6.1_96khz_profb.prx")
#define MAX_PROFILE_SIZE_W 4096



HRESULT FindFilter(LPWSTR FilterName, const GUID Category, IBaseFilter **ppFilter)
{
	HRESULT hr = S_OK;
	IEnumMoniker *pEnumCat = NULL;

	ICreateDevEnum *pSysDevEnum = NULL;
	if ( SUCCEEDED(hr) )
		hr = ::CoCreateInstance( CLSID_SystemDeviceEnum, NULL, 
	CLSCTX_INPROC, IID_ICreateDevEnum, (LPVOID *)&pSysDevEnum );

	if ( SUCCEEDED(hr) )
		hr = pSysDevEnum->CreateClassEnumerator(Category, &pEnumCat, 0);

	if ( SUCCEEDED(hr) )
	{
		// Enumerate the monikers.
		IMoniker *pMoniker = NULL;
		ULONG cFetched; VFW_E_DDRAW_CAPS_NOT_SUITABLE;
		while(pEnumCat->Next(1, &pMoniker, &cFetched) == S_OK)
		{
			IPropertyBag *pPropBag = NULL;
			IPropertyBag2 *pPropBag2 = NULL;
			hr = pMoniker->BindToStorage(0, 0, IID_IPropertyBag2, (LPVOID *)&pPropBag2);
			if ( SUCCEEDED(hr) )
			{
				ULONG nProps;
				pPropBag2->CountProperties(&nProps);
				pPropBag2->Release();
			}

			hr = pMoniker->BindToStorage(0, 0, IID_IPropertyBag, (LPVOID *)&pPropBag);
			if ( SUCCEEDED(hr) )
			{
				// To retrieve the filter's friendly name, do the following:
				VARIANT varName;
				VARIANT var_CLSID;
				VARIANT var_FD;
				VARIANT var_guid;
				var_CLSID.vt = VT_BSTR;
				VariantInit(&varName);
				var_FD.vt = VT_UI1 | VT_ARRAY;
				var_FD.parray = 0;     // docs say to zero this
	            hr = pPropBag->Read(L"GUID", &var_guid, NULL);
				hr = pPropBag->Read(L"CLSID", &var_CLSID, NULL);
				hr = pPropBag->Read(L"FriendlyName", &varName, 0);
	            hr = pPropBag->Read(L"FilterData", &var_FD, NULL);

				if (SUCCEEDED(hr))
				{
					CString t;
					//t.Format("CLSID:%S Friendly:%S\n", var_CLSID.bstrVal, varName.bstrVal);
					//OutputDebugString(t);
					if ( lstrcmpW( varName.bstrVal, FilterName ) == 0 )
					{
						// To create an instance of the filter, do the following:
						hr = pMoniker->BindToObject(NULL, NULL, IID_IBaseFilter, (void**)ppFilter);
					}
				}
				VariantClear(&varName);
				pPropBag->Release();
			}
			pMoniker->Release();
		}
		pEnumCat->Release();
		pSysDevEnum->Release();
	}
	return hr;
}





// Build and run an encoding graph that converts a multichannel wave file to a WMA file
// using the WMA DMO Encoder.  The AudioTypeConvert filter is also used automatically 
// in this sample if the source file does not have a WAVEFORMATEXTENSIBLE structure.
// The AudioTypeConvert filter must be registered for that step to happen.
void BuildTheOtherGraph()
{
	HRESULT hr = S_OK;

	CComPtr<IGraphBuilder>							pGraph;
	CComPtr<IBaseFilter>							source;
	CComPtr<IBaseFilter>							splitter;
	CComPtr<IBaseFilter>							compressor;
	CComPtr<IBaseFilter>							asfWriter;
	CComQIPtr<IMediaControl>						control;
	CComQIPtr<IMediaEvent>							pEvent;

	hr = pGraph.CoCreateInstance(CLSID_FilterGraph);
	if ( pGraph )
	{
		control = pGraph;
		pEvent = pGraph;
	}
	
	hr = pGraph->AddSourceFilter(SOURCE_FILE, L"Source", &source);
	if ( SUCCEEDED(hr) )
		hr = pGraph->AddFilter( source, L"WAV Source" );

    hr = splitter.CoCreateInstance(CLSID_WaveParser);
	if ( SUCCEEDED(hr) )
		hr = pGraph->AddFilter( splitter, L"WAV Splitter" );

	hr = FindFilter(L"WMAudio Encoder DMO", CLSID_AudioCompressorCategory, &compressor);
	if ( SUCCEEDED(hr) )
	{
		hr = pGraph->AddFilter( compressor, L"WMA DMO Encoder" );
	}

	hr = asfWriter.CoCreateInstance(CLSID_WMAsfWriter);
	if ( SUCCEEDED(hr) )
		hr = pGraph->AddFilter( asfWriter, L"ASF Writer" );

	CComPtr<IPin> sourcepin;
	CComPtr<IPin> sin;  // splitter input
	CComPtr<IPin> sout0; // splitter output
	CComPtr<IPin> compin;  // compressor input
	CComPtr<IPin> compout; // compressor output

	source->FindPin(L"Output", &sourcepin);
	if (splitter)
	{
		// find the splitter input pin
		splitter->FindPin(L"input pin", &sin);
		if (sin)
		{
			// connect the WAV source to the WAV Splitter
			hr = pGraph->ConnectDirect( sourcepin, sin, NULL);
			if (hr == S_OK)
			{
				// find the splitter output pin
				splitter->FindPin(L"output", &sout0); 
			}
		}
	}

	if (sout0)
	{
		// find the pins for the WMA DMO filter
		hr = compressor->FindPin(L"in0", &compin);
		hr = compressor->FindPin(L"out0", &compout);

		// Connect the WAV Splitter output pin to the WMA Compressor.  We are not using ConnectDirect
		// because we want the AudioTypeConvert filter to be inserted inbetween to make the media type
		// WAVEFORMATEXTENSIBLE as the WMA DMO Compressor desires.
		hr = pGraph->Connect(sout0, compin);
	}

	{
		CComQIPtr<IConfigAsfWriter2>				pConfigWriter;
		CComPtr<IWMProfileManager>					pProfileManager;
		CComPtr<IWMProfile>							pProfile;

		hr = WMCreateProfileManager(&pProfileManager);
		WCHAR szProfile[MAX_PROFILE_SIZE_W];
		{
			// makes the assumption that the .prx file is Unicode
			CFile prof("C:\\WMMedia\\Encoder\\Profiles\\6.1_96khz_profb.prx", CFile::modeRead);
			UINT nBytesRead = prof.Read(szProfile, MAX_PROFILE_SIZE_W*2);
			szProfile[nBytesRead/2] = 0;
		}
		hr = pProfileManager->LoadProfileByData(szProfile, &pProfile);

		pConfigWriter = asfWriter;
		if (pConfigWriter)
		{
			hr = pConfigWriter->SetParam(AM_CONFIGASFWRITER_PARAM_DONTCOMPRESS, TRUE, 0);
			hr = pConfigWriter->ConfigureFilterUsingProfile(pProfile);

			CComPtr<IPin> writerPin;
			hr = asfWriter->FindPin(L"Audio Input 01", &writerPin);
			{
				CComQIPtr<IFileSinkFilter> pFileSink;
				pFileSink = asfWriter;
				// make sure the file isn't in use by a player or this will fail
				DeleteFileW(OUTPUT_FILE);
				if (pFileSink)
					hr = pFileSink->SetFileName(OUTPUT_FILE, NULL);
			}
			// connect the WMA Compressor to the ASF Writer
			hr = pGraph->ConnectDirect(compout, writerPin, NULL);
		}
	}

	// optionally add the graph to ROT - not much use unless you use the long sample
	//DWORD dwReg = 0;
	//hr = AddGraphToRot(pGraph, &dwReg);

	hr = control->Pause();
	hr = control->Run();
	long code;
	hr = pEvent->WaitForCompletion(20000, &code);

	//RemoveGraphFromRot(dwReg);

	return;
}