Delphi ActiveX
Delphi ActiveX
Cerved API Entity Search
See more Cerved Examples
Perform searches on a Subject, known indifferently, the Fiscal Code, VAT number or Name, and to obtain basic information of the Subject.Chilkat Delphi ActiveX Downloads
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;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
dati_anagraficiId_soggetto: Integer;
dati_anagraficiDenominazione: WideString;
dati_anagraficiCodice_fiscale: WideString;
dati_anagraficiPartita_iva: WideString;
dati_anagraficiIndirizzoDescrizione: WideString;
dati_anagraficiIndirizzoCap: WideString;
dati_anagraficiIndirizzoCodice_comune: WideString;
dati_anagraficiIndirizzoDescrizione_comune: WideString;
dati_anagraficiIndirizzoCodice_comune_istat: WideString;
dati_anagraficiIndirizzoProvincia: WideString;
dati_anagraficiIndirizzoDescrizione_provincia: WideString;
dati_attivitaCodice_ateco: WideString;
dati_attivitaAteco: WideString;
dati_attivitaCodice_stato_attivita: WideString;
dati_attivitaFlag_operativa: Integer;
dati_attivitaCodice_rea: WideString;
dati_attivitaCompany_formCode: WideString;
dati_attivitaCompany_formDescription: WideString;
dati_attivitaCompany_formCompany_form_class: WideString;
dati_paEnte: Integer;
dati_paFornitore: Integer;
dati_paPartecipata: Integer;
dati_anagraficiDt_nascita: WideString;
peopleTotalNumber: Integer;
companiesTotalNumber: Integer;
i: Integer;
count_i: Integer;
begin
success := 0;
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := TChilkatHttp.Create(Self);
// Implements the following CURL command:
// curl -X GET \
// https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test \
// -H 'accept: application/json' \
// -H 'apikey: ********************************'
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
http.SetRequestHeader('accept','application/json');
// Note: Your apikey is your Consumer Key
http.SetRequestHeader('apikey','********************************');
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test',sbResponseBody.ControlInterface);
if (success = 0) then
begin
Memo1.Lines.Add(http.LastErrorText);
Exit;
end;
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());
respStatusCode := http.LastStatus;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(http.LastHeader);
Memo1.Lines.Add('Failed.');
Exit;
end;
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "peopleTotalNumber": 1,
// "companiesTotalNumber": 49,
// "companies": [
// {
// "dati_anagrafici": {
// "id_soggetto": 12207335,
// "denominazione": "ANGELANTONI TEST TECHNOLOGIES S.R.L. IN FORMA ABBREVIATA ATT S.R.L.",
// "codice_fiscale": "01234567890",
// "partita_iva": "01234567890",
// "indirizzo": {
// "descrizione": "LOCALITA' CIMACOLLE, 464",
// "cap": "06056",
// "codice_comune": "PG028",
// "descrizione_comune": "MASSA MARTANA",
// "codice_comune_istat": "054028",
// "provincia": "PG",
// "descrizione_provincia": "PERUGIA"
// }
// },
// "dati_attivita": {
// "codice_ateco": "265129",
// "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
// "codice_stato_attivita": "A",
// "flag_operativa": true,
// "codice_rea": "PG 272575",
// "company_form": {
// "code": "SR",
// "description": "SOCIETA' A RESPONSABILITA' LIMITATA",
// "company_form_class": "SC"
// }
// },
// "dati_pa": {
// "ente": false,
// "fornitore": true,
// "partecipata": false
// }
// },
// {
// "dati_anagrafici": {
// "id_soggetto": 1046896,
// "denominazione": "TEST INDUSTRY S.R.L.",
// "codice_fiscale": "01234567890",
// "partita_iva": "01234567890",
// "indirizzo": {
// "descrizione": "CORSO VENEZIA, 36",
// "cap": "20121",
// "codice_comune": "MI146",
// "descrizione_comune": "MILANO",
// "codice_comune_istat": "015146",
// "provincia": "MI",
// "descrizione_provincia": "MILANO"
// }
// },
// "dati_attivita": {
// "codice_ateco": "265129",
// "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
// "codice_stato_attivita": "A",
// "flag_operativa": true,
// "codice_rea": "MI 2579272",
// "company_form": {
// "code": "SR",
// "description": "SOCIETA' A RESPONSABILITA' LIMITATA",
// "company_form_class": "SC"
// }
// },
// "dati_pa": {
// "ente": false,
// "fornitore": true,
// "partecipata": false
// }
// },
// {
// "dati_anagrafici": {
// "id_soggetto": 300632,
// "denominazione": "ITW TEST AND MEASUREMENT ITALIA S.R.L.",
// "codice_fiscale": "01234567890",
// "partita_iva": "01234567890",
// "indirizzo": {
// "descrizione": "VIA AIRAUDA, 12",
// "cap": "10044",
// "codice_comune": "TO189",
// "descrizione_comune": "PIANEZZA",
// "codice_comune_istat": "001189",
// "provincia": "TO",
// "descrizione_provincia": "TORINO"
// }
// },
// "dati_attivita": {
// "codice_ateco": "265129",
// "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
// "codice_stato_attivita": "A",
// "flag_operativa": true,
// "codice_rea": "TO 379571",
// "company_form": {
// "code": "SU",
// "description": "SOCIETA' A RESPONSABILITA' LIMITATA CON UNICO SOCIO",
// "company_form_class": "SC"
// }
// },
// "dati_pa": {
// "ente": false,
// "fornitore": true,
// "partecipata": false
// }
// }
// ],
// "people": [
// {
// "dati_anagrafici": {
// "id_soggetto": 333333333,
// "denominazione": "ROBUSTELLI TEST ALESSANDRO",
// "dt_nascita": "08-22-1978",
// "codice_fiscale": "RBSSMMMMMMMMMMMM",
// "indirizzo": {
// "descrizione": "VIA ALESSANDRINI, 22",
// "cap": "26027",
// "codice_comune": "CR084",
// "descrizione_comune": "RIVOLTA D'ADDA",
// "codice_comune_istat": "019084",
// "provincia": "CR",
// "descrizione_provincia": "CREMONA"
// }
// }
// }
// ]
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
peopleTotalNumber := jResp.IntOf('peopleTotalNumber');
companiesTotalNumber := jResp.IntOf('companiesTotalNumber');
i := 0;
count_i := jResp.SizeOfArray('companies');
while i < count_i do
begin
jResp.I := i;
dati_anagraficiId_soggetto := jResp.IntOf('companies[i].dati_anagrafici.id_soggetto');
dati_anagraficiDenominazione := jResp.StringOf('companies[i].dati_anagrafici.denominazione');
dati_anagraficiCodice_fiscale := jResp.StringOf('companies[i].dati_anagrafici.codice_fiscale');
dati_anagraficiPartita_iva := jResp.StringOf('companies[i].dati_anagrafici.partita_iva');
dati_anagraficiIndirizzoDescrizione := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.descrizione');
dati_anagraficiIndirizzoCap := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.cap');
dati_anagraficiIndirizzoCodice_comune := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.codice_comune');
dati_anagraficiIndirizzoDescrizione_comune := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.descrizione_comune');
dati_anagraficiIndirizzoCodice_comune_istat := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.codice_comune_istat');
dati_anagraficiIndirizzoProvincia := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.provincia');
dati_anagraficiIndirizzoDescrizione_provincia := jResp.StringOf('companies[i].dati_anagrafici.indirizzo.descrizione_provincia');
dati_attivitaCodice_ateco := jResp.StringOf('companies[i].dati_attivita.codice_ateco');
dati_attivitaAteco := jResp.StringOf('companies[i].dati_attivita.ateco');
dati_attivitaCodice_stato_attivita := jResp.StringOf('companies[i].dati_attivita.codice_stato_attivita');
dati_attivitaFlag_operativa := jResp.BoolOf('companies[i].dati_attivita.flag_operativa');
dati_attivitaCodice_rea := jResp.StringOf('companies[i].dati_attivita.codice_rea');
dati_attivitaCompany_formCode := jResp.StringOf('companies[i].dati_attivita.company_form.code');
dati_attivitaCompany_formDescription := jResp.StringOf('companies[i].dati_attivita.company_form.description');
dati_attivitaCompany_formCompany_form_class := jResp.StringOf('companies[i].dati_attivita.company_form.company_form_class');
dati_paEnte := jResp.BoolOf('companies[i].dati_pa.ente');
dati_paFornitore := jResp.BoolOf('companies[i].dati_pa.fornitore');
dati_paPartecipata := jResp.BoolOf('companies[i].dati_pa.partecipata');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('people');
while i < count_i do
begin
jResp.I := i;
dati_anagraficiId_soggetto := jResp.IntOf('people[i].dati_anagrafici.id_soggetto');
dati_anagraficiDenominazione := jResp.StringOf('people[i].dati_anagrafici.denominazione');
dati_anagraficiDt_nascita := jResp.StringOf('people[i].dati_anagrafici.dt_nascita');
dati_anagraficiCodice_fiscale := jResp.StringOf('people[i].dati_anagrafici.codice_fiscale');
dati_anagraficiIndirizzoDescrizione := jResp.StringOf('people[i].dati_anagrafici.indirizzo.descrizione');
dati_anagraficiIndirizzoCap := jResp.StringOf('people[i].dati_anagrafici.indirizzo.cap');
dati_anagraficiIndirizzoCodice_comune := jResp.StringOf('people[i].dati_anagrafici.indirizzo.codice_comune');
dati_anagraficiIndirizzoDescrizione_comune := jResp.StringOf('people[i].dati_anagrafici.indirizzo.descrizione_comune');
dati_anagraficiIndirizzoCodice_comune_istat := jResp.StringOf('people[i].dati_anagrafici.indirizzo.codice_comune_istat');
dati_anagraficiIndirizzoProvincia := jResp.StringOf('people[i].dati_anagrafici.indirizzo.provincia');
dati_anagraficiIndirizzoDescrizione_provincia := jResp.StringOf('people[i].dati_anagrafici.indirizzo.descrizione_provincia');
i := i + 1;
end;
end;