WebBrowser сохранить картинку

[StartMis]

Помогите разобраться. на шел в сети как сохранять картинку за груженую в WebBrowser

procedure SaveImageFromIHtmlDocument2(AIHtmlDocument2: IHtmlDocument2; const ADir: string);
var Images: IHTMLElementCollection;
    i: Integer;
    ImgElement: IHTMLImgElement;
    URL: string;
    Buff: Pointer;
    BuffSize: DWORD;
    CacheName: string;
    NewName: string;
    P: Integer;
    ElementRender: IHTMLElementRender;
    Bitmap: TBitmap;
begin
  if not Assigned(AIHtmlDocument2) then exit;
  Images := AIHtmlDocument2.images;
  if not Assigned(Images) then exit;
  for i := 0 to Images.length - 1 do
    if Succeeded(Images.item(i, 0).QueryInterface(IHTMLImgElement, ImgElement)) then
      try
        CacheName := '';
        URL := ImgElement.src;
        NewName := URL;
        P := LastDelimiter('/', NewName);
        if P > 0 then Delete(NewName, 1, P);
        NewName := ADir + NewName;
        Buff := nil;
        BuffSize := 0;
        if not RetrieveUrlCacheEntryFile(PChar(URL), TInternetCacheEntryInfo(Buff^), BuffSize, 0) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
          begin
            GetMem(Buff, BuffSize);
            try
              if RetrieveUrlCacheEntryFile(PChar(URL), TInternetCacheEntryInfo(Buff^), BuffSize, 0) then
              try
                
        if Succeeded(ImgElement.QueryInterface(IHTMLElementRender, ElementRender)) then
          try
            Bitmap := TBitmap.Create;
            try
              with ImgElement as IHTMLElement, Bitmap, Canvas do
                begin
                  Width := offsetWidth;
                  Height := offsetHeight;
                  Brush.Color := clWhite;
                  FillRect(ClipRect);
                  ElementRender.DrawToDC(Handle);
                end;
            finally
              Bitmap.Free;
            end;
          finally
            ElementRender := nil;
          end;
        Form1.ListBox1.Items.Add(CacheName);
      finally
        ImgElement := nil;
      end;
end;

Вопрос что нужно подключить в uses. и какие параметры нужно передать процедуре

[StartMis]

все проблема решена. тема закрыта

[izogfif]

Не могли бы Вы поделиться решением, пожалуйста?

[QWERYTY]

Малорик! Себе проблему решил, а остальные нах.

Я этот код запустить не пробовал, но с WebBrowser работал.
Думаю тут нужно смотреть в сторону ActiveX.dcu и MSHTML.dcu.
ShDocVw.dcu если не ошибаюсь сам прописывается при размещении WebBrowser на форму.


Всем удачи.