Delphi ActiveX

TicketBAI -- Send HTTP POST

See more TicketBAI Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
sbXml: TChilkatStringBuilder;
json: TChilkatJsonObject;
url: WideString;
resp: TChilkatHttpResponse;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

success := http.SetSslClientCertPfx('your.pfx','pfx_password');
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Get the XML we wish to send in the body of the request.
sbXml := TChilkatStringBuilder.Create(Self);
success := sbXml.LoadFile('qa_data/payload.xml','utf-8');
if (success = 0) then
  begin
    Memo1.Lines.Add('Failed to load XML that is to be the HTTP request body');
    Exit;
  end;

// 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

json := TChilkatJsonObject.Create(Self);
json.UpdateString('con','LROE');
json.UpdateString('apa','1.1');
json.UpdateString('inte.nif','número de identificación fiscal');
json.UpdateString('inte.nrs','nombre o Razón social');
json.UpdateString('inte.ap1','primer apellido');
json.UpdateString('inte.ap2','segundo apellido');
json.UpdateString('drs.mode','140');
json.UpdateString('drs.ejer','ejercicio');

// Add required headers...
http.SetRequestHeader('eus-bizkaia-n3-version','1.0');
http.SetRequestHeader('eus-bizkaia-n3-content-type','application/xml');
http.SetRequestHeader('eus-bizkaia-n3-data',json.Emit());

url := 'https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena';
resp := TChilkatHttpResponse.Create(Self);
http.UncommonOptions := 'SendGzipped';
success := http.HttpSb('POST',url,sbXml.ControlInterface,'utf-8','application/octet-stream',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

http.ClearHeaders();

Memo1.Lines.Add('response status code: ' + IntToStr(resp.StatusCode));

// Examine the response (it is already decompressed)
Memo1.Lines.Add('response body:');
Memo1.Lines.Add(resp.BodyStr);
end;