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

最新推荐文章于 2021-06-01 06:08:50 发布
最新推荐文章于 2021-06-01 06:08:50 发布 · 938 阅读 · 0
文章标签：

#Delphi #Web

博客给出了使用Delphi从浏览器生成JPEG图片的代码。定义了GenerateJPEGfromBrowser过程，通过创建位图、视图对象等操作，将浏览器内容绘制到位图，再转换为JPEG保存。还给出了按钮点击事件代码，调用该过程生成图片并加载显示。 




 
 
  
  
procedureGenerateJPEGfromBrowser(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
  =
  nilthen
Exit;

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


  //
  Resizethesrcbitmaptothetargetbitmap
  //
  Needtomakethumbnailsinsteadoffullsize?
  //
  setthetargetsizehere..targetDrawRect:=Rect(0,0,tarWidth,tarHeight);
  

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


  //
  CreateaJPEGfromtheBitmapandsaveitaJPG.Assign(targetBitmap);
  

  
aJPG.SaveToFile(jpegFQFilename)

  finally
  
aJPG.Free;
sourceBitmap.Free;
targetBitmap.Free
end;
  ...
  {try}
  

except

  //
  errorhandlercodeend;{try}
  

  end;
  ...
  {GenerateJPEGfromBrowser}
  


procedureTForm1.Button2Click(Sender:TObject);
var
IDoc1:IHTMLDocument2;
Web:iWebBrowser2;
tmpX,
tmpY:integer;
begin
  ...
  {TForm1.Button2Click}
  
withWebBrowser1
  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;
  ...
  {withWebBrowser1}
  
end;
  ...
  {TForm1.Button2Click}
   
 




 

Source code ：HTTPtoJPEG.zip (3 kB)
 

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

http://www.applevb.com

                

        




    


  



    

      

        

            

              
                
                  iteye_3619
                
              
            

            

                关注
              
            

        

        

          
      

      










                



	

		

			

				
					
delphi FMX.WebBrowser与H5交互JavaScript

				
			

			

				

					pulledup的博客
				

				

					01-10
					
					9577
					
				

			

		

		

			
				
delphi FMX.WebBrowser与H5交互JavaScript

一、原理

1.1、前提条件(主要是针对MSWindows下对D10.4以下的TWebBrowser的支持，不过D10.4已解决了这个前提)

    你所选用的JS库或JS代码本身是很好的兼容IE10及其以上

    国内大厂和国外优质站点，一般在写Web代码时，都考虑了IE的兼容性问题。国内小厂，大多数的做得不好只考虑省事、少写了很多代码，引以为戒，你在发布自己的API时，一定要考虑浏览器内核的兼容...

			
		

	



                

            
              



	

		

			

				
					
Delphi WebBrowser设置自己定义User-Agent

					
热门推荐

				
			

			

				

					tanqth的专栏
				

				

					08-09
					
					1万+
					
				

			

		

		

			
				
我们自己有时候做项目需要使用到WebBrowser控件，同时不希望所访问的服务器知道某些不希望透露的信息，或是想要对服务端发送一些必须的信息时，也就需要对WebBrowser的User-Agent信息作出一些修改。

			
		

	



              


  
              

                


	

		

			

				
					
Delphi将网页保存为图片

				
			

			

				

					06-26
				

			

		

		

			
				
Delphi将网页保存为图片!
值得下载看看!资源免费,大家分享!! 
更多免费资源 http://ynsky.download.csdn.net/

			
		

	





	

		

			

				
					
WebBrowser 内容保存为图片

				
			

			

				

					skybot的专栏
				

				

					12-07
					
					3866
					
				

			

		

		

			
				
概述
最近在Winform的开发中用到了Flash动态图表FusionCharts Free，这是个开源的flash组件。商业版可以使用FusionCharts V3，免费版本的是FusionCharts
 Free v2.2。下载地址：http://www.fusioncharts.com/free/download/。大家可以去看看，效果还是非常炫的。商业版比免费版能够提供更多的图表，导出

			
		

	



		

			
		



	

		

			

				
					
利用Webbrowser把网页保存为图片

				
			

			

				

					weixin_33701251的博客
				

				

					04-21
					
					592
					
				

			

		

		

			
				
把网页另存为图片，记得最早知道这个功能是用“世界之窗”浏览器的时候发现的，好像很久前的事情了。一直不知其原理。
今日上班没事，突然想到了这个问题，于是乎在vs里敲下“Webbrowser1.” 然后就逐个逐个的看有什么好玩的方法。过了好一会儿轻击后，发现了一个比较吸引的字“DrawToBitmap”，有点意思后就试一试。
发现就是一个把控件画成图片的方法。突然意识到这个可以用来实现网页保存为...

			
		

	





	

		

			

				
					
Delphi中代替WebBrowser控件的第三…

				
			

			

				

					
				

				

					06-16
					
					264
					
				

			

		

		

			
				
http://blog.csdn.net/nanfeiyannan/article/details/7341492
这几天，接触到在delphi中内嵌网页，用delphi7自带的TWebBrowser控件，显示的内容与本机IE8显示的不一样，但是跟装IE8之前的IE6显示一个效果。现在赶脚是下面两个原因中的一个：
1.Navigate这个方法用的有点问题，里面的参数不同及Navigate2等不同方

			
		

	





	

		

			

				
					
Delphi 中预览Word文档示例修正版

				
			

			

				

					02-15
				

			

		

		

			
				
在delphi中读取word文档，显示缩略图并将文档分页显示。 在csdn 中下载了好几个都不能使用，1.数据存在问题，2.docx格式的word文档提取时，结束符判断错误，该程序包修正了以上两处错误，程序中的一些算法可以参考...

			
		

	





	

		

			

				
					
【Delphi与WebBrowser】：权威解读：如何从TWebBrowser彻底获取完整的HTML源码

				
			

			

				

					
				

			

		

		

			
				
TWebBrowser组件作为Delphi开发环境中的一个重要的控件，常用于网页内容的嵌入与显示。本文首先介绍了TWebBrowser组件的基础知识及其与HTML源码的关系，接着深入探讨了其内部结构、状态同步以及与ActiveX控件的交互...

			
		

	





	

		

			

				
					
delphi webbrowsser完整截图

				
			

			

				

					05-29
				

			

		

		

			
				
使用delphi webbrowser控件对网页展示，通过flash对数据进行图表分析，然后将内容完整截图，打印或邮件发送都可以，在做预警系统时有有意思

			
		

	





	

		

			

				
					
Delphi7.0仿360极速浏览器将网页保存成图片.rar

				
			

			

				

					07-10
				

			

		

		

			
				
Delphi写一个实用的功能，仿360极速浏览器把网页保存成图片，把全部的网页保存成一张图片，然后用图片查看器可以方便查看。本程序的功能虽然没有360极速浏览器的这个功能强大，但是基本原理写出来了，有需要的可在此基础上扩展吧，下边的代码段完成这一核心功能：
　　  webbrowser1.Document.QueryInterface(IViewObject, VObject);
　　  if VObject  nil then
　　    try
　　      SRect := Rect(0, 0, Image1.Width, Image1.Height);
　　      VObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,image1.Canvas.Handle, @SRect, nil, nil, 0);
　　    finally
　　      VObject._Release;
　　    end;
　　except
　　  showmessage('网页转换失败。');
　　end;

			
		

	





	

		

			

				
					
