Delphi DLL

Download Image (JPG, GIF, etc.) to Base64

See more HTTP Examples

Demonstrates how to download an image, or any type of file, to get the data in base64 encoding format. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
bd: HCkBinData;
statusCode: Integer;
base64_image_data: PWideChar;

begin
success := False;

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

http := CkHttp_Create();
CkHttp_putKeepResponseBody(http,True);

bd := CkBinData_Create();

success := CkHttp_DownloadBd(http,'https://www.chilkatsoft.com/images/starfish.jpg',bd);
statusCode := CkHttp_getLastStatus(http);
if (success = False) then
  begin
    if (statusCode = 0) then
      begin
        // Unable to either send the request or get the response.
        Memo1.Lines.Add(CkHttp__lastErrorText(http));
      end
    else
      begin
        // We got a response, but the status code was not in the 200s
        Memo1.Lines.Add('Response status code: ' + IntToStr(statusCode));
        // Examine the response body.
        Memo1.Lines.Add('Response body:');
        Memo1.Lines.Add(CkHttp__lastResponseBody(http));
      end;
    Memo1.Lines.Add('Download failed.');

  end
else
  begin
    Memo1.Lines.Add('Download success, response status = ' + IntToStr(statusCode));

    base64_image_data := CkBinData__getEncoded(bd,'base64');
    Memo1.Lines.Add('image data in base64 format:');
    Memo1.Lines.Add(base64_image_data);
  end;

CkHttp_Dispose(http);
CkBinData_Dispose(bd);

end;