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

上传者: 39841882 | 上传时间: 2021-09-23 18:10:06 | 文件大小: 116KB | 文件类型: RAR
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;

文件下载

资源详情

[{"title":"( 11 个子文件 116KB ) Delphi7.0仿360极速浏览器将网页保存成图片.rar","children":[{"title":"srcfans.com","children":[{"title":"网页保存成图片","children":[{"title":"2.jpg <span style='color:#111;'> 156.59KB </span>","children":null,"spread":false},{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"1.gif <span style='color:#111;'> 154B </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 1.74KB </span>","children":null,"spread":false},{"title":"Unit1.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 1.33KB </span>","children":null,"spread":false},{"title":"index.htm <span style='color:#111;'> 1.95KB </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 1.97KB </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 5.42KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}],"spread":true}]

评论信息

免责申明

【只为小站】的资源来自网友分享,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论 【只为小站】 经营者是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二条之规定,若资源存在侵权或相关问题请联系本站客服人员,zhiweidada#qq.com,请把#换成@,本站将给予最大的支持与配合,做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明