访问由TWebBrowser显示但未包含在其图像集合中的图像

uses
  MSHTML, SysUtils, IdHTTP;

procedure DownloadImageFromUrl(const Url: string; const FileName: string);
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.Get(Url, FileName);
  finally
    IdHTTP.Free;
  end;
end;

procedure ExtractImagesFromWebBrowser(WebBrowser: TWebBrowser; const FolderPath: string);
var
  Doc: IHTMLDocument2;
  ImgElements: IHTMLElementCollection;
  ImgElement: IHTMLImgElement;
  i: Integer;
  ImageUrl: string;
begin
  Doc := WebBrowser.Document as IHTMLDocument2;
  ImgElements := Doc.images;
  for i := 0 to ImgElements.length - 1 do
  begin
    ImgElement := ImgElements.item(i) as IHTMLImgElement;
    ImageUrl := ImgElement.src;
    if ImageUrl <> '' then
    begin
      DownloadImageFromUrl(ImageUrl, FolderPath + ExtractFileName(ImageUrl));
    end;
  end;
end;