CreateWebACL delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
ARN: PWideChar;
Description: PWideChar;
Id: PWideChar;
LockToken: PWideChar;
Name: PWideChar;
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,'wafv2');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://wafv2.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'wafv2.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_UpdateInt(json,'CaptchaConfig.ImmunityTimeProperty.ImmunityTime',123);
CkJsonObject_UpdateString(json,'CustomResponseBodies.string.Content','string');
CkJsonObject_UpdateString(json,'CustomResponseBodies.string.ContentType','string');
CkJsonObject_UpdateString(json,'DefaultAction.Allow.CustomRequestHandling.InsertHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'DefaultAction.Allow.CustomRequestHandling.InsertHeaders[0].Value','string');
CkJsonObject_UpdateString(json,'DefaultAction.Block.CustomResponse.CustomResponseBodyKey','string');
CkJsonObject_UpdateInt(json,'DefaultAction.Block.CustomResponse.ResponseCode',123);
CkJsonObject_UpdateString(json,'DefaultAction.Block.CustomResponse.ResponseHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'DefaultAction.Block.CustomResponse.ResponseHeaders[0].Value','string');
CkJsonObject_UpdateString(json,'Description','string');
CkJsonObject_UpdateString(json,'Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Allow.CustomRequestHandling.InsertHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Allow.CustomRequestHandling.InsertHeaders[0].Value','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Block.CustomResponse.CustomResponseBodyKey','string');
CkJsonObject_UpdateInt(json,'Rules[0].Action.Block.CustomResponse.ResponseCode',123);
CkJsonObject_UpdateString(json,'Rules[0].Action.Block.CustomResponse.ResponseHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Block.CustomResponse.ResponseHeaders[0].Value','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Captcha.CustomRequestHandling.InsertHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Captcha.CustomRequestHandling.InsertHeaders[0].Value','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Count.CustomRequestHandling.InsertHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Action.Count.CustomRequestHandling.InsertHeaders[0].Value','string');
CkJsonObject_UpdateInt(json,'Rules[0].CaptchaConfig.ImmunityTimeProperty.ImmunityTime',123);
CkJsonObject_UpdateString(json,'Rules[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].OverrideAction.Count.CustomRequestHandling.InsertHeaders[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].OverrideAction.Count.CustomRequestHandling.InsertHeaders[0].Value','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].OverrideAction.None');
CkJsonObject_UpdateInt(json,'Rules[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].RuleLabels[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.AndStatement.Statements[0]','Statement');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.ByteMatchStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.PositionalConstraint','string');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.ByteMatchStatement.SearchString',123);
CkJsonObject_UpdateInt(json,'Rules[0].Statement.ByteMatchStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.ByteMatchStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.GeoMatchStatement.CountryCodes[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.GeoMatchStatement.ForwardedIPConfig.FallbackBehavior','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.GeoMatchStatement.ForwardedIPConfig.HeaderName','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.IPSetReferenceStatement.ARN','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.IPSetReferenceStatement.IPSetForwardedIPConfig.FallbackBehavior','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.IPSetReferenceStatement.IPSetForwardedIPConfig.HeaderName','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.IPSetReferenceStatement.IPSetForwardedIPConfig.Position','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.LabelMatchStatement.Key','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.LabelMatchStatement.Scope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ExcludedRules[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ManagedRuleGroupConfigs[0].LoginPath','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ManagedRuleGroupConfigs[0].PasswordField.Identifier','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ManagedRuleGroupConfigs[0].PayloadType','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ManagedRuleGroupConfigs[0].UsernameField.Identifier','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.ScopeDownStatement','Statement');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.VendorName','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.ManagedRuleGroupStatement.Version','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.NotStatement.Statement','Statement');
CkJsonObject_UpdateString(json,'Rules[0].Statement.OrStatement.Statements[0]','Statement');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RateBasedStatement.AggregateKeyType','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RateBasedStatement.ForwardedIPConfig.FallbackBehavior','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RateBasedStatement.ForwardedIPConfig.HeaderName','string');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.RateBasedStatement.Limit',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.RateBasedStatement.ScopeDownStatement','Statement');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexMatchStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.RegexString','string');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.RegexMatchStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexMatchStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.ARN','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.RegexPatternSetReferenceStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RuleGroupReferenceStatement.ARN','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.RuleGroupReferenceStatement.ExcludedRules[0].Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.ComparisonOperator','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SizeConstraintStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.SizeConstraintStatement.Size',123);
CkJsonObject_UpdateInt(json,'Rules[0].Statement.SizeConstraintStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.SizeConstraintStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.SqliMatchStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.SqliMatchStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.SqliMatchStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.AllQueryArguments');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Body.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Cookies.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Cookies.MatchPattern.ExcludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Cookies.MatchPattern.IncludedCookies[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Cookies.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Cookies.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Headers.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Headers.MatchPattern.ExcludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Headers.MatchPattern.IncludedHeaders[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Headers.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Headers.OversizeHandling','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.JsonBody.InvalidFallbackBehavior','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.JsonBody.MatchPattern.All');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.JsonBody.MatchPattern.IncludedPaths[0]','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.JsonBody.MatchScope','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.JsonBody.OversizeHandling','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.Method');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.QueryString');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.SingleHeader.Name','string');
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.SingleQueryArgument.Name','string');
CkJsonObject_UpdateNewObject(json,'Rules[0].Statement.XssMatchStatement.FieldToMatch.UriPath');
CkJsonObject_UpdateInt(json,'Rules[0].Statement.XssMatchStatement.TextTransformations[0].Priority',123);
CkJsonObject_UpdateString(json,'Rules[0].Statement.XssMatchStatement.TextTransformations[0].Type','string');
CkJsonObject_UpdateInt(json,'Rules[0].VisibilityConfig.CloudWatchMetricsEnabled',123);
CkJsonObject_UpdateString(json,'Rules[0].VisibilityConfig.MetricName','string');
CkJsonObject_UpdateInt(json,'Rules[0].VisibilityConfig.SampledRequestsEnabled',123);
CkJsonObject_UpdateString(json,'Scope','string');
CkJsonObject_UpdateString(json,'Tags[0].Key','string');
CkJsonObject_UpdateString(json,'Tags[0].Value','string');
CkJsonObject_UpdateInt(json,'VisibilityConfig.CloudWatchMetricsEnabled',123);
CkJsonObject_UpdateString(json,'VisibilityConfig.MetricName','string');
CkJsonObject_UpdateInt(json,'VisibilityConfig.SampledRequestsEnabled',123);
// The JSON request body created by the above code:
// {
// "CaptchaConfig": {
// "ImmunityTimeProperty": {
// "ImmunityTime": number
// }
// },
// "CustomResponseBodies": {
// "string": {
// "Content": "string",
// "ContentType": "string"
// }
// },
// "DefaultAction": {
// "Allow": {
// "CustomRequestHandling": {
// "InsertHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// },
// "Block": {
// "CustomResponse": {
// "CustomResponseBodyKey": "string",
// "ResponseCode": number,
// "ResponseHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// }
// },
// "Description": "string",
// "Name": "string",
// "Rules": [
// {
// "Action": {
// "Allow": {
// "CustomRequestHandling": {
// "InsertHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// },
// "Block": {
// "CustomResponse": {
// "CustomResponseBodyKey": "string",
// "ResponseCode": number,
// "ResponseHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// },
// "Captcha": {
// "CustomRequestHandling": {
// "InsertHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// },
// "Count": {
// "CustomRequestHandling": {
// "InsertHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// }
// },
// "CaptchaConfig": {
// "ImmunityTimeProperty": {
// "ImmunityTime": number
// }
// },
// "Name": "string",
// "OverrideAction": {
// "Count": {
// "CustomRequestHandling": {
// "InsertHeaders": [
// {
// "Name": "string",
// "Value": "string"
// }
// ]
// }
// },
// "None": {}
// },
// "Priority": number,
// "RuleLabels": [
// {
// "Name": "string"
// }
// ],
// "Statement": {
// "AndStatement": {
// "Statements": [
// "Statement"
// ]
// },
// "ByteMatchStatement": {
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "PositionalConstraint": "string",
// "SearchString": blob,
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// },
// "GeoMatchStatement": {
// "CountryCodes": [
// "string"
// ],
// "ForwardedIPConfig": {
// "FallbackBehavior": "string",
// "HeaderName": "string"
// }
// },
// "IPSetReferenceStatement": {
// "ARN": "string",
// "IPSetForwardedIPConfig": {
// "FallbackBehavior": "string",
// "HeaderName": "string",
// "Position": "string"
// }
// },
// "LabelMatchStatement": {
// "Key": "string",
// "Scope": "string"
// },
// "ManagedRuleGroupStatement": {
// "ExcludedRules": [
// {
// "Name": "string"
// }
// ],
// "ManagedRuleGroupConfigs": [
// {
// "LoginPath": "string",
// "PasswordField": {
// "Identifier": "string"
// },
// "PayloadType": "string",
// "UsernameField": {
// "Identifier": "string"
// }
// }
// ],
// "Name": "string",
// "ScopeDownStatement": "Statement",
// "VendorName": "string",
// "Version": "string"
// },
// "NotStatement": {
// "Statement": "Statement"
// },
// "OrStatement": {
// "Statements": [
// "Statement"
// ]
// },
// "RateBasedStatement": {
// "AggregateKeyType": "string",
// "ForwardedIPConfig": {
// "FallbackBehavior": "string",
// "HeaderName": "string"
// },
// "Limit": number,
// "ScopeDownStatement": "Statement"
// },
// "RegexMatchStatement": {
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "RegexString": "string",
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// },
// "RegexPatternSetReferenceStatement": {
// "ARN": "string",
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// },
// "RuleGroupReferenceStatement": {
// "ARN": "string",
// "ExcludedRules": [
// {
// "Name": "string"
// }
// ]
// },
// "SizeConstraintStatement": {
// "ComparisonOperator": "string",
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "Size": number,
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// },
// "SqliMatchStatement": {
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// },
// "XssMatchStatement": {
// "FieldToMatch": {
// "AllQueryArguments": {},
// "Body": {
// "OversizeHandling": "string"
// },
// "Cookies": {
// "MatchPattern": {
// "All": {},
// "ExcludedCookies": [
// "string"
// ],
// "IncludedCookies": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Headers": {
// "MatchPattern": {
// "All": {},
// "ExcludedHeaders": [
// "string"
// ],
// "IncludedHeaders": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "JsonBody": {
// "InvalidFallbackBehavior": "string",
// "MatchPattern": {
// "All": {},
// "IncludedPaths": [
// "string"
// ]
// },
// "MatchScope": "string",
// "OversizeHandling": "string"
// },
// "Method": {},
// "QueryString": {},
// "SingleHeader": {
// "Name": "string"
// },
// "SingleQueryArgument": {
// "Name": "string"
// },
// "UriPath": {}
// },
// "TextTransformations": [
// {
// "Priority": number,
// "Type": "string"
// }
// ]
// }
// },
// "VisibilityConfig": {
// "CloudWatchMetricsEnabled": boolean,
// "MetricName": "string",
// "SampledRequestsEnabled": boolean
// }
// }
// ],
// "Scope": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VisibilityConfig": {
// "CloudWatchMetricsEnabled": boolean,
// "MetricName": "string",
// "SampledRequestsEnabled": boolean
// }
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','AWSWAF_20190729.CreateWebACL');
sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/',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,'Summary.ARN');
Description := CkJsonObject__stringOf(jResp,'Summary.Description');
Id := CkJsonObject__stringOf(jResp,'Summary.Id');
LockToken := CkJsonObject__stringOf(jResp,'Summary.LockToken');
Name := CkJsonObject__stringOf(jResp,'Summary.Name');
// A sample JSON response body parsed by the above code:
// {
// "Summary": {
// "ARN": "string",
// "Description": "string",
// "Id": "string",
// "LockToken": "string",
// "Name": "string"
// }
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