网页另存为图片

				
			

			

				

					01-30
				

			

		

		

			
				
保证无毒
简单,方便,实用 
实例可以自行改用 
如有非法,本人无法律责任,由改动代码人负责！ 
需要更多本人作品,查找标签“朱建强” 
请下载,杀毒后再使用！

			
		

	





	

		

			

				
					
Delphi7保存屏幕为图片

				
			

			

				

					09-07
				

			

		

		

			
				
Delphi7保存屏幕为图片，以下是主程序：
function TForm1.GetControlsImage(ACtrl: TWinControl): TBitmap;
var
  Ofs: Integer;
begin
  Result := TBitmap.Create;
  try
    Result.Width := ACtrl.ClientWidth;
    Result.Height := ACtrl.ClientHeight;
    Result.Canvas.Brush := ACtrl.Brush;
    Result.Canvas.FillRect(ACtrl.ClientRect);
    Result.Canvas.Lock;
    try
      if GetWindowLong(ACtrl.Handle, GWL_STYLE) and WS_BORDER  0 then
        Ofs := -1  // Don't draw form border
      else
        Ofs := 0;  // There is no border
      ACtrl.PaintTo(Result.Canvas.Handle, Ofs, Ofs);
    finally
      Result.Canvas.Unlock;
    end;
  except
    Result.Free;
    raise;
  end;
end;

			
		

	





	

		

			

				
					
将TCppWebBrowser内容存成图片

				
			

			

				

					06-23
				

			

		

		

			
				
将TCppWebBrowser存成jpeg图片文件

			
		

	





	

		

			

				
					
delphi RichEdit的内容保存为图片

				
			

			

				

					dkopg24406的专栏
				

				

					08-12
					
					489
					
				

			

		

		

			
				
