往CHtmlView控件寫HTML內容

CComQIPtr spDoc = m_WebPage.GetHtmlDocument();
HRESULT hr;
VARIANT *param = NULL;
SAFEARRAY *sfArray = NULL;
CComBSTR bstrHtml(strHtml);

sfArray = SafeArrayCreateVector(VT_VARIANT, 0, 1);
if (sfArray != NULL && spDoc != NULL)
{
hr = SafeArrayAccessData(sfArray,(LPVOID*)&param);
if (SUCCEEDED(hr))
{
param->vt = VT_BSTR;
param->bstrVal = bstrHtml;
hr = SafeArrayUnaccessData(sfArray);
if (SUCCEEDED(hr))
{
spDoc->clear();
hr = spDoc->write(sfArray);
if (SUCCEEDED(hr))
{
 bSuccess = TRUE;
}
}
}
}