GetStreamSession delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
eventTime: Integer;
name: PWideChar;
v_type: PWideChar;
Arn: PWideChar;
Authorized: Integer;
IngestEndpoint: PWideChar;
LatencyMode: PWideChar;
Name: PWideChar;
PlaybackUrl: PWideChar;
RecordingConfigurationArn: PWideChar;
v_String: PWideChar;
v_Type: PWideChar;
EndTime: Integer;
Channels: Integer;
Codec: PWideChar;
SampleRate: Integer;
TargetBitrate: Integer;
AvcLevel: PWideChar;
AvcProfile: PWideChar;
VideoCodec: PWideChar;
Encoder: PWideChar;
VideoTargetBitrate: Integer;
TargetFramerate: Integer;
VideoHeight: Integer;
VideoWidth: Integer;
BucketName: PWideChar;
RecordingConfigurationName: PWideChar;
State: PWideChar;
TagsString: PWideChar;
RecordingMode: PWideChar;
TargetIntervalSeconds: Integer;
StartTime: Integer;
StreamId: PWideChar;
i: Integer;
count_i: Integer;
begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
rest := CkRest_Create();
authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'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.)
CkAuthAws_putRegion(authAws,'us-west-2');
CkAuthAws_putServiceName(authAws,'ivs');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://ivs.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'ivs.us-west-2.amazonaws.com',443,True,True);
if (success <> True) then
begin
Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
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
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'channelArn','string');
CkJsonObject_UpdateString(json,'streamId','string');
// The JSON request body created by the above code:
// {
// "channelArn": "string",
// "streamId": "string"
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','GetStreamSession');
sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/GetStreamSession',sbRequestBody,sbResponseBody);
if (success <> True) then
begin
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
respStatusCode := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode <> 200) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(CkRest__responseHeader(rest));
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
Exit;
end;
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,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
Arn := CkJsonObject__stringOf(jResp,'streamSession.channel.arn');
Authorized := CkJsonObject_IntOf(jResp,'streamSession.channel.authorized');
IngestEndpoint := CkJsonObject__stringOf(jResp,'streamSession.channel.ingestEndpoint');
LatencyMode := CkJsonObject__stringOf(jResp,'streamSession.channel.latencyMode');
Name := CkJsonObject__stringOf(jResp,'streamSession.channel.name');
PlaybackUrl := CkJsonObject__stringOf(jResp,'streamSession.channel.playbackUrl');
RecordingConfigurationArn := CkJsonObject__stringOf(jResp,'streamSession.channel.recordingConfigurationArn');
v_String := CkJsonObject__stringOf(jResp,'streamSession.channel.tags.string');
v_Type := CkJsonObject__stringOf(jResp,'streamSession.channel.type');
EndTime := CkJsonObject_IntOf(jResp,'streamSession.endTime');
Channels := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.audio.channels');
Codec := CkJsonObject__stringOf(jResp,'streamSession.ingestConfiguration.audio.codec');
SampleRate := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.audio.sampleRate');
TargetBitrate := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.audio.targetBitrate');
AvcLevel := CkJsonObject__stringOf(jResp,'streamSession.ingestConfiguration.video.avcLevel');
AvcProfile := CkJsonObject__stringOf(jResp,'streamSession.ingestConfiguration.video.avcProfile');
VideoCodec := CkJsonObject__stringOf(jResp,'streamSession.ingestConfiguration.video.codec');
Encoder := CkJsonObject__stringOf(jResp,'streamSession.ingestConfiguration.video.encoder');
VideoTargetBitrate := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.video.targetBitrate');
TargetFramerate := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.video.targetFramerate');
VideoHeight := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.video.videoHeight');
VideoWidth := CkJsonObject_IntOf(jResp,'streamSession.ingestConfiguration.video.videoWidth');
RecordingConfigurationArn := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.arn');
BucketName := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.destinationConfiguration.s3.bucketName');
RecordingConfigurationName := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.name');
State := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.state');
TagsString := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.tags.string');
RecordingMode := CkJsonObject__stringOf(jResp,'streamSession.recordingConfiguration.thumbnailConfiguration.recordingMode');
TargetIntervalSeconds := CkJsonObject_IntOf(jResp,'streamSession.recordingConfiguration.thumbnailConfiguration.targetIntervalSeconds');
StartTime := CkJsonObject_IntOf(jResp,'streamSession.startTime');
StreamId := CkJsonObject__stringOf(jResp,'streamSession.streamId');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'streamSession.truncatedEvents');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
eventTime := CkJsonObject_IntOf(jResp,'streamSession.truncatedEvents[i].eventTime');
name := CkJsonObject__stringOf(jResp,'streamSession.truncatedEvents[i].name');
v_type := CkJsonObject__stringOf(jResp,'streamSession.truncatedEvents[i].type');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "streamSession": {
// "channel": {
// "arn": "string",
// "authorized": boolean,
// "ingestEndpoint": "string",
// "latencyMode": "string",
// "name": "string",
// "playbackUrl": "string",
// "recordingConfigurationArn": "string",
// "tags": {
// "string": "string"
// },
// "type": "string"
// },
// "endTime": number,
// "ingestConfiguration": {
// "audio": {
// "channels": number,
// "codec": "string",
// "sampleRate": number,
// "targetBitrate": number
// },
// "video": {
// "avcLevel": "string",
// "avcProfile": "string",
// "codec": "string",
// "encoder": "string",
// "targetBitrate": number,
// "targetFramerate": number,
// "videoHeight": number,
// "videoWidth": number
// }
// },
// "recordingConfiguration": {
// "arn": "string",
// "destinationConfiguration": {
// "s3": {
// "bucketName": "string"
// }
// },
// "name": "string",
// "state": "string",
// "tags": {
// "string": "string"
// },
// "thumbnailConfiguration": {
// "recordingMode": "string",
// "targetIntervalSeconds": number
// }
// },
// "startTime": number,
// "streamId": "string",
// "truncatedEvents": [
// {
// "eventTime": number,
// "name": "string",
// "type": "string"
// }
// ]
// }
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
