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;
1