VPF::Scripts (IHTMLScriptElement) В TEmbeddedWB - Форум программистов

bllem

Дата 23.7.2008, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 22.7.2008

Репутация: нет
Всего: нет

Есть страничка с несколькими функциями. Задача - заменить тело одной из функций.
есть

Код


((pDisp as iwebbrowser).Document as IHTMLDocument2)

Куда отсюда плясать? Название функции известно.

SneG0K

Дата 23.7.2008, 05:47 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: нет
Всего: 54

А ты попробуй получать тело IdHTTP.GET(), сохранять в поток, модифицировать и уже модифицированным отдавать из потока на сьедение компоненты

bllem

Дата 23.7.2008, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 22.7.2008

Репутация: нет
Всего: нет

мне так нельзя делать. Нужно именно по факту завершения загрузки заменить тело функции.

bllem

Дата 23.7.2008, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 22.7.2008

Репутация: нет
Всего: нет

никто не имел дело? Горит капец.

Or1angur

Дата 27.2.2009, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.4.2007
Где: Киев

Репутация: нет
Всего: нет

Чем не устраивает замена тела средствами самого JavaScript?

Rrader

Дата 27.2.2009, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 6
Всего: 191

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.

Это сообщение отредактировал(а) Rrader - 27.2.2009, 18:28

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »