Image from TWebBrowser -> TPicture

[Sir Rufo]

It is nearly exact the same in delphi

Delphi-Quellcode:

var
  doc :      IHTMLDocument2;
  imgRange : IHTMLControlRange;
  img :      IHTMLImgElement;
  render :   IHTMLElementRender;

  bmp :  TBitmap;
  _hdc : HDC;

  img_NameProp : string;
  img_idx :      Integer;
begin
  doc      := Browser_WebBrowser.Document as IHTMLDocument2;
  imgRange := ( doc.body as HTMLBody ).createControlRange as IHTMLControlRange;

  for img_idx := 0 to Pred( doc.images.length ) do
    begin

      img := doc.images.item( img_idx, EmptyParam ) as IHTMLImgElement;

      img_NameProp := Utf8ToAnsi( UTF8Encode( img.nameProp ) );
      if ContainsText( img_NameProp, 'sometag' )
      then
        begin
          render := ( img as IHTMLElementRender );

          bmp := TBitmap.Create;
          try
            bmp.Width  := img.Width;
            bmp.Height := img.Height;

            _hdc := bmp.Canvas.Handle;

            render.DrawToDC( _hdc );

            Image1.Picture.Assign( bmp );

          finally
            bmp.Free;
          end;
          break;
        end;
    end;
end;