powerbuilder 9使用inter对象操作http协议

一、访问对象 inet

二、数据接收对象 internetresult

internetdata函数中保存网络返回的数据

"iblob_data = data"

三、发送数据有2种协议，可以使用posturl,geturl

Blob lblb_args

String ls_headers

String ls_url

String ls_args

long ll_length

integer li_rc

 

li_rc = GetContextService( "Internet", iinet_base )

IF li_rc = 1 THEN

   ir = CREATE n_ir

   ls_url = "http://localhost/Site/testurl.stm?"

   ls_args = "user=MyName&pwd=MyPasswd"

   lblb_args = Blob( ls_args )

   ll_length = Len( lblb_args )

   ls_header = "Content-Type: " + &

      "application/x-www-form-urlencoded~n" + &

      "Content-Length: " + String( ll_length ) + "~n~n"

   li_rc = iinet.PostURL( ls_url, lblb_args, &

      ls_header, ir )

END IF