Teil einer Webbrowser-Ansicht als JPG speichern

[DelphiFan2008]

Hallo,

habe diese Variante in einem eigenen Programm verwendet um ein Bitmap aus WebBrowser zu erzeugen

Delphi-Quellcode:

procedure WebBrowserScreenShot( const wb:TWebBrowser; Bitmap:TBitmap );
var viewObject : IViewObject;
    r          : TRect;
begin
  if wb.Document <> nil then
  begin
    wb.Document.QueryInterface( IViewObject,viewObject );
    if Assigned( viewObject )then
    try
      r := Rect( 0,0,wb.Width,wb.Height );

      Bitmap.Height := wb.Height;
      Bitmap.Width  := wb.Width;

      viewObject.Draw( DVASPECT_CONTENT,1,nil,nil,Application.Handle,Bitmap.Canvas.Handle,@r,nil,nil,0 );

    finally
      viewObject._Release;
    end;
  end;
end;