Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) fatturazioneelettronica.aruba.it Upload FileSample code to duplicate MSXML2.XMLHTTP.6.0 code to send an application/json POST to upload a file.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example duplicates the following Microsoft FoxPro (XMLHTTP) code ' LOCAL lFile, lFile_base64, lVariabili, lCred_firma, lDom_firma, ltoken ' ltoken = oConnessione_Aruba.access_token && si ottiene con il codice di prima per l'autenticazione ' lCred_firma = '' && credenziali firma automatica (lasciare vuoto se si affida la firma ad Aruba) ' lDom_firma = '' && credenziali firma automatica (lasciare vuoto se si affida la firma ad Aruba) ' lfile = GETFILE('xml','File XML','Carica il file') && si pu optare anche per mandare direttamente il nome del dile lfile = "IT0000000000_00001.XML" ' lfile_base64 = STRCONV(FILETOSTR(lfile),13) && serve a convertire il file da testo a binario ' lVariabili = '{"dataFile" : "'+lfile_base64+'","credential" : "","domain" : ""}' && sono formattate in json ' ' Local loHttp As "MSXML2.XMLHTTP.6.0" ' loHttp = Createobject("MSXML2.XMLHTTP.6.0") ' Local lEsito && variabile per prelevare la risposta del server ' With loHttp As MSXML2.XMLHTTP.6.0 ' .Open("POST", 'https://demows.fatturazioneelettronica.aruba.it/services/invoice/upload',.F.) ' .setRequestHeader("Accept","application/json") ' .setRequestHeader("Authorization","Bearer "+ltoken) ' .setRequestHeader("Content-Type","application/json;charset=UTF-8") ' .setRequestHeader("Content-Length","90") ' .Send(lVariabili) && faccio la POST con le variabili ' Store .responsetext To lEsito && memorizzo la risposta del server ' Endwith ' ' Public oUpload_Aruba ' oUpload_Aruba=nfjsonread(lEsito) ' ' *!* ?oUpload_Aruba.errorCode && 1 degli errori dalla tabella ErroCode ' *!* ?oUpload_Aruba.errorDescription && La relativa descrizione ' *!* ?oUpload_Aruba.uploadFileName && il nome file inviato ' RELEASE loHttp Dim http As Chilkat.Http Set http = Chilkat.NewHttp Dim req As Chilkat.HttpRequest Set req = Chilkat.NewHttpRequest http.SessionLogFilename = "qa_output/uploadLog.txt" req.HttpVerb = "POST" req.Path = "/services/invoice/upload" req.Charset = "utf-8" req.ContentType = "application/json" jsonBody = "{ This is the JSON request body.... }" success = req.LoadBodyFromString(jsonBody,"utf-8") req.AddHeader "Accept","application/json" tokenOAuth2 = "YOUR_OAUTH2_TOKEN" http.AuthToken = tokenOAuth2 ' No need to set Content-Length because Chilkat always computes the actual content length and adds the header. Set resp = http.SynchronousRequest("demows.fatturazioneelettronica.aruba.it",443,True,req) If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "Response Status: "; resp.StatusCode Debug.Print "Response Body: " Debug.Print resp.BodyStr |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.