保存网页为图片——滚动截取IE(WebBrowse)
对IE进行编程一直觉得是相当可怕的事情,里面的接口、函数、事件之多,解释之乱,需要了解的方方面面知识之博,让我仿佛看到了微软就是造物主,因为它已成功制造了这样的混沌,弄就了宇宙的初始状态……
近来做个项目,要截取网页,试了获取mht,开始倒是成功了,但不知装了什么软件后,就再也无法保存成mht了,查了一堆资料,修复了一轮,又可以部份保存成功,如此不稳定肯定不能应用,放弃!不得不赞的是,网文快捕的保存网页的插件的确是精品,成功率很高,不知在后面作者做了多少工作,可惜作者没有作为接口提供。于是决定还是截网页为图片,同时获取其中文字保存用于查询的方式,经过几日无数查找资料尝试,在终于崩溃之前,玉帝可怜我,终于让我成功,一直以来从网上众人文章中获益良多,赶快贴出来给不知多少像我这样可怜的人。
首先,声名使用到的文件:
uses ComObj,shDocvw,MSHtml,OleCtrls,jpeg,ActiveX;
然后声明用于获取IE WebBrowse实例的函数名:
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID;WPARAM: wParam; out pObject): HRESULT; stdcall;
再来一个函数,获取窗口图像的,非常好用啊,就算窗口被挡着、隐藏都能获取到,善用可以做出惊人效果来的东东:
function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';
获取IE实例及截图核心来了!
//获取IE实例,wHandle为IE的句柄,这段代码网上抄来,向作者致谢!
//wHandle可通过WindowFromPoint(GetCursorPos(pt))获得,获取的办
//法网上一搜一大堆了。
function GetIEFromHWND(wHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
hInst := LoadLibrary('Oleacc.dll');
@ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
if @ObjectFromLresult <> nil then
begin
try
MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
if Result = S_OK then
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp,
IWebbrowser2, IE);
finally
FreeLibrary(hInst);
pDoc := nil;
end;
end;
end; {指定IE窗口句柄,滚动获取整个网页图片
此函数执行完后能把IE原来滚动条位置复原,听起来这事很简单,爷找资料却是找到傻了云!如果网页有D3D这种东东的话,网上说的getAttribute('scrollTop', 0)什么的就用不了,混乱!混乱啊!
看了在下这文而受益的同学,不要忘了来感谢下啊,我也弄得很辛苦的。
}
procedure SaveWebPic(hIEHandle: Integer; webJpg: TJPEGImage);
var
rect: TRect;
webBmp: TBitMap;
i, j, webTop, webLeft, tLeft, tTop: integer;
ht, vt: array of Integer;
ie: IWebbrowser2;
iDoc: IHTMLDocument2;
vElement: IHTMLElement2;
procedure CaptureWeb(destBmp: TBitmap; destLeft, destTop, width, height: Integer);
var
temBmp: TBitmap;
begin
temBmp := TBitMap.Create();
temBmp.Height := height+2;
temBmp.Width := width+2;
PrintWindow(hIEHandle, temBmp.Canvas.Handle, 0);
BitBlt(destBmp.Canvas.Handle, destLeft, destTop, destLeft+width, destTop+height, temBmp.Canvas.Handle, 2, 2, SRCCOPY);
temBmp.Free;
end;
begin
if not Assigned(webJpg) then
Exit;
if GetIEFromHWND(hIEHandle, ie) <> S_OK then
Exit;
iDoc := ie.Document as IHTMLDocument2;
webBmp := TBitMap.Create();
webBmp.PixelFormat := pf24bit;
try
//temCanvas.Handle := GetDC(hIEHandle);
iDoc.body.setAttribute('scroll', 'yes', 0);
//保存原来滚动条位置
vElement := (iDoc as IHTMLDocument3).documentElement as IHTMLElement2;
if not Assigned(vElement) then
vElement := iDoc.Body as IHTMLElement2;
tTop := vElement.scrollTop;
tLeft := vElement.scrollLeft;
//获得网页的大小
webBmp.Height := vElement.scrollHeight;//iDoc.Body.getAttribute('scrollHeight', 0);
webBmp.Width := vElement.scrollWidth;//iDoc.Body.getAttribute('scrollwidth', 0);
//获得显示网页的窗口大小
// windows.GetClientRect(hIEHandle, rect);
// rect.Bottom := rect.Bottom - GetSystemMetrics(SM_CXHSCROLL) - GetSystemMetrics(SM_CXDLGFRAME);
// rect.Right := rect.Right - GetSystemMetrics(SM_CXVSCROLL) - GetSystemMetrics(SM_CXDLGFRAME);
rect.Right := vElement.clientWidth;
rect.Bottom := vElement.clientHeight;
//计算纵向和横向每次截取时,截取的高度、宽度
//网页的截取办法是去零传凑整,如窗口的高度是H,而网页的高度是WH,可先
//截取WH-H部份,剩下通过循环按H截取
SetLength(vt, webBmp.Height div rect.Bottom + 1);
SetLength(ht, webBmp.Width div rect.Right + 1);
vt[0] := webBmp.Height - (webBmp.Height div rect.Bottom) * rect.Bottom;
ht[0] := webBmp.Width - (webBmp.Width div rect.Right) * rect.Right;
for i:=1 to Length(vt)-1 do
vt[i] := rect.Bottom;
for i:=1 to Length(ht)-1 do
ht[i] := rect.Right; webLeft := 0;
for i:=0 to Length(ht)-1 do begin
webTop := 0;
iDoc.Get_ParentWindow.Scroll(webLeft, webTop);
for j:=0 to Length(vt)-1 do begin
CaptureWeb(webBmp, webLeft, webTop, ht[i], vt[j]);
webTop := webTop + vt[j];
iDoc.Get_ParentWindow.Scroll(webLeft, webTop);
end;
webLeft := webLeft + ht[i];
end;
webJpg.Assign(webBmp);
webJpg.SaveToFile('z:\demo.jpg');
finally
webBmp.Free;
SetLength(vt, 0);
SetLength(ht, 0);
iDoc.Get_ParentWindow.Scroll(tLeft, tTop);
end;
end;
保存网页为图片——滚动截取IE(WebBrowse)的更多相关文章
- Android高级图片滚动控件,编写3D版的图片轮播器
转载请注明出处:http://blog.csdn.net/guolin_blog/article/details/17482089 大家好,好久不见了,最近由于工作特别繁忙,已经有一个多月的时间没写博 ...
- 【精心推荐】12款很好用的 jQuery 图片滚动插件
这里收集了12款很好用的 jQuery 图片滚动插件分享给大家.jQuery 作为最流行的 JavaScript 框架,使用简单灵活,同时还有许多优秀的插件可供使用.其中最令人印象深刻的应用之一就是各 ...
- javascript实现图片滚动
闲来无事捣鼓了一个原来的js图片滚动 首先看看 静态页的结构: <body> <a href="javascript: le()">向左</a> ...
- 实例源码--Android图片滚动切换效果
下载源码 技术要点: 1.图片滚动切换技术 2.详细的源码注释 ...... 详细介绍: 1.图片滚动切换技术 本套源码实现了类似于网站图片滚动推广效果,效果不错,很不错的参考源码 2.源码目录 运 ...
- 10款很好用的 jQuery 图片滚动插件
jQuery 作为最流行的 JavaScript 框架,使用简单灵活,同时还有许多优秀的插件可供使用.其中最令人印象深刻的应用之一就是各种很酷的图片效果,它可以让的网站更具吸引力.这里收集了10款很好 ...
- 图片滚动js 实现图片无缝滚动
在改章节中,我们主要介绍图片滚动的内容,自我感觉有个不错的建议和大家分享下 非常平滑的JS图片滚动特效代码,无缝循环,速度可自定义,鼠标悬停时停止.它的特点是JS和图片地址分离,这样做你就经易的从数据 ...
- 原生js实现tab选项卡里内嵌图片滚动特效代码
<!DOCTYPE HTML><html lang="en-US"><head><meta charset="UTF-8&quo ...
- jquery图片滚动
注:代码来自17sucai网,已去除部分冗余代码,只保留图片效果 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional// ...
- Java图片工具类,完成图片的截取和任意缩放
package com.common.util; import java.awt.Graphics2D; import java.awt.Image; import java.awt.Renderin ...
随机推荐
- There is no satiety in study
好不容易考上了硕士.这个时候,才终于明白什么叫做学无止境.用了1周linux,发现需要学习的东西太多了.life is too short to learn c plus plus 果然如此.不过我们 ...
- 关于Git和Github
英文原文:Ten Things You Didn't Know Git And GitHub Could Do Git 和 GitHub 都是非常强大的工具.即使你已经使用他们很长时间,你也很有可能不 ...
- 在github搭建你的个人主页
一. 有没有遇到过在简历上要求写项目地址的经历.或者面试时面试官问你的项目在线地址是多少. 二. github 不但有代码托管的功能,还可以搭建在线演示项目,对于一个没有多少私房钱的穷屌丝,这个是不是 ...
- 解除被DenyHosts锁定的IP地址
自己的本本无法ssh上服务器,提示 ssh_exchange_identification: read: Connection reset by peer 仔细回想,自己手贱把~下面的一个ssh文件删 ...
- service:jmx:rmi:///jndi/rmi
service:jmx:rmi:///jndi/rmi://ip:9889/jmxrmi http://stackoverflow.com/questions/2768087/explain-jmx- ...
- relatedTarget, fromElement, toElement
原文:http://www.quirksmode.org/js/events_mouse.html#relatedtarget W3C在mouseover和mouseout事件中添加了relatedT ...
- C语言的本质(11)——指针与数组
1.指针数组和数组指针的内存布局 初学者总是分不出指针数组与数组指针的区别.其实很好理解:指针数组:首先它是一个数组,数组的元素都是指针,数组占多少个字节由数组本身决定.它是"储存指针的数组 ...
- 解决Admob Banner首次展示不显示的问题
Admob banner在第一次虽然加载成功了,但是却不显示.然后等待60秒刷新自动刷新,banner就能正常显示. 如果你没遇到过这种情况,那可能你用的不是集成在play-services里的库,因 ...
- Redis简介以及如何在Windows上安装Redis
Redis简介 Redis是一个速度非常快的非关系型内存数据库. Redis提供了Java,C/C++,C#,PHP,JavaScript,Perl,Object-C,Python,Ruby,Erla ...
- C++顺序性容器、关联性容器与容器适配器
什么是容器 首先,我们必须理解一下什么是容器,在C++ 中容器被定义为:在数据存储上,有一种对象类型,它可以持有其它对象或指向其它对像的指针,这种对象类型就叫做容器.很简单,容器就是保存其它对象的对象 ...