AutoIt Requires Chilkat v11.0.0+

TicketBAI -- Send HTTP POST

See more TicketBAI Examples

Demonstrates how to send a TicketBAI POST and get the response. AutoIt

Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

$bSuccess = $oHttp.SetSslClientCertPfx("your.pfx","pfx_password")
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

;  Get the XML we wish to send in the body of the request.
$oSbXml = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oSbXml.LoadFile("qa_data/payload.xml","utf-8")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load XML that is to be the HTTP request body" & @CRLF)
    Exit
EndIf

;  Build the following JSON

;  { 
;      "con": "LROE", 
;      "apa": "1.1", 
;      "inte": { 
;          "nif": "número de identificación fiscal", 
;          "nrs": "nombre o Razón social", 
;          "ap1": "primer apellido", 
;          "ap2": "segundo apellido" 
;      }, 
;      "drs": { 
;      "mode": "140", 
;      "ejer": "ejercicio" 
;      } 
;  }

;  Use this online tool to generate code from sample JSON: 
;  Generate Code to Create JSON

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("con","LROE")
$oJson.UpdateString("apa","1.1")
$oJson.UpdateString("inte.nif","número de identificación fiscal")
$oJson.UpdateString("inte.nrs","nombre o Razón social")
$oJson.UpdateString("inte.ap1","primer apellido")
$oJson.UpdateString("inte.ap2","segundo apellido")
$oJson.UpdateString("drs.mode","140")
$oJson.UpdateString("drs.ejer","ejercicio")

;  Add required headers...
$oHttp.SetRequestHeader "eus-bizkaia-n3-version","1.0"
$oHttp.SetRequestHeader "eus-bizkaia-n3-content-type","application/xml"
$oHttp.SetRequestHeader "eus-bizkaia-n3-data",$oJson.Emit()

Local $sUrl = "https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena"
$oResp = ObjCreate("Chilkat.HttpResponse")
$oHttp.UncommonOptions = "SendGzipped"
$bSuccess = $oHttp.HttpSb("POST",$sUrl,$oSbXml,"utf-8","application/octet-stream",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oHttp.ClearHeaders 

ConsoleWrite("response status code: " & $oResp.StatusCode & @CRLF)

;  Examine the response (it is already decompressed)
ConsoleWrite("response body:" & @CRLF)
ConsoleWrite($oResp.BodyStr & @CRLF)