如何將網頁瀏覽器中的所有內容保存爲圖片

Question

我想將網頁瀏覽器的內容保存爲圖片。那可能嗎？

目的是創建頁面的屏幕截圖，然後將其作爲圖像查看到其他應用程序。

任何人都可以提供幫助嗎？

Answer 1

下面是一個article它提供了一個例子：

uses ActiveX; 

procedure WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName) ; 
var 
    viewObject : IViewObject; 
    r : TRect; 
    bitmap : TBitmap; 
begin 
    if wb.Document <> nil then 
    begin 
    wb.Document.QueryInterface(IViewObject, viewObject) ; 
    if Assigned(viewObject) then 
    try 
     bitmap := TBitmap.Create; 
     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) ; 

     with TJPEGImage.Create do 
     try 
      Assign(bitmap) ; 
      SaveToFile(fileName) ; 
     finally 
      Free; 
     end; 
     finally 
     bitmap.Free; 
     end; 
    finally 
     viewObject._Release; 
    end; 
    end; 
end; 

，並使用這樣的：

procedure TForm1.FormCreate(Sender: TObject) ; 
begin 
    WebBrowser1.Navigate('http://delphi.about.com') ; 
end; 

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant) ; 
begin 
    WebBrowserScreenShot(WebBrowser1,'c:\WebBrowserImage.jpg') ; 
end;