Delphi ActiveX

Download Web Page to MHT and Extract Images (all in memory)

See more MHT / HTML Email Examples

Downloads a web page to an MHT archive (in memory) and then extracts each image to a byte array in memory. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
url: WideString;
mht: TChilkatMht;
mhtStr: WideString;
email: TChilkatEmail;
numRelatedItems: Integer;
i: Integer;
sbContentType: TChilkatStringBuilder;
imageData: Array of Byte;

begin
success := 0;

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

// Note: This URL exists at the time of writing and testing this example (on 12-June-2020)
// However, it will surely not continue to exist for very long.
// You should choose a different URL.  (Any web page with images will do.)
url := 'https://www.fendi.com/it/abbigliamento-uomo/cravatta-fxc160a3nwf0qg2';

mht := TChilkatMht.Create(Self);

// Downloads to an MHT string.
// MHT is just MIME, which is the same format as an email but with different semantics.
mhtStr := mht.GetMHT(url);
if (mht.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(mht.LastErrorText);
    Exit;
  end;

// We can still treat the MHT MIME as an email and iterate over the "related items".
email := TChilkatEmail.Create(Self);
success := email.SetFromMimeText(mhtStr);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

numRelatedItems := email.NumRelatedItems;
i := 0;
sbContentType := TChilkatStringBuilder.Create(Self);
while i < numRelatedItems do
  begin
    sbContentType.SetString(email.GetRelatedContentType(i));
    Memo1.Lines.Add('Content-Type: ' + sbContentType.GetAsString());

    if (sbContentType.StartsWith('image/',0) = 1) then
      begin
        // We have an image.
        // Get the image data.
        imageData := email.GetRelatedData(i);

        // Do what you need with the image data..
      end;
    i := i + 1;
  end;
end;