|
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
(Classic ASP) fatturazioneelettronica.aruba.it Upload FileSample code to duplicate MSXML2.XMLHTTP.6.0 code to send an application/json POST to upload a file.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest") set req = Server.CreateObject("Chilkat.HttpRequest") 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. ' resp is a Chilkat.HttpResponse Set resp = http.SynchronousRequest("demows.fatturazioneelettronica.aruba.it",443,1,req) If (http.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Response Status: " & resp.StatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Body: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.