利用PBFunc扩展函数进行Http的操作时，需要对n_pbfunc_http的以下几个函数进行参数设置：
of_set_URL(...)//要进行GET或POST的url，必须
of_set_ContentType（...）//设置Content-Type，可选
of_post(...)、of_get(...)//根据需要选择post操作还是get操作
如果需要utf-8编码转换的请用n_pbfunc_encode对象中的of_str2utf8函数
下面以http://www.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx?op=getCountryCityByIp这个来获取IP所在地的webservice来讲解GET和POST操作
- GET操作
在浏览器中输入http://www.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx?op=getCountryCityByIp，页面加载完后，在页面的HTTP GET里面中看到：
GET /WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp?theIpAddress=string HTTP/1.1
Host: www.webxml.com.cn
这就是我们需要调用的信息
我们只需要将Host附加到GET对应的/WebServices/....之前，并在最前面增加http://，调用代码如下：
n_pbfunc_http lnv_http
lnv_http.of_clear()//清空参数 n_pbfunc_encode lnv_encode
lnv_http.of_set_URL("http://www.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp?theIpAddress=136.213.185.177") Blob lblb_data
string ls_error
IF lnv_http.of_Get(lblb_data,ls_error) Then
string gbkData
gbkData = lnv_encode.of_utf8ToGbk(lblb_data)//由于返回来的是utf-8编码，直接显示中文会乱码
MessageBox("Http Get返回",gbkData)
Else
MessageBox("提示","执行失败")
End IF
调用成功后返回
<?xml version="1.0" encoding="utf-8"?> <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://WebXml.com.cn/"> <string>136.213.185.177</string> <string>美国 </string> </ArrayOfString>
- POST操作
同样道理，在页面的HTTP POST里面中看到：
POST /WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp HTTP/1.1
Host: www.webxml.com.cn
Content-Type: application/x-www-form-urlencoded
Content-Length: length theIpAddress=string
Content-Length，这个参数忽略，将Host附加到POST对应的/WebServices/....之前，并在最前面增加http://，调用of_set_ContentType来设置Content-Type，of_add_form设置theIpAddress的参数值，调用代码如下：
n_pbfunc_http lnv_http
lnv_http.of_clear()//清空参数
lnv_http.of_set_URL("http://www.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp")
lnv_http.of_set_ContentType("application/x-www-form-urlencoded") n_pbfunc_encode lnv_encode
blob utf8
utf8= lnv_encode.of_str2utf8("136.213.185.177")
lnv_http.of_add_form("theIpAddress",utf8) Blob lblb_data
string ls_error
IF lnv_http.of_post(lblb_data,ls_error) Then string gbkData
gbkData = lnv_encode.of_utf8ToGbk(lblb_data)//由于返回来的是utf-8编码，直接显示中文会乱码
MessageBox("提示",gbkData)
Else
MessageBox("提示","执行失败")
End IF
调用成功后返回的结果与GET一样，也可以使用该页面上面是SOAP操作，有兴趣的可以自行试验（参考下载demo中w_http中ws_*按钮代码）
Post的demo代码，参考w_http窗体