INET控件，geturl()

INET控件可以模拟向INTERNET以GET或POST形式发送请求,并且可能得到请求返回的页面内容,它需要与INTERRNETESULT控件使用.这两个控件都是不可视的,帮助文件写得并不很详细,正确使用这两个控件需要先对这两个控件派生两个标准类,再程序中再实例化使用.

 

NEW一个STANDARD CLASS,选择INET,保存成n_inet

NEW一个STANDARD CLASS,选择INTERNETRESULT,在INTERNETDATA函数中写上  messagebox('返回结果',string(data)),保存成n_ir

下面就试下,如下脚本

n_inet ln_inet

n_ir ln_ir

ln_inet = create n_inet

ln_ir = create n_ir

integer li_ret

li_ret = n_inet.geturl('http://www.china-puer.cn/list.asp?id=1450',ln_ir)

if li_ret <1 then messagebox('发生错误',string(li_ret))