-- 作者：gistao
-- 发布时间：3/14/2006 4:25:00 PM
-- 高手请进!!
我想做个web services的客户端,可是老是不对,谁帮我看看 ISoapSerializerPtr Serializer;
ISoapReaderPtr Reader;
ISoapConnectorPtr Connector;
HRESULT hr;
//连接到服务
hr=Connector.CreateInstance(__uuidof(HttpConnector30));
Connector->Property["EndPointURL"] =
"http://192.168.0.104/TempConvert3/TempConvert3.asmx"; hr=Connector->Connect();
//开始这消息
Connector->Property["SoapAction"]= "http://Walkthrough/XmlWebServices/ConvertTemperature";//具体操作该如何写?
hr=Connector->BeginMessage();
//创建SoapSerializer实例
hr=Serializer.CreateInstance(__uuidof(SoapSerializer30));
//连接SoapSerializer实例和connector的实例的输入流
hr=Serializer->Init(_variant_t((IUnknown*)Connector->InputStream));
//建立soap消息
hr=Serializer->StartEnvelope("","","");
hr=Serializer->StartBody("");
hr=Serializer->StartElement("ConvertTemperature","http://Walkthrough/XmlWebServices/","",""); //这是本地的Web Services,实际中要指定命名空间
//hr=Serializer->StartElement("NumberTwo","","","");
hr=Serializer->WriteString("10");
hr=Serializer->EndElement();
//hr=Serializer->EndElement();
hr=Serializer->EndBody();
hr=Serializer->EndEnvelope();
//发消息给xml web services
hr=Connector->EndMessage();
//读反映
hr=Reader.CreateInstance(__uuidof(SoapReader30));
//连接reader和connector的输出流
hr=Reader->Load(_variant_t((IUnknown*)Connector->OutputStream), "");
//显示结果
m_strOut=(char*) Reader->RpcResult->text; 我调试程序后.发现到hr=Reader->Load(_variant_t((IUnknown*)Connector->OutputStream), "");有错,,,大侠,帮帮我
|