This is some code we used to test out the calls with a .net connection.
The idea here it to pass the string in TEXT and have the .net code send back
the words 3 and 5 as specified in the TEXT variable. Simple test to see
that we get data back and forth.
hth
val=""
reoptVar=""
wreoptVar=""
reoptVar<1>="PROXY_NAME"
reoptVar<2>="PROXY_PORT"
reoptVar<3>="VERSION"
reoptVar<4>="BUFSIZE"
reoptVar<5>="AUTHENTICATE"
reoptVar<6>="HEADERS"
* val<3>="1.1"
wreoptVar<1>="PROXY_NAME"
wreoptVar<2>="PROXY_PORT"
wreoptVar<3>="VERSION"
wreoptVar<4>="BUFSIZE"
wreoptVar<5>="AUTHENTICATE"
wreoptVar<6>="HEADERS"
TEXT =
'THIS':'~':'IS':"~":'THE':"~":'text':"~":'for':"~":'the':"~":'test':'|':'3':
"~":'5'
CRT 'TEXT ':TEXT
FOR I = 1 TO 6
RESULT=setHTTPDefault(wreoptVar<I>,val<I>)
NEXT I
LIMIT = DCOUNT(reoptVar,@FM)
FOR I = 1 TO LIMIT
RESULT=getHTTPDefault(reoptVar<I>,val)
NEXT I
RESULT=getHTTPDefault(reoptVar<I>,val)
RHANDLE=""
RESULT=createRequest("http://999.999.999.999:8081/shipping.asmx/GetFreight";,
"POST",RHANDLE)
CRT 'Create result ':RESULT
CRT 'Add result ':RESULT
RESULT=submitRequest(RHANDLE,"5000","AmtIn=":TEXT,RHEAD,RDATA,RSTAT)
CRT 'Submit ':RESULT
X= ISNULL(RHANDLE)
IF X THEN
CRT 'RHANDLE IS NULL '
END ELSE
CRT 'RHANDLE NOT NULL'
END
PRINT "RHEAD ":RHEAD
PRINT "RDATA "
CRT RDATA
CRT "RDATA END"
PRINT "RSTAT ":RSTAT
RETURN
END
Tom Dodds
[EMAIL PROTECTED]
630-235-2975
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nancy Fisher
Sent: Thursday, September 22, 2005 11:09 AM
To: [email protected]
Subject: [U2] http api example
Does anyone know where I can get some examples of CallHttp API in a basic
program?
The Socket API in Basic Ext is great as is the SOAP example at the U2
Website.....
UniVerse 10.1.11 / Windows 2003
Thanks,
Nancy
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
