662
社区成员
发帖
与我相关
我的任务
分享
iinet_base = CREATE inet
lobj_nif = CREATE n_ir
ls_url = 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx/getWeatherbyCityName'
ls_args = 'theCityName=54511'
lblb_args = Blob(ls_args)
ll_length = Len(lblb_args)
ls_header = "Content-Type: application/x-www-form-urlencoded~n~n" + "Content-Length: " + String( ll_length ) + "~n~n"
messagebox('', ls_header)
li_rc = iinet_base.PostURL(ls_url, lblb_args, ls_header,lobj_nif)
If li_rc <> 1 Then
messagebox('', 'Web方法调用出错')
return
End If
ls_json = String(ret_data,EncodingUTF8!)
messagebox('', ls_json)