社区
语言基础/算法/系统设计
帖子详情
怎样把WebBrowser1浏览的网页生成为一幅图片
hansonboy
2007-06-20 05:27:29
直接WebBrowser1.PaintTo 到image里为空白的
...全文
258
3
打赏
收藏
怎样把WebBrowser1浏览的网页生成为一幅图片
直接WebBrowser1.PaintTo 到image里为空白的
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
mclkings
2007-07-05
打赏
举报
回复
www.2ccc.com 上有现成代码.楼主可以下载看一下.
下载地址:
http://www.2ccc.com/article.asp?articleid=3653
brightyang
2007-07-05
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,shdocvw,MSHTML,ActiveX, OleCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
ViewObject: IViewObject;
sourceDrawRect: TRect;
begin
if Webbrowser1.Document <> nil then
try
webbrowser1.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);
image1.Repaint;
finally
ViewObject._Release;
end;
except
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(extractfilepath(paramstr(0))+'搜狐新闻.htm');
end;
end.
hansonboy
2007-07-05
打赏
举报
回复
up
jsp编程技巧集锦
数字转中文 128 自动计算金额 129 JSP页面打印中使用
Web
Browser
控件 130 不刷新页面添加新的类别 131 鼠标滚动缩放
图片
132 根据输入的表名
生
成输入数据表格 133 JSP表格输出到Excel 134.JSP...
如何对
web
browser
和IE编程
如何对
web
browser
和IE编程 一、 因为工作缘故,需要研究对IE编程,所以翻译了MS的有关资料,供参考。 IE的体系
Web
Browser
Host 首先,必须有COM的基础知识,因为IE本身就是COM技术的典型应用。我们...
本人编辑整理的JSP开发技巧集锦
jsp程序开发范例集锦141篇全部代码测试过目 录1.JSP编程中常用的js技术2. 在下拉列表框里选择一个值后跳出新窗口?3. 在JSP中启动execl?4. 两级下拉列表框联动菜单?5. java中如何把一个目录下的文件移到另一个指定的...
实用!超强VC/MFC 常见问答收集
自编
浏览
器进入一个
网页
后,点一个链接后系统自动调用用IE打开
网页
而不是用自身
浏览
器打开
网页
。如何让窗口用我自己的
浏览
器打开? 答 http://www.csdn.net/develop/read_article.asp?id=21702 控制新的...
我的一个关于文件的程序 - [C语言]
2005-09-05我的一个关于文件的程序 - [C语言]#includevoid main(){char ch;FILE* fp;if((fp=fopen("test.txt","r"))==NULL){printf("error");exit(1);}fseek(fp,0L,2);while((fseek(fp,-1L,1))!=-1){ch=fgetc(fp);pu
语言基础/算法/系统设计
16,748
社区成员
33,247
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章