Sample code for 30+ languages & platforms
Delphi DLL

Send POST to Bradesco Platform with Billing Ticket for Registration

See more HTTP Misc Examples

Sends a POST request to the Bradesco platform containing the JSON data of the Billing Ticket for registration.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL
Delphi DLL 
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, HttpRequest, JsonObject, Cert, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
json: HCkJsonObject;
cert: HCkCert;
crypt: HCkCrypt2;
sigBase64: PWideChar;
url: PWideChar;
req: HCkHttpRequest;
http: HCkHttp;
resp: HCkHttpResponse;

begin
success := False;

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

// First build the JSON containing the data to be sent.

// {
// "nuCPFCNPJ":"12668",
// "filialCPFCNPJ":"1",
// "ctrlCPFCNPJ":"59",
// "cdTipoAcesso":"2",
// "idProduto":"9",
// "nuNegociacao":"262200000000005577",
// "nuCliente":"SEU_NUM_CLIENTE",
// "dtEmissaoTitulo":"21.09.2016",
// "dtVencimentoTitulo":"21.09.2016",
// "vlNominalTitulo":"888888",
// "cdEspecieTitulo":"2",
// "nomePagador":"NOME DO PAGADOR",
// "logradouroPagador":"ENDERECO DO PAGADOR",
// "nuLogradouroPagador":"1145",
// "complementoLogradouroPagador":"APTO 34",
// "cepPagador":"5588",
// "complementoCepPagador":"1",
// "bairroPagador":"BAIRRO PAGADOR",
// "municipioPagador":"MUNICIPIO PAGADOR",
// "ufPagador":"SP",
// "cdIndCpfcnpjPagador":"2",
// "nuCpfcnpjPagador":"12668000159",
// "endEletronicoPagador":"PAGADOR@BRADESCO.COM.BR",
// "nomeSacadorAvalista":"NOME SACADOR AVALISTA",
// "logradouroSacadorAvalista":"ENDERECO SACADOR AVALISTA",
// "nuLogradouroSacadorAvalista":"5555",
// "complementoLogradouroSacadorAvalista":"BLOCO 23",
// "cepSacadorAvalista":"6182",
// "complementoCepSacadorAvalista":"160",
// "bairroSacadorAvalista":"BAIRRO SACADOR AVALISTA",
// "municipioSacadorAvalista":"MUNICIPIO SACADOR AVALISTA",
// "ufSacadorAvalista":"SP",
// "cdIndCpfcnpjSacadorAvalista":"2",
// "nuCpfcnpjSacadorAvalista":"12668000159",
// "endEletronicoSacadorAvalista":"SACADOR@BRADESCO.COM.BR",
// }
// 

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'nuCPFCNPJ','12668');
CkJsonObject_UpdateString(json,'filialCPFCNPJ','1');
CkJsonObject_UpdateString(json,'ctrlCPFCNPJ','59');
CkJsonObject_UpdateString(json,'cdTipoAcesso','2');
CkJsonObject_UpdateString(json,'idProduto','9');
CkJsonObject_UpdateString(json,'nuNegociacao','262200000000005577');
CkJsonObject_UpdateString(json,'nuCliente','SEU_NUM_CLIENTE');
CkJsonObject_UpdateString(json,'dtEmissaoTitulo','21.09.2016');
CkJsonObject_UpdateString(json,'dtVencimentoTitulo','21.09.2016');
CkJsonObject_UpdateString(json,'vlNominalTitulo','888888');
CkJsonObject_UpdateString(json,'cdEspecieTitulo','2');
CkJsonObject_UpdateString(json,'nomePagador','NOME DO PAGADOR');
CkJsonObject_UpdateString(json,'logradouroPagador','ENDERECO DO PAGADOR');
CkJsonObject_UpdateString(json,'nuLogradouroPagador','1145');
CkJsonObject_UpdateString(json,'complementoLogradouroPagador','APTO 34');
CkJsonObject_UpdateString(json,'cepPagador','5588');
CkJsonObject_UpdateString(json,'complementoCepPagador','1');
CkJsonObject_UpdateString(json,'bairroPagador','BAIRRO PAGADOR');
CkJsonObject_UpdateString(json,'municipioPagador','MUNICIPIO PAGADOR');
CkJsonObject_UpdateString(json,'ufPagador','SP');
CkJsonObject_UpdateString(json,'cdIndCpfcnpjPagador','2');
CkJsonObject_UpdateString(json,'nuCpfcnpjPagador','12668000159');
CkJsonObject_UpdateString(json,'endEletronicoPagador','PAGADOR@BRADESCO.COM.BR');
CkJsonObject_UpdateString(json,'nomeSacadorAvalista','NOME SACADOR AVALISTA');
CkJsonObject_UpdateString(json,'logradouroSacadorAvalista','ENDERECO SACADOR AVALISTA');
CkJsonObject_UpdateString(json,'nuLogradouroSacadorAvalista','5555');
CkJsonObject_UpdateString(json,'complementoLogradouroSacadorAvalista','BLOCO 23');
CkJsonObject_UpdateString(json,'cepSacadorAvalista','6182');
CkJsonObject_UpdateString(json,'complementoCepSacadorAvalista','160');
CkJsonObject_UpdateString(json,'bairroSacadorAvalista','BAIRRO SACADOR AVALISTA');
CkJsonObject_UpdateString(json,'municipioSacadorAvalista','MUNICIPIO SACADOR AVALISTA');
CkJsonObject_UpdateString(json,'ufSacadorAvalista','SP');
CkJsonObject_UpdateString(json,'cdIndCpfcnpjSacadorAvalista','2');
CkJsonObject_UpdateString(json,'nuCpfcnpjSacadorAvalista','12668000159');
CkJsonObject_UpdateString(json,'endEletronicoSacadorAvalista','SACADOR@BRADESCO.COM.BR');

// Load out PFX file 
cert := CkCert_Create();
success := CkCert_LoadPfxFile(cert,'qa_data/pfx/cert_test123.pfx','test123');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

crypt := CkCrypt2_Create();
success := CkCrypt2_SetSigningCert(crypt,cert);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;

// Use SHA-256 within the signing..
CkCrypt2_putHashAlgorithm(crypt,'sha256');

// Use no authenticated attributes
CkCrypt2_putSigningAttributes(crypt,'{}');

CkJsonObject_putEmitCompact(json,True);
sigBase64 := CkCrypt2__opaqueSignStringENC(crypt,CkJsonObject__emit(json));
if (CkCrypt2_getLastMethodSuccess(crypt) = False) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;

// Next, we need to send a POST to the following URL where the body of the POST
// contains the binary PKCS7 signature (which embeds the JSON).
url := 'https://cobranca.bradesconetempresa.b.br/ibpjregistrotitulows/registrotitulohomologacao';

req := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
// This is strange because apparently the server wants a "text/xml" Content-Type,
// but the content in the body is not actually XML, it's binary PKCS7.
CkHttpRequest_putContentType(req,'text/xml');
CkHttpRequest_LoadBodyFromString(req,sigBase64,'utf-8');

// We don't actually pass the URL, we set the path here, and the domain is passed below..
CkHttpRequest_putPath(req,'/ibpjregistrotitulows/registrotitulohomologacao');

http := CkHttp_Create();
resp := CkHttpResponse_Create();
success := CkHttp_HttpSReq(http,'cobranca.bradesconetempresa.b.br',443,True,req,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response status code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));
Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkJsonObject_Dispose(json);
CkCert_Dispose(cert);
CkCrypt2_Dispose(crypt);
CkHttpRequest_Dispose(req);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);

end;