page.htm
| Код |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>Page</title>
<script language="Javascript">
function MyClick()
{
alert("Normal");
}
</script>
</head>
<body>
<table border="1" style="background-color: Silver" onclick="MyClick()">
<tr>
<td>Some Text</td>
</tr>
</table>
</body>
</html>
|
Button1 - загружает страницу. Button2 - патчит JavaScript сценарий в страничке.
| Код |
unit UMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtrls, SHDocVw, ActiveX;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
Patch = 'function MyClick()' + sLineBreak +
'{' + sLineBreak + ' alert("Patched");' + sLineBreak + '}';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('file://' + ExtractFilePath(ParamStr(0)) + 'page.htm');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Script: OleVariant;
begin
with WebBrowser1 do
begin
Script := OleVariant(Document).scripts.item(0);
Script.text := Patch;
Script := Unassigned;
end;
end;
end.
|
|