Image from TWebBrowser -> TPicture

[Ryzinski]

hi!

i found a c# solution but i have no idea how to do this in delphi.

Code:

  IHTMLDocument2 doc = (IHTMLDocument2)wb1.Document.DomDocument;
            IHTMLControlRange imgRange = (IHTMLControlRange)((HTMLBody)doc.body).createControlRange();

            foreach (IHTMLImgElement img in doc.images)
            {
                if (img.nameProp.Contains('sometag'))
                {
                    IHTMLElementRenderFixed render = (IHTMLElementRenderFixed)img;
                    Bitmap bmp = new Bitmap(img.width, img.height);
                    Graphics g = Graphics.FromImage(bmp);
                    IntPtr hdc = g.GetHdc();
                    render.DrawToDC(hdc);
                    g.ReleaseHdc(hdc);

                    ImageBmp = bmp;
                    break;
                }
            }
        }

[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;

[Ryzinski]

// Whoops :)

[Sir Rufo]

Yes Mr. Joey Smith

[Bummi]

für alle die den jetzt nicht verstanden haben:
http://stackoverflow.com/questions/1...er-to-tpicture