CSDN问答：Delphi中如何保存Webbrowser中的页面到图片

 

 
 

  
  

   
   
   
   
procedure GenerateJPEGfromBrowser(browser: iWebBrowser2;
                                  jpegFQFilename: 
   
   string
   
   ; srcHeight:
                                  integer; srcWidth: integer;
                                  tarHeight: integer; tarWidth: integer);
var
  sourceDrawRect: TRect;
  targetDrawRect: TRect;
  sourceBitmap  : TBitmap;
  targetBitmap  : TBitmap;
  aJPG          : TJPEGImage;
  aViewObject   : IViewObject;
begin 
   
   ...
   
   { GenerateJPEGfromBrowser }
   
   
  sourceBitmap :
   
   =
   
    TBitmap.Create;
  targetBitmap :
   
   =
   
    TBitmap.Create;
  aJPG :
   
   =
   
    TJPEGImage.Create;
  
   
   try
   
   
    
   
   try
   
   
      sourceDrawRect :
   
   =
   
    Rect(
   
   0
   
   , 
   
   0
   
   , srcWidth, srcHeight);
      sourceBitmap.Width :
   
   =
   
    srcWidth;
      sourceBitmap.Height :
   
   =
   
    srcHeight;

      aViewObject :
   
   =
   
    browser 
   
   as
   
    IViewObject;

      
   
   if
   
    aViewObject
   
   =
   
   nil then
        Exit;

      OleCheck(aViewObject.Draw(DVASPECT_CONTENT, 
   
   1
   
   , nil, nil,
                               Form1.Handle,
                               sourceBitmap.Canvas.Handle,
                               @sourceDrawRect, nil, nil, 
   
   0
   
   ));

      
   
   //
   
    Resize the src bitmap to the target bitmap      
   
   //
   
    Need to make thumbnails instead of full size?      
   
   //
   
    set the target size here..       targetDrawRect := Rect(0, 0, tarWidth, tarHeight);
   
   

   
         targetBitmap.Height :
   
   =
   
    tarHeight;
      targetBitmap.Width :
   
   =
   
    tarWidth;
      targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);

      
   
   //
   
    Create a JPEG from the Bitmap and save it      aJPG.Assign(targetBitmap);
   
   

   
   
      aJPG.SaveToFile(jpegFQFilename)
    
   
   finally
   
   
      aJPG.Free;
      sourceBitmap.Free;
      targetBitmap.Free
    end; 
   
   ...
   
   { try }
   
   

  except
    
   
   //
   
    error handler code  end; { try }
   
   

   
   end; 
   
   ...
   
   { GenerateJPEGfromBrowser }
   
   


procedure TForm1.Button2Click(Sender: TObject);
var
  IDoc1: IHTMLDocument2;
  Web  : iWebBrowser2;
  tmpX,
  tmpY : integer;
begin 
   
   ...
   
   { TForm1.Button2Click }
   
   
  with WebBrowser1 
   
   do
   
    
  begin
    Document.QueryInterface(IHTMLDocument2, IDoc1); 
    Web :
   
   =
   
    ControlInterface; 
    tmpX :
   
   =
   
    Height; 
    tmpY :
   
   =
   
    Width; 
    Height :
   
   =
   
    OleObject.Document.ParentWindow.Screen.Height; 
    Width :
   
   =
   
    OleObject.Document.ParentWindow.Screen.Width; 
    GenerateJPEGfromBrowser(Web, 
   
   '
   
   .	est.jpg
   
   '
   
   ,
                            Height, Width,
                            Height, Width);
    Height :
   
   =
   
    tmpX;
    Width :
   
   =
   
    tmpY;

    Image1.Picture.LoadFromFile(
   
   '
   
   .	est.jpg
   
   '
   
   )
  end; 
   
   ...
   
   { with WebBrowser1 }
   
   
end; 
   
   ...
   
   { TForm1.Button2Click }
   
    
  
  
 
 

Source code ：HTTPtoJPEG.zip (3 kB)

原文连接：
http://www.delphifaq.com/fq/q2231.shtml

http://www.applevb.com