delphiwebbrowser与delphi互动

1、delphi webbrowser与delphi互动 WebBrowser1.GoHome; /到浏览器默认主页WebBrowser1.Refresh; /刷新WebBrowser1.GoBack; /后退WebBrowser1.GoForward; /前进WebBrowser1.Navigate('.' /打开指定页面WebBrowser1.Navigate('about:blank' /打开空页面- /打开空页面, 并写入.WebBrowser1.Navigate('about: 页面内容</body>'- /读取网页脚本中的变量

2、:procedure TForm1.Button1Click(Sender: TObject;var s: string; i: Integer;begin s := WebBrowser1.OleObject.document.Script.str; i := WebBrowser1.OleObject.document.Script.num; ShowMessage(s; /Hello ShowMessage(IntToStr(i; /99 /也可以这样读: s := WebBrowser1.OleObject.document.parentWindow.str; i := WebBrow

3、ser1.OleObject.document.parentWindow.num; ShowMessage(s; /Hello ShowMessage(IntToStr(i; /99end; &amp;amp;lt;br&amp;amp;gt;假如网页中有这样的语句:&amp;amp;lt;br&amp;amp;gt;&amp;amp;amp;amp;lt;script&amp;amp;amp;amp;gt;&amp;amp;lt;br&amp;amp;gt;var&amp;amp;lt;br&amp;amp;gt

4、; str = &amp;amp;quot;Hello&amp;amp;quot;&amp;amp;lt;br&amp;amp;gt; i = 99;&amp;amp;lt;br&amp;amp;gt;&amp;amp;amp;amp;lt;/script&amp;amp;amp;amp;gt; - /调用网页脚本中的函数:procedure TForm1.Button1Click(Sender: TObject;begin WebBrowser1.OleObject.document.parentWindow.MB(; /HTM

5、L-Js /如需指定脚本语言, 需要: WebBrowser1.OleObject.document.parentWindow.execScript('MB(','JavaScript' /HTML-Jsend; &amp;amp;lt;br&amp;amp;gt;假如有这样的脚本:&amp;amp;lt;br&amp;amp;gt;&amp;amp;amp;amp;lt;script&amp;amp;amp;amp;gt;&amp;amp;lt;br&amp;amp;gt;function MB(

6、 &amp;amp;lt;br&amp;amp;gt; alert('HTML-Js'&amp;amp;lt;br&amp;amp;gt;&amp;amp;lt;br&amp;amp;gt;&amp;amp;amp;amp;lt;/script&amp;amp;amp;amp;gt; - /判断网页及内部框架网页是否全部下载完毕procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL:

7、 OleVariant;begin if WebBrowser1.Application = pDisp then begin Text := '网页下载完毕！' end;end; - /改变背景色或背景图片:WebBrowser1.OleObject.document.body.bgcolor := '#FF0000'WebBrowser1.OleObject.document.body.background := '.图片地址'- /操作有 ID 标签的对象:var s: string;begin s := WebBrowser1.OleOb

8、ject.document.getElementByID('span1'.innerText; ShowMessage(s; /这是 span1 标签中的内容 /或者: s := WebBrowser1.OleObject.document.parentWindow.span1.innerText; ShowMessage(s; /这是 span1 标签中的内容 /隐藏它: WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none'end; &amp;amp;lt;b

9、r&amp;amp;gt;假如网页中有这样的内容:&amp;amp;lt;br&amp;amp;gt;&amp;amp;amp;amp;lt;span id=span1&amp;amp;amp;amp;gt;这是 span1 标签中的内容&amp;amp;amp;amp;lt;/span&amp;amp;amp;amp;gt;&amp;amp;lt;br&amp;amp;gt; - /获取网页源代码var s: string;begin s := WebBrowser1.OleObject.document.body.in

10、nerHTML; /body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; /body内的所有代码, 包含body标签 s := WebBrowser1.OleObject.document.documentElement.innerHTML; /html内的所有代码end;/获取网页全部源代码uses ActiveX;var ms: TMemoryStream;begin if not Assigned(WebBrowser1.Document then Exit; ms := TMemoryStream.Create;

11、(WebBrowser1.Document as IPersistStreamInit.Save(TStreamAdapter.Create(ms, True; ms.Position := 0; Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8;/ Memo1.Lines.LoadFromStream(ms, TEncoding.Default; GB2312 等双字节 ms.Free;end;- /WebBrowser 中的右键菜单/先要添加ApplicationEvents1,指定其Message事件/屏蔽右键菜单procedure TForm1

12、.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean;begin with Msg do begin if not IsChild(WebBrowser1.Handle, hWnd then Exit; Handled := (message = WM_RBUTTONDOWN or (message = WM_RBUTTONUP or (message = WM_CONTEXTMENU; end;end;/替换右键菜单procedure TForm1.ApplicationEvents1Message(var Msg:

13、 tagMSG; var Handled: Boolean;var mPoint: TPoint;begin if IsChild(WebBrowser1.Handle, Msg.Hwnd and (Msg.Message = WM_RBUTTONDOWN or (Msg.Message = WM_RBUTTONUP then begin GetCursorPos(mPoint; /得到光标位置 PopupMenu1.Popup(mPoint.X, mPoint.Y; /弹出popupmenu1的菜单 Handled:=True; end;end;- /新页面写入begin WebBrowse

14、r1.Navigate('about:blank' WebBrowser1.OleObject.Document.Writeln('ok'end;/从流中写入:var ms: TMemoryStream;begin ms := TMemoryStream.Create; Memo1.Lines.SaveToStream(ms; ms.Position := 0; (WebBrowser1.Document as IPersistStreamInit.Load(TStreamAdapter.Create(ms; ms.Free;end;/禁止提示脚步错误procedure TForm1.WebBrowser1NavigateComplete2(ASender: