vc2008连接WebService出现错误，希望得到大家帮助，多谢

vc2008连接WebService出现异常，希望得到大家帮助，谢谢
大家好，我想通过VC2008调用WebService来获取天气预报数据，但是有一部分代码在VC6.0下是正常的，在VC2008下出现异常，希望各位大牛能帮助我，谢谢。代码如下（其中注释掉的部分出现异常情况）：
void CWeatherData::GetWeatherbyCityName(char * CharStr)
{
    CoInitialize(NULL);
    ISoapSerializerPtr Serializer;
    ISoapReaderPtr Reader;
    ISoapConnectorPtr Connector;
    // Connect to the service
    if (FAILED(Connector.CreateInstance(__uuidof(HttpConnector30)))) // 创建对象
    {
        MessageBox(NULL,_T("创建失败"),_T("系统提示"),MB_OK);
    }
    Connector->Property["EndPointURL"] = (LPCTSTR)m_csWebUrl; // wsdl路径
    Connector->Connect();

    // Begin the message // 消息体
    Connector->Property["SoapAction"] = (LPCTSTR)_T("http://WebXml.com.cn/getWeatherbyCityName"); // 函数体参数
    Connector->BeginMessage();

    Serializer.CreateInstance(__uuidof(SoapSerializer30));
    Serializer->Init(_variant_t((IUnknown *)Connector->InputStream));
    // Bulid the SOAP Message
    Serializer->StartEnvelope("Soap","","");
    Serializer->StartBody("");
    Serializer->StartElement("getWeatherbyCityName","http://WebXml.com.cn/","","Soap"); // 函数处理
    Serializer->StartElement("theCityname","","","Soap");
    Serializer->WriteString((LPCTSTR)CharStr); // 参数处理
    Serializer->EndElement();
    Serializer->EndBody();
    
    MessageBox(NULL,_T("测试开始"),_T("系统提示"),MB_OK);
    //Serializer->EndEnvelope();
    MessageBox(NULL,_T("测试结束"),_T("系统提示"),MB_OK);

    //Connector->EndMessage();
    
    //**********************
    Reader.CreateInstance(__uuidof(SoapReader30));
    
    //Reader->Load(_variant_t((IUnknown*)Connector->OutputStream),_T("")); // 加载返回数据
    
    // 获取数据
    MSXML2::IXMLDOMDocumentPtr pDoc;
    MSXML2::IXMLDOMElementPtr xmlRoot;
    //HRESULT hr = pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument30));

    //pDoc->loadXML(Reader->GetRpcResult()->xml);

    //char * Temp;
    /*
    for (int i=0; i<pDoc->childNodes->Getitem(0)->childNodes->Getlength();i++)
    {
        //Temp = (char *)pDoc->childNodes->Getitem(0)->childNodes->Getitem(i)->Gettext();
       // CString csTest;
        //USES_CONVERSION;
        //csTest = A2W(Temp);
       // MessageBox(NULL,csTest,_T("系统提示"),MB_OK);
        //strcpy(strarray[i],Temp);
    }
    */
}
[解决办法]
http://blog.csdn.net/sha_jinhao/article/details/8589618