Chilkat Online Tools

GetJob SQL Server Example

AWS Device Farm

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(max)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @rest int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Rest', @rest OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    DECLARE @authAws int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.AuthAws', @authAws OUT

    EXEC sp_OASetProperty @authAws, 'AccessKey', 'AWS_ACCESS_KEY'
    EXEC sp_OASetProperty @authAws, 'SecretKey', 'AWS_SECRET_KEY'

    -- Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
    EXEC sp_OASetProperty @authAws, 'Region', 'us-west-2'
    EXEC sp_OASetProperty @authAws, 'ServiceName', 'devicefarm'
    -- SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
    EXEC sp_OAMethod @rest, 'SetAuthAws', @success OUT, @authAws

    -- URL: https://devicefarm.us-west-2.amazonaws.com/
    -- Use the same region as specified above.
    EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'devicefarm.us-west-2.amazonaws.com', 443, 1, 1
    IF @success <> 1
      BEGIN

        EXEC sp_OAGetProperty @rest, 'ConnectFailReason', @iTmp0 OUT
        PRINT 'ConnectFailReason: ' + @iTmp0
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @authAws
        RETURN
      END

    -- The following code creates the JSON request body.
    -- The JSON created by this code is shown below.

    -- Use this online tool to generate code from sample JSON:
    -- Generate Code to Create JSON

    DECLARE @json int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'arn', 'string'

    -- The JSON request body created by the above code:

    -- {
    --   "arn": "string"
    -- }

    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Content-Type', 'application/x-amz-json-1.1'
    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'X-Amz-Target', 'DeviceFarm_20150623.GetJob'

    DECLARE @sbRequestBody int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbRequestBody OUT

    EXEC sp_OAMethod @json, 'EmitSb', @success OUT, @sbRequestBody
    DECLARE @sbResponseBody int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbResponseBody OUT

    EXEC sp_OAMethod @rest, 'FullRequestSb', @success OUT, 'POST', '/', @sbRequestBody, @sbResponseBody
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @authAws
        EXEC @hr = sp_OADestroy @json
        EXEC @hr = sp_OADestroy @sbRequestBody
        EXEC @hr = sp_OADestroy @sbResponseBody
        RETURN
      END
    DECLARE @respStatusCode int
    EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @respStatusCode OUT

    PRINT 'response status code = ' + @respStatusCode
    IF @respStatusCode <> 200
      BEGIN

        PRINT 'Response Header:'
        EXEC sp_OAGetProperty @rest, 'ResponseHeader', @sTmp0 OUT
        PRINT @sTmp0

        PRINT 'Response Body:'
        EXEC sp_OAMethod @sbResponseBody, 'GetAsString', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @authAws
        EXEC @hr = sp_OADestroy @json
        EXEC @hr = sp_OADestroy @sbRequestBody
        EXEC @hr = sp_OADestroy @sbResponseBody
        RETURN
      END

    DECLARE @jResp int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @jResp OUT

    EXEC sp_OAMethod @jResp, 'LoadSb', @success OUT, @sbResponseBody

    -- The following code parses the JSON response.
    -- A sample JSON response is shown below the sample code.

    -- Use this online tool to generate parsing code from sample JSON:
    -- Generate Parsing Code from JSON

    DECLARE @arn nvarchar(max)

    DECLARE @deviceArn nvarchar(max)

    DECLARE @instanceProfileArn nvarchar(max)

    DECLARE @Description nvarchar(max)

    DECLARE @instanceProfileName nvarchar(max)

    DECLARE @PackageCleanup int

    DECLARE @RebootAfterUse int

    DECLARE @status nvarchar(max)

    DECLARE @udid nvarchar(max)

    DECLARE @j int

    DECLARE @count_j int

    DECLARE @strVal nvarchar(max)

    DECLARE @Arn nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Arn OUT, 'job.arn'
    DECLARE @Errored int
    EXEC sp_OAMethod @jResp, 'IntOf', @Errored OUT, 'job.counters.errored'
    DECLARE @Failed int
    EXEC sp_OAMethod @jResp, 'IntOf', @Failed OUT, 'job.counters.failed'
    DECLARE @Passed int
    EXEC sp_OAMethod @jResp, 'IntOf', @Passed OUT, 'job.counters.passed'
    DECLARE @Skipped int
    EXEC sp_OAMethod @jResp, 'IntOf', @Skipped OUT, 'job.counters.skipped'
    DECLARE @Stopped int
    EXEC sp_OAMethod @jResp, 'IntOf', @Stopped OUT, 'job.counters.stopped'
    DECLARE @Total int
    EXEC sp_OAMethod @jResp, 'IntOf', @Total OUT, 'job.counters.total'
    DECLARE @Warned int
    EXEC sp_OAMethod @jResp, 'IntOf', @Warned OUT, 'job.counters.warned'
    DECLARE @Created int
    EXEC sp_OAMethod @jResp, 'IntOf', @Created OUT, 'job.created'
    DECLARE @DeviceArn nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @DeviceArn OUT, 'job.device.arn'
    DECLARE @Availability nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Availability OUT, 'job.device.availability'
    DECLARE @Carrier nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Carrier OUT, 'job.device.carrier'
    DECLARE @Architecture nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Architecture OUT, 'job.device.cpu.architecture'
    DECLARE @Clock int
    EXEC sp_OAMethod @jResp, 'IntOf', @Clock OUT, 'job.device.cpu.clock'
    DECLARE @Frequency nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Frequency OUT, 'job.device.cpu.frequency'
    DECLARE @FleetName nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @FleetName OUT, 'job.device.fleetName'
    DECLARE @FleetType nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @FleetType OUT, 'job.device.fleetType'
    DECLARE @FormFactor nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @FormFactor OUT, 'job.device.formFactor'
    DECLARE @HeapSize int
    EXEC sp_OAMethod @jResp, 'IntOf', @HeapSize OUT, 'job.device.heapSize'
    DECLARE @Image nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Image OUT, 'job.device.image'
    DECLARE @Manufacturer nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Manufacturer OUT, 'job.device.manufacturer'
    DECLARE @Memory int
    EXEC sp_OAMethod @jResp, 'IntOf', @Memory OUT, 'job.device.memory'
    DECLARE @Model nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Model OUT, 'job.device.model'
    DECLARE @ModelId nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @ModelId OUT, 'job.device.modelId'
    DECLARE @Name nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Name OUT, 'job.device.name'
    DECLARE @Os nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Os OUT, 'job.device.os'
    DECLARE @Platform nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Platform OUT, 'job.device.platform'
    DECLARE @Radio nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Radio OUT, 'job.device.radio'
    DECLARE @RemoteAccessEnabled int
    EXEC sp_OAMethod @jResp, 'IntOf', @RemoteAccessEnabled OUT, 'job.device.remoteAccessEnabled'
    DECLARE @RemoteDebugEnabled int
    EXEC sp_OAMethod @jResp, 'IntOf', @RemoteDebugEnabled OUT, 'job.device.remoteDebugEnabled'
    DECLARE @Height int
    EXEC sp_OAMethod @jResp, 'IntOf', @Height OUT, 'job.device.resolution.height'
    DECLARE @Width int
    EXEC sp_OAMethod @jResp, 'IntOf', @Width OUT, 'job.device.resolution.width'
    DECLARE @Metered int
    EXEC sp_OAMethod @jResp, 'IntOf', @Metered OUT, 'job.deviceMinutes.metered'
    DECLARE @DeviceMinutesTotal int
    EXEC sp_OAMethod @jResp, 'IntOf', @DeviceMinutesTotal OUT, 'job.deviceMinutes.total'
    DECLARE @Unmetered int
    EXEC sp_OAMethod @jResp, 'IntOf', @Unmetered OUT, 'job.deviceMinutes.unmetered'
    DECLARE @InstanceArn nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @InstanceArn OUT, 'job.instanceArn'
    DECLARE @Message nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Message OUT, 'job.message'
    DECLARE @jobName nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @jobName OUT, 'job.name'
    DECLARE @Result nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Result OUT, 'job.result'
    DECLARE @Started int
    EXEC sp_OAMethod @jResp, 'IntOf', @Started OUT, 'job.started'
    DECLARE @Status nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @Status OUT, 'job.status'
    DECLARE @jobStopped int
    EXEC sp_OAMethod @jResp, 'IntOf', @jobStopped OUT, 'job.stopped'
    DECLARE @v_Type nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @v_Type OUT, 'job.type'
    DECLARE @VideoCapture int
    EXEC sp_OAMethod @jResp, 'IntOf', @VideoCapture OUT, 'job.videoCapture'
    DECLARE @VideoEndpoint nvarchar(max)
    EXEC sp_OAMethod @jResp, 'StringOf', @VideoEndpoint OUT, 'job.videoEndpoint'
    DECLARE @i int
    SELECT @i = 0
    DECLARE @count_i int
    EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_i OUT, 'job.device.instances'
    WHILE @i < @count_i
      BEGIN
        EXEC sp_OASetProperty @jResp, 'I', @i
        EXEC sp_OAMethod @jResp, 'StringOf', @arn OUT, 'job.device.instances[i].arn'
        EXEC sp_OAMethod @jResp, 'StringOf', @deviceArn OUT, 'job.device.instances[i].deviceArn'
        EXEC sp_OAMethod @jResp, 'StringOf', @instanceProfileArn OUT, 'job.device.instances[i].instanceProfile.arn'
        EXEC sp_OAMethod @jResp, 'StringOf', @Description OUT, 'job.device.instances[i].instanceProfile.description'
        EXEC sp_OAMethod @jResp, 'StringOf', @instanceProfileName OUT, 'job.device.instances[i].instanceProfile.name'
        EXEC sp_OAMethod @jResp, 'IntOf', @PackageCleanup OUT, 'job.device.instances[i].instanceProfile.packageCleanup'
        EXEC sp_OAMethod @jResp, 'IntOf', @RebootAfterUse OUT, 'job.device.instances[i].instanceProfile.rebootAfterUse'
        EXEC sp_OAMethod @jResp, 'StringOf', @status OUT, 'job.device.instances[i].status'
        EXEC sp_OAMethod @jResp, 'StringOf', @udid OUT, 'job.device.instances[i].udid'
        SELECT @j = 0
        EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_j OUT, 'job.device.instances[i].instanceProfile.excludeAppPackagesFromCleanup'
        WHILE @j < @count_j
          BEGIN
            EXEC sp_OASetProperty @jResp, 'J', @j
            EXEC sp_OAMethod @jResp, 'StringOf', @strVal OUT, 'job.device.instances[i].instanceProfile.excludeAppPackagesFromCleanup[j]'
            SELECT @j = @j + 1
          END
        SELECT @j = 0
        EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_j OUT, 'job.device.instances[i].labels'
        WHILE @j < @count_j
          BEGIN
            EXEC sp_OASetProperty @jResp, 'J', @j
            EXEC sp_OAMethod @jResp, 'StringOf', @strVal OUT, 'job.device.instances[i].labels[j]'
            SELECT @j = @j + 1
          END
        SELECT @i = @i + 1
      END

    -- A sample JSON response body parsed by the above code:

    -- {
    --   "job": {
    --     "arn": "string",
    --     "counters": {
    --       "errored": number,
    --       "failed": number,
    --       "passed": number,
    --       "skipped": number,
    --       "stopped": number,
    --       "total": number,
    --       "warned": number
    --     },
    --     "created": number,
    --     "device": {
    --       "arn": "string",
    --       "availability": "string",
    --       "carrier": "string",
    --       "cpu": {
    --         "architecture": "string",
    --         "clock": number,
    --         "frequency": "string"
    --       },
    --       "fleetName": "string",
    --       "fleetType": "string",
    --       "formFactor": "string",
    --       "heapSize": number,
    --       "image": "string",
    --       "instances": [
    --         {
    --           "arn": "string",
    --           "deviceArn": "string",
    --           "instanceProfile": {
    --             "arn": "string",
    --             "description": "string",
    --             "excludeAppPackagesFromCleanup": [
    --               "string"
    --             ],
    --             "name": "string",
    --             "packageCleanup": boolean,
    --             "rebootAfterUse": boolean
    --           },
    --           "labels": [
    --             "string"
    --           ],
    --           "status": "string",
    --           "udid": "string"
    --         }
    --       ],
    --       "manufacturer": "string",
    --       "memory": number,
    --       "model": "string",
    --       "modelId": "string",
    --       "name": "string",
    --       "os": "string",
    --       "platform": "string",
    --       "radio": "string",
    --       "remoteAccessEnabled": boolean,
    --       "remoteDebugEnabled": boolean,
    --       "resolution": {
    --         "height": number,
    --         "width": number
    --       }
    --     },
    --     "deviceMinutes": {
    --       "metered": number,
    --       "total": number,
    --       "unmetered": number
    --     },
    --     "instanceArn": "string",
    --     "message": "string",
    --     "name": "string",
    --     "result": "string",
    --     "started": number,
    --     "status": "string",
    --     "stopped": number,
    --     "type": "string",
    --     "videoCapture": boolean,
    --     "videoEndpoint": "string"
    --   }
    -- }

    EXEC @hr = sp_OADestroy @rest
    EXEC @hr = sp_OADestroy @authAws
    EXEC @hr = sp_OADestroy @json
    EXEC @hr = sp_OADestroy @sbRequestBody
    EXEC @hr = sp_OADestroy @sbResponseBody
    EXEC @hr = sp_OADestroy @jResp


END
GO