Delphi DLL

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

See more REST Examples

Demonstrates how the autoReconnect argument to the Connect method is used. Delphi 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
success: Boolean;
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
responseXml: PWideChar;
xml: HCkXml;

begin
success := False;

// 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;