Webservice using https

// Using the Base 64 encode with streams 
// to generate the password 
int:= PassOutStr.WRITETEXT('xxxxxx:xxxxxxx');
Base64Encode(PassInStr, PassOutStr1);
int:= PassInStr1.READTEXT(Passtxt);
Passtxt := 'Authorization: Basic '+Passtxt;

//the request XMLport fills the BLOB with the XML message 
CLEAR(XP1); 
XP1.SETDESTINATION(OutStr1);
XP1.EXPORT;

//load the message into the XML automation variable 
IF ISCLEAR(XMLDoc) THEN 
  CREATE(XMLDoc); 
XMLDoc.load(InStr1);

//this is for diagnostics only, so you can see what the XMLport actually produced 
XMLDoc.save('C:\XMLRequest.xml');

//create the HTTP connector 
IF ISCLEAR(XMLHttpConn) THEN 
  CREATE(XMLHttpConn); 

//tell it where the web service is located 
XMLHttpConn.open('POST', 'https://www.xxx.xx', FALSE);

//set some values in the request header depending on what the service requires 
XMLHttpConn.setRequestHeader('Content-Type','text/xml');
XMLHttpConn.setRequestHeader('Authorization', Passtxt);

//actually send the message 
XMLHttpConn.send(XMLDoc); 

//tell us if we got an error (it is 200 because the response definition said "200 OK") 
IF XMLHttpConn.status <> 200 THEN BEGIN
  MESSAGE('Status %1 2%',XMLHttpConn.status,XMLHttpConn.statusText); 
  EXIT;
END;

IF ISCLEAR(XMLDoc) THEN 
  CREATE(XMLDoc); 
XMLDoc.load(XMLHttpConn.responseXML);

//this is for diagnostics only, so you can see what you got back 
XMLDoc.save('C:\XMLResponse1.xml');