Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Clear All Query Parameters on a REST Object
See more REST Examples
Demonstrates Rest.ClearAllQueryParams, which removes every query parameter previously added to the object.
Background. Clearing query parameters resets request state before reusing the same Rest object for an unrelated request.
Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.Rest;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
rest: TRest;
bTls: Boolean;
bAutoReconnect: Boolean;
begin
success := False;
rest := TRest.Create;
// Connect to the REST server. The 3rd argument enables TLS (use True for HTTPS on port 443),
// and the 4th enables automatic reconnection if the connection is dropped between requests.
bTls := True;
bAutoReconnect := True;
success := rest.Connect('example.com',443,bTls,bAutoReconnect);
if (success = False) then
begin
WriteLn(rest.LastErrorText);
Exit;
end;
rest.AddQueryParam('q','chilkat');
rest.AddQueryParam('limit','10');
// Remove all query parameters, for example before reusing the same Rest object for a different
// request.
rest.ClearAllQueryParams();
WriteLn('All query parameters cleared.');
rest.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.