Xbase++

Glacier Download Archive

See more Amazon Glacier Examples

Demonstrates how to download an Amazon Glacier archive. Downloading a Glacier archive is a two step process. First an archive retrieval job is initiated. After it completes, the job output is downloaded (i.e. the archive contents are downloaded.)

Note: This example requires Chilkat v9.5.0.78 or greater.

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL oAuthAws
LOCAL nResponseStatusCode
LOCAL oBodyStream
LOCAL cJsonError

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  Connect to the Amazon AWS REST server in the desired region.
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("glacier.us-west-2.amazonaws.com", nPort, nBTls, nBAutoReconnect)

//  Provide AWS credentials.
oAuthAws := CreateObject("Chilkat.AuthAws")
oAuthAws:AccessKey := "AWS_ACCESS_KEY"
oAuthAws:SecretKey := "AWS_SECRET_KEY"
oAuthAws:ServiceName := "glacier"
oAuthAws:Region := "us-west-2"

nSuccess := oRest:SetAuthAws(oAuthAws)

//  --------------------------------------------------------------------------
//  Note: The above REST connection and setup of the AWS credentials
//  can be done once.  After connecting, any number of REST calls can be made.
//  The "auto reconnect" property passed to rest.Connect indicates that if
//  the connection is lost, a REST method call will automatically reconnect
//  if needed.
//  --------------------------------------------------------------------------

//  For more information, see Glacier Retrieve Job Output Reference Documentation
//  
oRest:AddHeader("x-amz-glacier-version", "2012-06-01")

//  To download an archive, we'll make several method calls:
//  1) Send the HTTPS GET request.
//  2) Get the response body.
//  3) If the response status code indicates success, stream the response body (i.e the archive data) to a file.
//  4) If the response status code indicates an error, get the JSON error response.

//  Send the GET request.
nSuccess := oRest:SendReqNoBody("GET", "/AWS_ACCOUNT_ID/vaults/chilkat/jobs/JOB_ID/output")
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oAuthAws:destroy()
    RETURN
ENDIF

//  Read the response header.
nResponseStatusCode := oRest:ReadResponseHeader()
IF (nResponseStatusCode < 0)
    ? oRest:LastErrorText
    oRest:destroy()
    oAuthAws:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(nResponseStatusCode)

//  We expect a 200 response status if the archive data is coming.
//  Otherwise, we'll get a JSON response body with an error message(or no response body).
IF (nResponseStatusCode == 200)

    oBodyStream := CreateObject("Chilkat.Stream")

    //  The stream's sink will be a file.
    oBodyStream:SinkFile := "qa_output/archiveData.dat"

    //  Read the response body to the stream.
    nSuccess := oRest:ReadRespBodyStream(oBodyStream, 1)
    IF (nSuccess != 1)
        ? oRest:LastErrorText
        oRest:destroy()
        oAuthAws:destroy()
        oBodyStream:destroy()
        RETURN
    ENDIF

    ? "Successfully received the archive file."

ELSE
    cJsonError := oRest:ReadRespBodyString()
    IF (oRest:LastMethodSuccess != 1)
        ? oRest:LastErrorText
    ELSE
        ? cJsonError
    ENDIF

ENDIF

oRest:destroy()
oAuthAws:destroy()
oBodyStream:destroy()