VC中调用XMLHTTP对象访问远程数据的代码计算机二级考试

文章作者 100test 发表时间 2009:06:15 14:58:35
来源 100Test.Com百考试题网

　　大家一起来学习一下，代码如下：
　　//这里是DLL入口
　　#import "C:\WINDOWS\system32\msxml.dll"
　　#import "C:\WINDOWS\system32\msxml2.dll"
　　using namespace MSXML2.
　　HRESULT ComInit().
　　#include "stdio.h"
　　int APIENTRY WinMain(HINSTANCE hInstance,
　　HINSTANCE hPrevInstance,
　　LPSTR lpCmdLine,
　　int nCmdShow)
　　{
　　ComInit(). //Examda提示: 调用下面初始化COM的函数
　　IXMLHTTPRequestPtr xmlrequest. //定义变量
　　xmlrequest.CreateInstance("Msxml2.XMLHTTP").
　　xmlrequest->.open(_bstr_t("GET"),_bstr_t("http://www.baidu.com/s/index.asp?wd=vc Com&.tn=site888_1_pg&.cl=3&.ie=utf-8"),_variant_t("false")).
　　xmlrequest->.send().
　　BSTR bstrbody.
　　xmlrequest->.get_responseText(&.bstrbody).
　　_bstr_t bstrtbody(bstrbody).
　　MessageBox(0, (LPCTSTR)bstrtbody, "OK", MB_OK).
　　return 0.
　　}
　　//这里是初始化COM
　　HRESULT ComInit()
　　{
　　HRESULT hr = S_OK.
　　if FAILED(CoInitialize(NULL))
　　{
　　CoUninitialize().
　　hr = E_UNEXPECTED.
　　}
　　return hr.
　　} http://ks.100test.com