HTTP GET 例子

kjgmj · 发表于 2011-1-19 11:09:14

本帖最后由 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 GET 例子