(Xojo Plugin) Aruba Fatturazione Elettronica Get Zip by Filename

Returns an invoice with all of its notifications in Zip format (e.g. IT01879020517_abcde.xml.p7m).

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#_getzipbyfilename

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http
Dim success As Boolean

// Implements the following CURL command:

// curl -X GET https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m \
//   -H "Accept: application/json" \
//   -H "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// Adds the "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=" header.
http.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="
http.SetRequestHeader "Accept","application/json"

Dim bdZip As New Chilkat.BinData
success = http.QuickGetBd("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m",bdZip)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim respStatusCode As Int32
respStatusCode = http.LastStatus
System.DebugLog("response status code = " + Str(respStatusCode))

If (respStatusCode <> 200) Then
    // If it failed, the response body will not contain the .zip file data.
    // It will likely contain an error message.
    System.DebugLog(bdZip.GetString("utf-8"))
    System.DebugLog("Failed.")
    Return
End If

// Open the zip and extract the .p7m
Dim zip As New Chilkat.Zip

success = zip.OpenBd(bdZip)
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// If desired, we can unzip to the filesystem..
Dim numUnzipped As Int32
numUnzipped = zip.Unzip("c:/mySignedInvoices")
If (numUnzipped < 0) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Alternatively, we can unzip into memory..
Dim entry As Chilkat.ZipEntry
entry = zip.GetEntryByIndex(0)
If (zip.LastMethodSuccess = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

Dim bdP7m As New Chilkat.BinData
success = entry.UnzipToBd(bdP7m)
If (success = False) Then
    System.DebugLog(entry.LastErrorText)
    Return
End If

// Verify the signature and extract the XML from the p7m
// If the signature verification is successful, the contents of bdP7m are unwrapped and what
// remains is the original signed document..
Dim crypt As New Chilkat.Crypt2
success = crypt.OpaqueVerifyBd(bdP7m)
If (success = False) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

System.DebugLog("The signature was verified.")

// The bdp7m now contains the XML that was originally signed.
System.DebugLog("Original XML:")
System.DebugLog(bdP7m.GetString("utf-8"))