void vmsFlashHelper::SaveFlashMovies_noframes(IHTMLDocument2Ptr spDoc, LPCSTR pszFolder)
{
USES_CONVERSION;
if (spDoc == NULL)
return;
IHTMLElementCollectionPtr spAll;
HRESULT hr = spDoc->get_all(&spAll);
if (SUCCEEDED(hr) && spAll != NULL)
{
CComVariant vTagName ("OBJECT");
IDispatchPtr spTagsDisp;
hr = spAll->tags (vTagName, &spTagsDisp);
if (SUCCEEDED(hr) && spTagsDisp != NULL)
{
IHTMLElementCollectionPtr spTags (spTagsDisp);
if (spTags)
{
long nCnt;
hr = spTags->get_length(&nCnt);
if (SUCCEEDED(hr))
{
for (long i = 0; i < nCnt; i++)
{
CComVariant varIdx;
V_VT(&varIdx) = VT_I4;
V_I4(&varIdx) = i;
IDispatchPtr spTagDisp;
hr = spTags->item(varIdx, varIdx, &spTagDisp);
if (SUCCEEDED(hr) && spTagDisp != NULL)
{
IHTMLObjectElementPtr spObject(spTagDisp);
if (spObject != NULL)
{
BSTR bstrClassID = NULL;
hr = spObject->get_classid(&bstrClassID);
if (SUCCEEDED(hr) && bstrClassID)
{
fsString strClassID = W2A (bstrClassID);
SysFreeString (bstrClassID);
if (lstrcmpi (strClassID, "CLSID:D27CDB6E-AE6D-11CF-96B8-444553540000") == 0)
{
IDispatchPtr spObj;
spObject->get_object (&spObj);
IShockwaveFlashPtr spFlash (spObj);
if (spFlash != NULL)
{
BSTR bstr;
spFlash->get_Movie (&bstr);
SysFreeString (bstr);
}
}
}
}
}
}
}
}
}
}
CComVariant vTagName ("EMBED");
IDispatchPtr spTagsDisp;
hr = spAll->tags(vTagName, &spTagsDisp);
if (SUCCEEDED(hr) && spTagsDisp != NULL)
{
IHTMLElementCollectionPtr spTags(spTagsDisp);
if (spTags != NULL)
{
long nCnt;
hr = spTags->get_length(&nCnt);
if (SUCCEEDED(hr))
{
for (long i = 0; i < nCnt; i++)
{
CComVariant varIdx;
V_VT(&varIdx) = VT_I4;
V_I4(&varIdx) = i;
IDispatchPtr spTagDisp;
hr = spTags->item(varIdx, varIdx, &spTagDisp);
if (SUCCEEDED(hr) && spTagDisp != NULL)
{
IHTMLEmbedElementPtr spObject(spTagDisp);
if (spObject != NULL)
{
IShockwaveFlashPtr spFlash (spObject);
if (spFlash != NULL)
{
BSTR bstrSrc = NULL;
hr = spObject->get_src(&bstrSrc);
if (SUCCEEDED(hr) && bstrSrc)
{
SysFreeString (bstrSrc);
}
}
}
}
}
}
}
}
}
