Sample code for 30+ languages & platforms
Visual FoxPro

SOAP Request to farmaclick.infarma.it

See more HTTP Misc Examples

Demonstrates how to make a SOAP HTTP request to the FCKLogin method of farmaclick.infarma.it.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loXml
LOCAL loHttp
LOCAL loResp
LOCAL loXmlResp

lnSuccess = 0

*  This example requires the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

*  --------------------------------------------------------------------------------
*  Also see Chilkat's Online WSDL Code Generator
*  to generate code and SOAP Request and Response XML for each operation in a WSDL.
*  --------------------------------------------------------------------------------

*  Here is an example of an HTTP POST Request we'll be sending:

*  POST /documento.php HTTP/1.1
*  Content-Type: text/xml;charset=UTF-8
*  SOAPAction: https://conexion.facto.cl/documento.php/emitirDocumento
*  
*  <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:api="http://api.farmaclick.infarma.it">
*     <soapenv:Header/>
*     <soapenv:Body>
*        <api:FCKLogin soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
*           <inBean xsi:type="urn:LoginInputBean" xmlns:urn="urn:BeanService">
*              <nomeTerminale xsi:type="soapenc:string" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">?</nomeTerminale>
*              <password xsi:type="soapenc:string" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">?</password>
*              <passwordSH xsi:type="soapenc:string" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">?</passwordSH>
*              <userName xsi:type="soapenc:string" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">?</userName>
*           </inBean>
*        </api:FCKLogin>
*     </soapenv:Body>
*  </soapenv:Envelope>

*  Use this online tool to generate code from sample XML: 
*  Generate Code to Create XML

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:api","http://api.farmaclick.infarma.it")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean",1,"xsi:type","urn:LoginInputBean")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean",1,"xmlns:urn","urn:BeanService")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|nomeTerminale",1,"xsi:type","soapenc:string")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|nomeTerminale",1,"xmlns:soapenc","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateChildContent("soapenv:Body|api:FCKLogin|inBean|nomeTerminale","?")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|password",1,"xsi:type","soapenc:string")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|password",1,"xmlns:soapenc","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateChildContent("soapenv:Body|api:FCKLogin|inBean|password","?")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|passwordSH",1,"xsi:type","soapenc:string")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|passwordSH",1,"xmlns:soapenc","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateChildContent("soapenv:Body|api:FCKLogin|inBean|passwordSH","?")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|userName",1,"xsi:type","soapenc:string")
loXml.UpdateAttrAt("soapenv:Body|api:FCKLogin|inBean|userName",1,"xmlns:soapenc","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateChildContent("soapenv:Body|api:FCKLogin|inBean|userName","?")

loHttp = CreateObject('Chilkat.Http')

*  Indicate we want to allow an empty header..
loHttp.UncommonOptions = "AllowEmptyHeaders"
loHttp.SetRequestHeader("SoapAction","")

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","http://webservice.unicospa.it:8181/Service.svc/FrontEndService/Farmaclick2010001FCKLogin",loXml.GetXml(),"utf-8","text/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loXml
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

*  A status code = 200 indicates success.
? "Response status code = " + STR(loResp.StatusCode)

loXmlResp = CreateObject('Chilkat.Xml')
loXmlResp.LoadXml(loResp.BodyStr)
? "Response body text:"
? loXmlResp.GetXml()

RELEASE loXml
RELEASE loHttp
RELEASE loResp
RELEASE loXmlResp