Download a Binary REST Response into BinData

See more REST Examples

Demonstrates Rest.FullRequestNoBodyBd, which sends a request with no body and stores the binary response body in a BinData.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

var
success: Boolean;
rest: HCkRest;
bTls: Boolean;
bAutoReconnect: Boolean;
bdResponse: HCkBinData;
bSaved: Boolean;

begin
success := False;

rest := CkRest_Create();
bTls := True;
bAutoReconnect := True;
success := CkRest_Connect(rest,'example.com',443,bTls,bAutoReconnect);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

//  The file paths are relative to the application's current working directory.  Absolute paths
//  may also be used.  Supply the paths appropriate to your own environment.

//  FullRequestNoBodyBd sends a request with no body and stores the binary response body in a
//  BinData.  This is appropriate when the response is binary, such as an image or file download.
bdResponse := CkBinData_Create();
success := CkRest_FullRequestNoBodyBd(rest,'GET','/api/images/1',bdResponse);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

bSaved := CkBinData_WriteFile(bdResponse,'qa_output/image.png');
if (bSaved <> True) then
  begin
    Memo1.Lines.Add('Failed to save the response body.');
    Exit;
  end;
Memo1.Lines.Add('Downloaded ' + IntToStr(CkBinData_getNumBytes(bdResponse)) + ' bytes.');

CkRest_Dispose(rest);
CkBinData_Dispose(bdResponse);