procedureTForm1.Button1Click(Sender: TObject); var
ViewObject: IViewObject; sourceDrawRect: TRect; begin
if
EmbeddedWB1.Document <> nil
then
try
EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject); if
ViewObject <> nil
then
try
sourceDrawRect := Rect(0, 0, Image1.Width, Image1.Height); ViewObject.Draw(DVASPECT_CONTENT, 1, nil
, nil
, Self.Handle, image1.Canvas.Handle, @sourceDrawRect, nil
, nil
, 0); finally
ViewObject._Release; end
; except
end
; end
;