{将RichEdit1的内容保存为图片，此函数也适合于RxRichEdit，即RichEdit: TRxRichEdit}
procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);
var
ImageCanvas: TCanvas;
fmt: TForma...

			
		

	





	

		

			

				
					
将WebBrowser中的页面截屏保存为图片

				
			

			

				

					tempsitegoogle
				

				

					05-14
					
					442
					
				

			

		

		

			
				
先说一点题外话，将WEB页面渲染成图片有比较好的开源工具，如CutyCapt ,它使用WebKit渲染，兼容多种操作系统，适合于在服务器上作为后台服务运行。

不过，这里说到的是对WebBrowser内的页面进行截图并保存. WebBrowser本质上就是IE内核的浏览器。使用mshtml来渲染页面的话，依赖GDI，所以不可能作为后台服务运行。
获取WebBrowser截屏的方法很多， Print...

			
		

	





	

		

			

				
					
《WebBrowser》保存WebBrowser中的图片 --- 脚本

				
			

			

				

					weixin_34258838的博客
				

				

					05-28
					
					252
					
				

			

		

		

			
				
有时候，我们需要在Windows Phone应用中使用WebBrowser控件来显示网页内容，在之前的博文《Windows Phone 中WebBrowser打开新窗口》中讲了如何在WebBrowser中打开新的窗口，今天来讲一下如何让用户保存网页中的图片。
其实思路跟上一篇文章一样，不同的是我们将图片从WebBrowser中拿出来了，具体的思路如下:
1. 将WebBrowser的Sourc...

			
		

	





	

		

			

				
					
delphi html转为图片,Delphi转换Word为HTML文件或其它类型文件的总结

				
			

			

				

					weixin_35953704的博客
				

				

					06-01
					
					319
					
				

			

		

		

			
				
关于delphi中转换office word文件为HTML文件，或者其它类型的文件的一些总结，这里测试的环境是:windows xp,office200，delphixe，原理是利用win32com接口直接调用office API，好处是简单、兼容性好，只要office能处理的，处理出来的结果和office word里面“另存为”一致。在保存时，Fword.ActiveDocument.savea...

			
		

	





	

		

			

				
					
python webbrowser  获取页面文本信息

					
最新发布

				
			

			

				

					09-27
				

			

		

		

			
				
<think>首先，用户的问题是：“我想查找使用Python的webbrowser库获取页面文本信息的方法 请问Python使用webbrowser库获取页面文本信息的方法”。用户询问如何使用Python的webbrowser库来获取页面文本信息。

回顾系统级指令：
- 所有行内数学表达式必须使用$...$格式。
- 独立公式使用$$...$$格式。
- LaTeX语法正确。
- 使用中文回答。
- 生成相关问题。
- 在引用的段落末尾自然地添加引用标识。

用户提供了几个引用：
- [^1]：关于webbrowser.open()函数启动浏览器打开URL。
- [^2]：使用webbrowser模块打开浏览器，结合sys.argv和pyperclip处理命令行参数或剪贴板地址。
- [^3]：类似[^1]，webbrowser.open()打开URL。
- [^4]：包含webbrowser模块的使用，以及requests模块下载网页内容。
- [^5]：使用WebBrowser控件获取网页源码（但这是Delphi代码，不直接相关）。

关键点是：用户想用webbrowser库获取页面文本信息，但参考引用中，webbrowser主要用于打开浏览器，而不是获取文本内容。引用[^4]提到了requests模块来下载文件或页面内容。

从引用[^4]：
- 它有示例代码：`import requests; res = requests.get('https://www.gutenberg.org/cache/epub/1112/pg1112.txt')`，然后可以通过`res.text`获取文本。
- 它强调了requests模块用于下载网页内容，而webbrowser只是用于打开浏览器。

所以，webbrowser库本身主要用于打开浏览器窗口，并不提供获取页面文本的功能。用户可能需要使用其他库如requests或BeautifulSoup来获取和处理网页内容。

回答结构：
1. **澄清需求**：解释webbrowser库的功能限制。
2. **推荐替代方法**：建议使用requests模块或其他库来获取文本信息。
3. **提供示例代码**：基于引用[^4]，展示如何使用requests获取页面文本。
4. **生成相关问题**：在结束时生成相关问题。
5. **添加引用标识**：在相关段落末尾添加引用标识。

确保使用中文回答。

总结回答：
- 引言：确认用户查询，指出webbrowser库不适合获取文本。
- 主体：解释正确的方法，使用requests模块。
- 代码示例：提供Python代码示例。
- 结论：总结。
- 相关问题：结束时生成相关问题。

