|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) Cerved API Entity SearchPerform searches on a Subject, known indifferently, the Fiscal Code, VAT number or Name, and to obtain basic information of the Subject. For more information, see https://apps-developer.cerved.com/
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Boolean iSuccess Variant vSbResponseBody Handle hoSbResponseBody Handle hoJResp Integer iRespStatusCode Integer iDati_anagraficiId_soggetto String sDati_anagraficiDenominazione String sDati_anagraficiCodice_fiscale String sDati_anagraficiPartita_iva String sDati_anagraficiIndirizzoDescrizione String sDati_anagraficiIndirizzoCap String sDati_anagraficiIndirizzoCodice_comune String sDati_anagraficiIndirizzoDescrizione_comune String sDati_anagraficiIndirizzoCodice_comune_istat String sDati_anagraficiIndirizzoProvincia String sDati_anagraficiIndirizzoDescrizione_provincia String sDati_attivitaCodice_ateco String sDati_attivitaAteco String sDati_attivitaCodice_stato_attivita Boolean iDati_attivitaFlag_operativa String sDati_attivitaCodice_rea String sDati_attivitaCompany_formCode String sDati_attivitaCompany_formDescription String sDati_attivitaCompany_formCompany_form_class Boolean iDati_paEnte Boolean iDati_paFornitore Boolean iDati_paPartecipata String sDati_anagraficiDt_nascita Integer iPeopleTotalNumber Integer iCompaniesTotalNumber Integer i Integer iCount_i String sTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // 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 Send ComSetRequestHeader To hoHttp "accept" "application/json" // Note: Your apikey is your Consumer Key Send ComSetRequestHeader To hoHttp "apikey" "********************************" Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody If (Not(IsComObjectCreated(hoSbResponseBody))) Begin Send CreateComObject of hoSbResponseBody End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComQuickGetSb Of hoHttp "https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test" vSbResponseBody To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJResp If (Not(IsComObjectCreated(hoJResp))) Begin Send CreateComObject of hoJResp End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess Set ComEmitCompact Of hoJResp To False Showln "Response Body:" Get ComEmit Of hoJResp To sTemp1 Showln sTemp1 Get ComLastStatus Of hoHttp To iRespStatusCode Showln "Response Status Code = " iRespStatusCode If (iRespStatusCode >= 400) Begin Showln "Response Header:" Get ComLastHeader Of hoHttp To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return 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 Get ComIntOf Of hoJResp "peopleTotalNumber" To iPeopleTotalNumber Get ComIntOf Of hoJResp "companiesTotalNumber" To iCompaniesTotalNumber Move 0 To i Get ComSizeOfArray Of hoJResp "companies" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Get ComIntOf Of hoJResp "companies[i].dati_anagrafici.id_soggetto" To iDati_anagraficiId_soggetto Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.denominazione" To sDati_anagraficiDenominazione Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.codice_fiscale" To sDati_anagraficiCodice_fiscale Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.partita_iva" To sDati_anagraficiPartita_iva Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.descrizione" To sDati_anagraficiIndirizzoDescrizione Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.cap" To sDati_anagraficiIndirizzoCap Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.codice_comune" To sDati_anagraficiIndirizzoCodice_comune Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.descrizione_comune" To sDati_anagraficiIndirizzoDescrizione_comune Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.codice_comune_istat" To sDati_anagraficiIndirizzoCodice_comune_istat Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.provincia" To sDati_anagraficiIndirizzoProvincia Get ComStringOf Of hoJResp "companies[i].dati_anagrafici.indirizzo.descrizione_provincia" To sDati_anagraficiIndirizzoDescrizione_provincia Get ComStringOf Of hoJResp "companies[i].dati_attivita.codice_ateco" To sDati_attivitaCodice_ateco Get ComStringOf Of hoJResp "companies[i].dati_attivita.ateco" To sDati_attivitaAteco Get ComStringOf Of hoJResp "companies[i].dati_attivita.codice_stato_attivita" To sDati_attivitaCodice_stato_attivita Get ComBoolOf Of hoJResp "companies[i].dati_attivita.flag_operativa" To iDati_attivitaFlag_operativa Get ComStringOf Of hoJResp "companies[i].dati_attivita.codice_rea" To sDati_attivitaCodice_rea Get ComStringOf Of hoJResp "companies[i].dati_attivita.company_form.code" To sDati_attivitaCompany_formCode Get ComStringOf Of hoJResp "companies[i].dati_attivita.company_form.description" To sDati_attivitaCompany_formDescription Get ComStringOf Of hoJResp "companies[i].dati_attivita.company_form.company_form_class" To sDati_attivitaCompany_formCompany_form_class Get ComBoolOf Of hoJResp "companies[i].dati_pa.ente" To iDati_paEnte Get ComBoolOf Of hoJResp "companies[i].dati_pa.fornitore" To iDati_paFornitore Get ComBoolOf Of hoJResp "companies[i].dati_pa.partecipata" To iDati_paPartecipata Move (i + 1) To i Loop Move 0 To i Get ComSizeOfArray Of hoJResp "people" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Get ComIntOf Of hoJResp "people[i].dati_anagrafici.id_soggetto" To iDati_anagraficiId_soggetto Get ComStringOf Of hoJResp "people[i].dati_anagrafici.denominazione" To sDati_anagraficiDenominazione Get ComStringOf Of hoJResp "people[i].dati_anagrafici.dt_nascita" To sDati_anagraficiDt_nascita Get ComStringOf Of hoJResp "people[i].dati_anagrafici.codice_fiscale" To sDati_anagraficiCodice_fiscale Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.descrizione" To sDati_anagraficiIndirizzoDescrizione Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.cap" To sDati_anagraficiIndirizzoCap Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.codice_comune" To sDati_anagraficiIndirizzoCodice_comune Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.descrizione_comune" To sDati_anagraficiIndirizzoDescrizione_comune Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.codice_comune_istat" To sDati_anagraficiIndirizzoCodice_comune_istat Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.provincia" To sDati_anagraficiIndirizzoProvincia Get ComStringOf Of hoJResp "people[i].dati_anagrafici.indirizzo.descrizione_provincia" To sDati_anagraficiIndirizzoDescrizione_provincia Move (i + 1) To i Loop End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.