(Delphi DLL) REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

Demonstrates how the autoReconnect argument to the Connect method is used.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
success: Boolean;
responseXml: PWideChar;
xml: HCkXml;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

rest := CkRest_Create();

// This example demonstrates the usage of the autoReconnect argument to the Connect method.
// When autoReconnect is on, subsequent REST method calls will automatically re-connect
// if necessary, using the same information (domain/IP address, port number, and TLS).
bTls := False;
port := 80;
bAutoReconnect := True;
success := CkRest_Connect(rest,'dev.markitondemand.com',port,bTls,bAutoReconnect);

// Get a stock quote:
success := CkRest_AddQueryParam(rest,'symbol','AAPL');
responseXml := CkRest__fullRequestNoBody(rest,'GET','/MODApis/Api/v2/Quote');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

xml := CkXml_Create();
success := CkXml_LoadXml(xml,responseXml);
Memo1.Lines.Add('AAPL LastPrice: ' + CkXml__getChildContent(xml,'LastPrice'));

// Get another stock quote.  If a new HTTP connection is required,
// the REST object will automatically connect using the same parameters.
success := CkRest_AddQueryParam(rest,'symbol','AMZN');
responseXml := CkRest__fullRequestNoBody(rest,'GET','/MODApis/Api/v2/Quote');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

success := CkXml_LoadXml(xml,responseXml);
Memo1.Lines.Add('AMZN LastPrice: ' + CkXml__getChildContent(xml,'LastPrice'));

CkRest_Dispose(rest);
CkXml_Dispose(xml);

end;