Delphi DLL

REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
rest: HCkRest;
pathPartOfUrl: PWideChar;
domain: PWideChar;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
bd: HCkBinData;
sbErrorText: HCkStringBuilder;

begin
success := False;

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

rest := CkRest_Create();

// We're going to download a sample MS-Word doc file.
// The URLs of our MS-Word sample documents are:

// https://www.chilkatdownload.com/sample_data/sample.doc
// https://www.chilkatdownload.com/sample_data/sample.docx

pathPartOfUrl := '/sample_data/sample.doc';
domain := 'chilkatdownload.com';

bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,domain,port,bTls,bAutoReconnect);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

bd := CkBinData_Create();
success := CkRest_FullRequestNoBodyBd(rest,'GET',pathPartOfUrl,bd);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// A 200 response is expected for actual success.
// If we don't get a 200 response, then the response body was not actually
// the file data, but it was text containing error information.
if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    sbErrorText := CkStringBuilder_Create();
    CkStringBuilder_AppendBd(sbErrorText,bd,'utf-8',0,0);
    Memo1.Lines.Add(CkStringBuilder__getAsString(sbErrorText));
    Memo1.Lines.Add('-- Failed.');
    Exit;
  end;

// Save to a local file.
// Change the file path based on your operating system or needs...
success := CkBinData_WriteFile(bd,'c:/temp/qa_output/sample.doc');
if (success <> True) then
  begin
    Memo1.Lines.Add('Failed to save to local file.');
    Exit;
  end;

Memo1.Lines.Add('REST Download of MS-Word File was successful.');

CkRest_Dispose(rest);
CkBinData_Dispose(bd);
    CkStringBuilder_Dispose(sbErrorText);

end;