![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
简单的事情
加油!!
展开
-
Delphi实现网页表单数据的自动提交
MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素.MSHTML对象模型是由一些对象和集合组成的.处于根部的是HTML,描述了打开页面的1个窗口,包括一系列集合和对象。如Frames集合,History,Location,Navigator,Document,Vi—sum,Event对象等.其中描述呈现在客户窗口实转载 2006-08-09 08:51:00 · 845 阅读 · 3 评论 -
如何确定是完页 WebBrowser 控件中加载
WebBrowser 控件引发当 ReadyState 属性被更改为 READYSTATE_COMPLETE DocumentComplete 事件。 这指示 WebBrowser 控件已完成下载网页。 下面是一些关于此事件要点: • 一切完成后万一有了无框架, 页 DocumentComplete 后触发。转载 2006-08-09 09:00:00 · 923 阅读 · 0 评论 -
WebBrowser下载完成一个页触发两次onDocumentComplete事件
因为你浏览的页面可能有框架,每个单独的框架都可能会触发DocumentComplete事件。框架集页面会最后触发DocumentComplete事件。发送事件的对象可以通过DocumentComplete事件的第一个参数访问procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; v转载 2006-08-09 08:27:00 · 1646 阅读 · 0 评论 -
WebBrowser提交表单
var o : Olevariant;begin o := WebBrowser.OleObject.document.all.item(LoginUserID,0); //找到登录用户名的输入框 o.value := TEST; o := WebBrowser.oleobject.document.all.item(LoginPassword,0); //找到登录密码的输转载 2006-08-09 08:39:00 · 1156 阅读 · 0 评论 -
如何复制webbrowser中的内容
如何把webbrowser中的内容copy到别的地方,如edit1中procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);var Doc: IHTMLDocument2;begin Doc :=WebBrowser1.Doc转载 2006-08-09 08:47:00 · 1117 阅读 · 0 评论 -
怎么给一个运行中的程序模拟按键啊?
procedure TForm1.Button2Click(Sender: TObject); var handle1:HWND; winrect:Trect; NPoint:TPoint; begin edit1.SelectAll; Clipboard.SetTextBuf(pchar(edit1.Te转载 2006-08-09 13:44:00 · 838 阅读 · 0 评论 -
如何让TWebBrower直接读取HTML源码?
实际上,我有两个问题,但只要解决其中之一便可(最好是在D4中解决)我看过Cakk在http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=159175中的回答,但只能在D5上使用,如何在D4中使用?如只能在D5中使用,那么,如何解决RxLib2.75(for D5)中的RxRichEdit经D5编译后没有Popmenu的问题(在D4中正常)?转载 2006-08-09 13:47:00 · 1033 阅读 · 0 评论 -
如何在WebBrowser1控件直接显示memo1里面的代码
procedure writeHTML(WebInfo:TWebBrowser;text:String);var HTMLDoc: IHTMLDocument2; v:Variant;begin WebInfo.Navigate(about:blank, EmptyParam, EmptyParam, EmptyParam, EmptyParam); while WebInfo.Ready转载 2006-08-09 13:47:00 · 742 阅读 · 0 评论