云外归鸟工作室网站

标题: HTTP GET 例子 [打印本页]

作者: kjgmj 时间: 2011-1-19 11:09
标题: HTTP GET 例子
本帖最后由 kjgmj 于 2011-1-19 11:50 编辑

''
'' HTTP GET example, using MSXML2
''
#定义 UNICODE
#引用 "disphelper/disphelper.bi"
DISPATCH_OBJ(objHTTP)
变量为字符型指针 szResponse
dhInitialize( TRUE )
dhToggleExceptions( TRUE )
dhCreateObject( "MSXML2.XMLHTTP", NULL, @objHTTP )
dhCallMethod( objHTTP, ".Open(%s, %s, %b)", "GET", "http://site.baidu.com/", FALSE )
dhCallMethod( objHTTP, ".Send" )
dhGetValue( "%s", @szResponse, objHTTP, ".ResponseText" )
输出 "Response: "; *szResponse
''dhFreeString(szResponse)
SAFE_RELEASE( objHTTP )
dhUninitialize( TRUE )

使用了disphelper.rar 请在此下载

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)