Delphi ActiveX

Keeping Query Params in a Hashtable

Demonstrates how to use a Chilkat Hashtable to hold query params and re-emit as a query param string.

Note: The ToQueryString method was added in Chilkat v9.5.0.92.

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
success: Integer;
ht: TChilkatHashtable;
qp: WideString;
keys: TChilkatStringTable;
numKeys: Integer;
key: WideString;
val: WideString;
i: Integer;

begin
success := 0;

ht := TChilkatHashtable.Create(Self);

// Add name/value pairs from an existing query param string where the values are already URL encoded.
qp := 'txt=this%20is%20a%20test&color=blue&fruits=apples%26oranges';
success := ht.AddQueryParams(qp);

// Add some additional name/value pairs.
ht.AddStr('name','Jack Sparrow');
ht.AddStr('movie','Pirates of the Carribean');

// Iterate over the hash table to show what we have..

keys := TChilkatStringTable.Create(Self);
ht.GetKeys(keys.ControlInterface);
numKeys := keys.Count;

i := 0;
while i < numKeys do
  begin
    key := keys.StringAt(i);
    val := ht.LookupStr(key);
    Memo1.Lines.Add(key + ' = ' + val);
    i := i + 1;
  end;

// Output for the above loop:

// color = blue
// name = Jack Sparrow
// fruits = apples&oranges
// txt = this is a test
// movie = Pirates of the Carribean

// Get all name/value pairs as a query parm string with values URL encoded
qp := ht.ToQueryString();
Memo1.Lines.Add(qp);

// Result:
// color=blue&name=Jack%20Sparrow&fruits=apples%26oranges&txt=this%20is%20a%20test&movie=Pirates%20of%20the%20Carribean
end;