HTTP GET 例子

kjgmj

''
'' 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 请在此下载