Delphi ActiveX

Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
req: TChilkatHttpRequest;

begin
req := TChilkatHttpRequest.Create(Self);

req.HttpVerb := 'POST';
req.Path := '/test123';
req.ContentType := 'application/x-www-form-urlencoded';
req.AddParam('paramA','AAA');
req.AddParam('paramB','BBB');
req.AddParam('paramC','CCC');

Memo1.Lines.Add(req.GenerateRequestText());
Memo1.Lines.Add('---------------');

// Generates: 

// 	POST /test123 HTTP/1.1
// 	Content-Type: application/x-www-form-urlencoded
// 	Host: domain
// 	Content-Length: 32
// 
// 	paramA=AAA&paramB=BBB&paramC=CCC
// 

// If we call RemoveAllParams, and then add some additional params,
// then the original params are gone, and only the new params exist.
req.RemoveAllParams();
req.AddParam('paramD','DDD');
req.AddParam('paramE','EEE');
req.AddParam('paramF','FFF');
Memo1.Lines.Add(req.GenerateRequestText());
Memo1.Lines.Add('---------------');

// Generates:

// 	POST /test123 HTTP/1.1
// 	Content-Type: application/x-www-form-urlencoded
// 	Host: domain
// 	Content-Length: 32
// 
// 	paramD=DDD&paramE=EEE&paramF=FFF
end;