HTTP Examples

Example 1:

 

Response

DIM

100

HostName

INIT

"tycho.usno.navy.mil"

ResourcePath

INIT

"/cgi-bin/timer.pl"

RichEdit

RICHEDITTEXT

 

.

 

 

 

CREATE

RichEdit=1:25:5:75,BdrStyle=2,Scrollbar=1

 

ACTIVATE

RichEdit

.

 

 

 

HTTP

HostName,ResourcePath,*Result=Response

 

SETPROP

RichEdit,Text=Response

.

 

 

 

LOOP

 

 

EVENTWAIT

 

 

REPEAT

 

 

This example uses HTTP to perform default GET access.

 

Example 2:

 

Response

DIM

100

HostName

INIT

"tycho.usno.navy.mil"

ResourcePath

INIT

"GET /cgi-bin/timer.pl HTTP/1.0",0x0D,0x0A,0x0D,0x0A

RichEdit

RICHEDITTEXT

 

.

 

 

 

CREATE

RichEdit=1:25:5:75,BdrStyle=2,Scrollbar=1

 

ACTIVATE

RichEdit

.

 

 

 

HTTP

HostName,ResourcePath,*Flags=1,*Result=Response

 

SETPROP

RichEdit,Text=Response

.

 

 

 

LOOP

 

 

EVENTWAIT

 

 

REPEAT

 

 

This example uses HTTP executing in raw command data mode.

 


PL/B Language Reference