delphi 向webbrowser打开的网页中插入js命令

最新推荐文章于 2021-06-09 18:24:16 发布

转载最新推荐文章于 2021-06-09 18:24:16 发布 · 4.9k 阅读

文章标签：

#webbrowser #delphi #button #javascript #forms #url

IE & WebBrowser 专栏收录该内容

19 篇文章

订阅专栏

本文介绍了一个使用 Delphi 实现的双 WebBrowser 控件的应用案例，通过该案例可以了解到如何利用 TWebBrowser 控件实现网页导航、拦截新窗口打开及执行 JavaScript 脚本等功能。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,MSHTML;

type
TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    WebBrowser2: TWebBrowser;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure WebBrowser2BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);

    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text );
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.Application;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(string(URL)); // 再指回WebBrowser1
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(
memo1.text, 'javascript')

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser2.Left := -WebBrowser2.Width; {隐藏 WebBrowser1}
memo1.Text :='';
end;

end.