Delphi DLL

Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams. Delphi DLL

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

...

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

begin
req := CkHttpRequest_Create();

CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/test123');
CkHttpRequest_putContentType(req,'application/x-www-form-urlencoded');
CkHttpRequest_AddParam(req,'paramA','AAA');
CkHttpRequest_AddParam(req,'paramB','BBB');
CkHttpRequest_AddParam(req,'paramC','CCC');

Memo1.Lines.Add(CkHttpRequest__generateRequestText(req));
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.
CkHttpRequest_RemoveAllParams(req);
CkHttpRequest_AddParam(req,'paramD','DDD');
CkHttpRequest_AddParam(req,'paramE','EEE');
CkHttpRequest_AddParam(req,'paramF','FFF');
Memo1.Lines.Add(CkHttpRequest__generateRequestText(req));
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

CkHttpRequest_Dispose(req);

end;