读取Internet数据

如果你需要通过PB来从Internet中读取一个数据,可以使用如下方法;
1.继承自internetresult建一个自定义物件,假设名称为 n_cst_internet,
2.在此新建的物件中,定义一个实例变量 string is_data,
3.重载此物件的internetdata函数,在其中使用如下语法:
   [integer internetdata(blob data)]

    is_data = string(data)
    RETURN 1

    注意:如果是pb10.0以上,因为字符集原因,需要将字符转换.
    Blob lbl_data
    lbl_data = Blob(data, EncodingANSI!)
     is_data = String(lbl_data, EncodingANSI!)

4.然后在我们自己的事件中写如下脚本:
integer li_rc
inet linet_main
n_cst_internet luo_data

linet_main = CREATE inet
luo_data = CREATE n_cst_internet

li_rc = linet_main.GetURL("http://www.163.com/index.htm ", luo_data)

IF li_rc = 1 THEN
   MessageBox("Data from 163", luo_data.is_data)
ELSE
   MessageBox("Data from 163", "Oops rc:" + string(li_rc))
END IF

DESTROY luo_data
DESTROY linet_main