Hej
Den har jeg også spørgsmål til.
Jeg har lavet vedlagte kode - for at sende REST kommandoer til en hjemmeside.
Men jeg evner tilsyneladende ikke at få noget kode sendt over til siden.
Hvad gør jeg galt?
Det skal siger at når jeg kalder den korrekte side får jeg et "Hello Palle" tilbage. :-)
MVH Palle
STR 12 &HDOC
STR 80 &HR
STR 12 &HXML
STR 12 &BYTES
STR 999 &DATASTR
SET &HDOC = COMCreate(0, 'MSXML2.XMLHTTP', '', 0)
IF (&HDOC <> '') THEN
// Setup the HTTP
SET COMPush(&HDOC, &HDOC)
SET COMPushVariant(&HDOC, 'VT_BSTR', 'GET')
SET COMPushVariant(&HDOC, 'VT_BSTR', "http://test.XXXX.dk/echo.php")
SET COMPushVariant(&HDOC, 'VT_BOOL', '0')
SET &HR = COMInvoke(&HDOC, 'Open', 3, 0)
SET COMPush(&HDOC, &HDOC)
SET COMPushVariant(&HDOC, 'VT_BSTR', '<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '<request>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '<company>99999999<\/company>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '<user>pas</user>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '<password>9999999999</password>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '</request>')
SET COMPushVariant(&HDOC, 'VT_BSTR', '}')
SET COMPushVariant(&HDOC, 'VT_BSTR', '}')
// Send the request
SET COMPush(&HDOC, &HDOC)
SET &HR = COMInvoke(&HDOC, 'Send', 0, 0)
// Get the content
SET COMPush(&HDOC, &HDOC)
SET &HR = COMGet(&HDOC, 'responseText', 0)
IF (&HR <> '') THEN
PRINT &HR
ELSE
SET &HXML = COMTop(&HDOC,1)
//Peek
// Get the length
PRINT "LEN="+COMCmd(&HDOC, 'BSTR.Length', 1, 1)
// Set the limit
SET COMPushVariant(&HDOC, 'VT_UI4', "500")
SET COMCmd(&HDOC, 'BSTR.SetLimit', 1, 1)
// Rewind to beginning
SET COMPush(&HDOC, &HXML)
SET COMPushVariant(&HDOC, 'VT_UI4', "0")
SET COMCmd(&HDOC, 'BSTR.SetOffset', 2, 0)
// Loop through the string
SET COMPush(&HDOC, &HXML)
SET &BYTES = COMCmd(&HDOC, 'BSTR.GetNext', 1, 1)
SET &DATASTR = COMTopVariant(&HDOC, 2)
WHILE (&BYTES <> '0')
PRINT "BYTES="+&BYTES+" DATASTR=!"+&DATASTR+"!"
SET COMPush(&HDOC, &HXML)
SET &BYTES = COMCmd(&HDOC, 'BSTR.GetNext', 1, 1)
SET &DATASTR = COMTopVariant(&HDOC, 2)
END
ENDIF
SET COMRelease(&HDOC)
ELSE
PRINT "MSXML Create Error"
PRINT COMCmd('', 'Result.COMCreate', 0, 0)
ENDIF
pause
