随笔分类 -  Delphi-WebBrowser

摘要:testWebBrowserDlg.h [cpp] view plain copy // testWebBrowserDlg.h : 头文件 // #pragma once #include "explorer1.h" #import "C:\windows\system32\mshtml.tlb" 阅读全文
posted @ 2017-10-07 21:12 findumars 阅读(785) 评论(0) 推荐(0) 编辑
摘要:这段时间在做一个delphi界面打开网页的功能,且此网页所在窗口可完整显示,可缩小到另一个窗口的panel上显示 可是在改变网页所在窗口时,WebBrowser控件变成了空白 上网google了半天,终于在csdn上查到了解决方案: 原帖地址:http://bbs.csdn.NET/topics/2 阅读全文
posted @ 2017-07-24 19:44 findumars 阅读(846) 评论(0) 推荐(0) 编辑
摘要:WebBrowser控件配置与IE的配置相同 方法一 使用Document属性得到 Document 层WebBrowser.Document:IDispatch //是IDispatch接口 Var Doc: IHTMLDocument2;begin ... try //注意:使用 As 时必须加 阅读全文
posted @ 2017-02-23 22:09 findumars 阅读(477) 评论(0) 推荐(0) 编辑
摘要://项目中添加Micrsoft.mshtml引用 --c:/temp/temp.htm-- <html> <script language="JavaScript"> var Temp = "Zswang 路过 :)"; </script> </html> using mshtml; private 阅读全文
posted @ 2017-01-24 22:18 findumars 阅读(771) 评论(0) 推荐(0) 编辑
摘要:控制WebBrowser实际上就是控制IE,最简单的方法就是执行javascript或vbscript,省去了接口的转换。如何执行脚本?以前我一直用mshtml中IHTMLWindow2接口的execScript()方法,在Delphi中需要uses MSHTML单元: uses MSHTML; p 阅读全文
posted @ 2017-01-24 22:16 findumars 阅读(2351) 评论(0) 推荐(0) 编辑
摘要://第二种方法可以有更多控制procedure TForm1.Button1Click(Sender: TObject);procedure OpenInIE(aURL: string);//need uses ComObj; var IE: Variant;begin IE := CreateOl 阅读全文
posted @ 2016-09-06 18:37 findumars 阅读(669) 评论(0) 推荐(0) 编辑
摘要:ExecuteJavaScript(WebBrowser:TWebBrowser; Code: string):Variant;var //发送脚本Document:IHTMLDocument2;Window:IHTMLWindow2;begin// execute javascript in we 阅读全文
posted @ 2016-08-22 20:51 findumars 阅读(841) 评论(0) 推荐(0) 编辑
摘要:版本:DELPHI XE8 操作交通银行信用卡申请表单(2016-03-23),网址如下: https://creditcardapp.bankcomm.com/applynew/front/apply/new/identity.html 本次操作的难点是“省份”与“城市”这两个<select>标签 阅读全文
posted @ 2016-07-07 00:03 findumars 阅读(1868) 评论(0) 推荐(0) 编辑
摘要:chrome://chrome-urls/ List of Chrome URLs chrome://accessibility chrome://appcache-internals chrome://apps chrome://blob-internals chrome://bookmarks 阅读全文
posted @ 2016-07-03 18:42 findumars 阅读(675) 评论(0) 推荐(0) 编辑
摘要:原文:http://www.cppblog.com/Streamlet/archive/2012/10/25/193831.html 感谢溪流漫话的投递 IE保护模式下,ActiveX控件会打不开别的进程创建的共享内存,原因是IE运行在低完整性级别权限下,一般应用程序运行在中完整性级别。别的应用程序 阅读全文
posted @ 2016-05-04 22:23 findumars 阅读(753) 评论(0) 推荐(0) 编辑
摘要:最近在程序中增加了每日一帖的功能,搜索一下网站的程序,发现大部分是用Memo实现,而我用的是TWebBrowser基于HTML做,故帖出来共享一下。 PAS源码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl 阅读全文
posted @ 2016-04-15 00:12 findumars 阅读(473) 评论(0) 推荐(0) 编辑
摘要:用TWebBrower不断打开多个网页,多某些版本的操作系统上运行一段时间后,发现占用系统内存达几百M,直到关闭程序后,占用的内存才能释放。 这个问题在网有很多讨论,比较多人的建议办法是用SetProcessWorkingSetSize(GetCurrentProcess(),-1,-1)处理一下, 阅读全文
posted @ 2016-04-14 23:44 findumars 阅读(778) 评论(0) 推荐(0) 编辑
摘要:本文用于提取本地网页的标签元素如<TITLE></TITLE>,<IMG>,<A></A>...的内容,非常实用于批量文件的操作,这是按一般文件进行文本查找替换无法比拟的,,而这是使用TWEBBROWSER控件无法做到的。类似的,你可以把本地的HTML文件转换成MHT文件(这是个大家觉得很棘手的问题 阅读全文
posted @ 2016-04-10 19:07 findumars 阅读(1364) 评论(0) 推荐(0) 编辑
摘要:以前不知道有这个东西 https://github.com/cexer/wke http://blog.csdn.net/weolar/article/details/50383491 http://higolang.top:90/ 阅读全文
posted @ 2016-04-06 15:59 findumars 阅读(5511) 评论(0) 推荐(0) 编辑
摘要:这两天用webbrower写东西,有时候打开SSL加密网站时会出现”Invalid floating point operation.”的错误,上网搜了下,把解决方法贴上。 导致原因 在Delphi2011中需要通过浮点单位控制指令设置浮点运算单位。浮点单位控制指令控制着浮点运算的精度、四舍五入的方 阅读全文
posted @ 2016-04-01 16:56 findumars 阅读(2688) 评论(0) 推荐(1) 编辑
摘要:2D-Position 允许通过拖曳移动绝对定位的对象。AbsolutePosition 设定元素的 position 属性为“absolute”(绝对)。BackColor 设置或获取当前选中区的背景颜色。BlockDirLTR 目前尚未支持。BlockDirRTL 目前尚未支持。Bold 切换当 阅读全文
posted @ 2016-03-24 17:50 findumars 阅读(660) 评论(0) 推荐(0) 编辑
摘要:一.问题的提出 偶然发现,Winform里的WebBrowser和IE实际安装的版本似乎并不同步,很有趣! 下面有张图,里面一个窗口是用IE9打开某网站,另一个窗口是用Winform+WebBrowser打开同样的网站,有意思的事情出现了。 在IE9窗口中,这个网站左边菜单树无法显示,原因是IE9使 阅读全文
posted @ 2016-03-22 18:48 findumars 阅读(890) 评论(0) 推荐(0) 编辑
摘要:主要扩展了3D界面、右键菜单、是否显示图片、是否支持JAVA等功能。 代码如下: http://blog.csdn.net/missmecn/article/details/2292758 阅读全文
posted @ 2016-03-17 23:38 findumars 阅读(1386) 评论(1) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MSHTML, SHDOCVW,IdGlobal;type TM 阅读全文
posted @ 2016-03-17 18:00 findumars 阅读(2221) 评论(0) 推荐(0) 编辑
摘要:    阅读全文
posted @ 2016-03-14 23:01 findumars 阅读(391) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示