Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Clear All Path Parameters on a REST Object
See more REST Examples
Demonstrates Rest.ClearAllPathParams, which removes every path-substitution parameter previously added with AddPathParam.
Background. Clearing path 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.AddPathParam('{userId}','12345');
// Remove all path-substitution parameters, for example before reusing the same Rest object.
rest.ClearAllPathParams();
WriteLn('All path 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.