| 共 34 篇文章 |
|
ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);OleObject.document.all.item(‘LoginUserID‘,0); //找到登录用户名的输入框o.value := ‘TEST‘;o := WebBrowser.oleobject.document.all.item(‘LoginPassword‘,0); //找到登录密码的输入框o.value := ‘TEST‘WebBrowser.oleobject.doc... 阅7 转自达能牛牛 公众公开 14-11-19 13:08 |
如果知道表单的名称就可以直接按名称提取表单。if Assigned(field) then begin if field.tagName = ''INPUT'' then begin // Input field. input := field as IHTMLInputElement;if not Assigned(field) then result := '''' else if field.tagName = ''INPUT'' then begin inputField := fie... 阅6 转自独孤求财 公众公开 14-11-19 13:07 |
Strings = ( ''Memo1'') ParentFont = False ScrollBars = ssBoth TabOrder = 0 ExplicitWidth = 323 end object Button1: TButton Left = 159 Top = 134 Width = 75 Height = 25 Caption = #25191#34892#20195#30721 TabOrder = 1 OnClick = Button1Click end object Edit1: TEdit Left = 85 ... 阅1 转自独孤求财 公众公开 14-11-19 13:06 |
function DownloadWithSocket(const AUrl: string): string;AHost := Copy(AHost, I + HttpHeadLen, MaxInt);I := Pos(AHost, AURL) + Length(AHost);if Socket = INVALID_SOCKET then.WinSock.setsockopt(Socket, SOL_SOCKET, SO_RCVTIMEO, @Timeout, SizeOf(TimeOut));FillChar(Addr.sin_addr, SizeOf(Addr.sin_addr), 0);Move(HostEnt^.h_ad... 阅3 转自独孤求财 公众公开 14-11-19 12:59 |
完美屏蔽掉WebBrowser里的鼠标左右键完美屏蔽掉WebBrowser里的鼠标左右键2009年11月22日 星期日 9:42.首先放一个ApplicationEvents控件，然后在ApplicationEvents的事件OnMessage中写入如下代码： (ApplicationEvents控件在delphi中的additional选项卡上找，即附加选项卡)Message = WM_RBUTTONUP) or (Msg.加入了IsChild(WebBrowser1.Handle, M... 阅1 转自独孤求财 公众公开 14-11-19 12:58 |
如何取得网页框架中的内容（300分）-delphi查了以前写过的代码，不用在OnDocumentComplete事件也可以做到：Document) then begin Fetched := nil;Next(1, Unk, Fetched);link, frame: IHTMLElement;coll, coll1: IHTMLElementCollection;coll := (coll.tags( ''frame '') as IHTMLElementCollection);Len... 阅6 转自doc360sir 公众公开 14-11-19 12:58 |
在Delphi程序中应用IE浏览器控件---- 大概大家还记得Delphi的范例程序中的那个浏览器的例子吧。当系统中已经安装了IE3.X或IE4.X时，IE浏览器控件已经注册到系统中了，请运行Regedit，用“编辑”菜单下的“查找”功能，查找“Shell.Explorer”键名，你会发现 IE控件已经作为ActiveX控件注册在系统中了，这样就我们可以在Delphi中使用该控件了。... 阅781 转1 评0 公众公开 14-11-19 12:49 |
AddChild(''第一个节点''); b := a.AddChild(''第一个节点的子节点''); c := b.AddChild(''第一个节点的子节点的子节点''); c.Text := ''第一个节点的子节点的子节点的标题''; xmlDocument.SaveToFile(''e:\\pas\\Rule.xml'');end; 阅837 转6 评0 公众公开 14-11-19 12:47 |
WebBrowser技巧大全在webbrowser中查找字符串并定位。WebBrowser1: TWebBrowser;A、用SendKeys函数向WebBrowser发送回车键 在Delphi 5光盘上的Info\Extras\SendKeys目录下有一个SndKey32.pas文件，其中包含了两个函数SendKeys和AppActivate，我们可以用SendKeys函数来向WebBrowser发送回车键，我现在用的就是这个方法，使用很简单，在Web... 阅66 转0 评0 公众公开 14-11-19 12:27 |
怎么读取网页验证码的图片（1）怎么读取网页验证码的图片（1）2009年07月03日 星期五 13:29.MyHandle := Clipboard.GetAsHandle(cf_Bitmap);LoadFromClipboardFormat(cf_BitMap,MyHandle,0);bmp:=(img1.Bitmap as TBitmap) ;LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); 阅3 转自独孤求财 公众公开 14-11-19 12:21 |