添加引用：
- 当提到引用[^4]的内容时，添加[^4]。

最终输出格式：
- 回答要清晰、结构化。
- 使用中文。
- 末尾添加相关问题。
</think>### 使用 Python webbrowser 库获取页面文本信息的方法

您的问题是关于使用 Python 的 `webbrowser` 库获取网页文本信息的方法。需要强调的是，**`webbrowser` 库主要用于启动浏览器并打开指定的 URL，但不提供直接获取页面文本内容的功能**。该库的核心函数 `webbrowser.open()` 只是控制浏览器打开网页，无法返回文本数据。引用中的多个示例（如 `webbrowser.open('https://www.csdn.net/')`）都展示了这一点[^1][^2][^3]。

如果您需要从网页获取文本信息（如 HTML 源码或纯文本），建议使用专门的网络请求库（如 `requests`）或网页解析库（如 `BeautifulSoup`）。以下是详细的解决方案：

#### 1. **为什么不使用 webbrowser 获取文本？**
   - `webbrowser` 库设计用于自动化浏览器操作（例如打开页面），但不支持读取页面内容。尝试通过它获取文本会失败，因为它只触发浏览器行为而不返回数据。引用中的 Delphi 示例涉及控件交互，但在 Python 中不适用[^5]。
   - 替代方案：使用 `requests` 库下载网页内容，或结合 `selenium` 模拟浏览器行为（适合动态网页）。

#### 2. **推荐方法：使用 requests 库获取文本信息**
   基于引用[^4]，`requests` 模块是 Python 中高效获取网页文本的标准工具。它可以直接下载 HTML 源码或文本内容：
   - **步骤**：
     1. 安装 `requests` 库（如未安装）：运行 `pip install requests`。
     2. 使用 `requests.get()` 发送 HTTP 请求。
     3. 通过 `response.text` 属性获取文本内容。
   - **示例代码**：
     ```python
     import requests

     # 获取网页文本内容
     url = 'https://www.example.com'  # 替换为目标网址
     response = requests.get(url)
     
     # 检查请求状态
     if response.status_code == 200:  # 200 表示成功
         page_text = response.text    # 获取完整 HTML 文本
         print(page_text[:500])       # 打印前500字符（避免大文本输出）
     else:
         print(f"请求失败，状态码: {response.status_code}")
     ```
     - 此代码下载指定 URL 的 HTML 源码，存储在 `page_text` 变量中。您可以进一步用 `BeautifulSoup` 解析提取纯文本。
     - 引用[^4] 提供了类似示例，展示了 `requests.get()` 的基本用法和错误检查方法。

#### 3. **进阶方法：结合 BeautifulSoup 提取纯文本**
   如果需要从 HTML 中提取非标签文本（如文章正文），可添加 `BeautifulSoup`：
   - 安装库：运行 `pip install beautifulsoup4`。
   - 示例代码：
     ```python
     import requests
     from bs4 import BeautifulSoup

     url = 'https://www.example.com'
     response = requests.get(url)
     
     if response.status_code == 200:
         soup = BeautifulSoup(response.text, 'html.parser')  # 解析 HTML
         clean_text = soup.get_text()                       # 获取纯文本
         print(clean_text[:300])                            # 打印部分文本
     else:
         print("下载失败")
     ```

#### 4. **webbrowser 的适用场景**
   尽管无法获取文本，`webbrowser` 在以下场景有用：
   - 快速打开浏览器查看网页（如 `webbrowser.open('https://www.csdn.net/')`[^3]）。
   - 结合命令行参数处理（如 `sys.argv`），实现自动化跳转（引用示例中的 `mapIt.py`）[^2][^4]。

### 总结
- **核心建议**：使用 `requests` 库而非 `webbrowser` 获取页面文本，因为后者仅限于浏览器控制功能。`requests.get().text` 是高效的标准方法[^4]。
- **注意事项**：处理动态网页（如 JavaScript 渲染）时，可能需要 `selenium`，但 `requests` 适用于静态页面。

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

  

	
    

      

      

      

        
        

          
          

            

              成就一亿技术人!
            

            

              拼手气红包6.0元
            

          

        

        

          

            还能输入1000个字符
          

          

             
          

          

            

              红包
              添加红包
            

            

              表情包
              插入表情
              

                

              

            

            

              表情包
              代码片
              

                
              

            

            

              
              
              
              
              
              
              
            

          

        

      

    

		

			

			

			

					 条评论被折叠 查看
			

			

				
			

		

	

	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值