Delphi examples using the ActiveBarcode REST API

ActiveBarcodeREST-API-with-Delphi.pas

// On a form (Form1) there are an input field (Edit1), 
// an image (Image1) and a button (Button1). 
// If you click on the button, a barcode with the text of the input field 
// is retrieved via Barcode API and drawn into the image.
// 
// For the retrieval the TIdHTTP (Indy Clients) component is used 
// (included with Delphi 10.x). 
// This component can be integrated by simply placing it on the form. 
// Please note that for the https call the OpenSSL DLLs 
// 'libeay32.dll' and 'ssleay32.dll' are required, e.g. in the program folder.
//
procedure TForm1.Button1Click(Sender: TObject);
var
  MS : TMemoryStream;
  MyPNG: TPNGImage;
  tmp : STRING;
  sURL : STRING;
  sParam: STRING;
begin
  MS := TMemoryStream.Create;
  MyPNG := TPNGImage.Create;
  try
    sURL := 'https://api.activebarcode.net/v1/png?access=YOUR-KEY-HERE&';
    tmp := StringReplace(Edit1.Text, ' ', '%20',[rfReplaceAll]);
    sParam := 'code=CODE128&text='+tmp+'&width='+inttostr(Image1.Width)+
    '&height='+inttostr(Image1.Height);
    IdHTTP1.get(sURL+sParam,MS);
    Ms.Seek(0,soFromBeginning);
    MyPNG.LoadFromStream(MS);
    Image1.Picture.Assign(MyPNG);
  finally
    FreeAndNil(MyPNG);
    FreeAndNil(MS);
  end;
end;