TEmbeddedWB. Плиз, мастера, помогите!!!

← →
BlackSun (2002-07-11 00:12) [0]

В своей проге использую компонент TEmbeddedWB.
Есть Html-файл с фреймом, в котором выполняется Java скрипт. Суть его заключается в том, что через некоторое время он меняет текст во фрейме . Так вот вопрос. Как мне отловить событие, что этот скрипт сработал и текст поменялся?

← →
BlackSun (2002-07-11 04:23) [1]

Никто что-ли не знает? Позарез нужно!

← →
int64 © (2002-07-11 07:16) [2]

Непонятно, где выполняется скрипт во фрейме или HTML файле.

Могу посоветовать тебе вставить в скрипт процедуру, которая и будет маяковать.

И покажи на всякий случай сам скрипт.

← →
BlackSun (2002-07-11 07:33) [3]

Скрипт выполняется во фрейме.
Вот пример скрипта, сразу оговорюсь, менять я его не могу, т.к. он грузится с сайта в инете, к которому я доступ не имею.

function loading(n,c,q,w) {
stoptimer();

question = q;
lastvisit = n;
choices.innerHTML = "<h3><br>Loading...</h3>";
tmr = setTimeout("timeout()", w);
}
Проходит определенное время и
function timeout() {
choices.innerHTML = "<a href="javascript...">Timeout</a>";
top.focus();
}
Вот мне и нужно узнать, когда появится эта надпись Timeout...

← →
int64 © (2002-07-11 07:59) [4]

Можно подменить сам скрипт во время загрузки.
Не подойдёт?

← →
BlackSun (2002-07-11 08:31) [5]

Если это единственный вариант, то, плиз, объясни как сделать подмену.
Я пробовал через OnUpdate, но это событие вызывается и когда надо и когда не надо, не отличить из-за чего оно происходит.

← →
int64 © (2002-07-11 09:27) [6]

Всмысле подменить весь фрейм вместе со скриптом.

procedure ChangeFrame(WB: TWebbrowser; FrameName: string); var OleContainer: IOleContainer; enum: IEnumUnknown; TempUnk: IUnknown; Fetched: PLongint; FrameNo: integer; Coll: HTMLElementCollection; IWB: IWebbrowser2; begin With WB do begin while ReadyState <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages; if Assigned(document) then begin Coll:=HTMLElementCollection(HTMLDocument(Document).All.Tags("FRAME")); for FrameNo:=0 to Coll.length-1 do if HTMLFrameElement(Coll.item(FrameNo,varEmpty)).name=FrameName then break; Fetched := nil; OleContainer := Document as IOleContainer; OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum); Enum.Skip(FrameNo); Enum.Next(1, TempUnk, Fetched); IWB:= TempUnk as IWebbrowser2; end; end; if assigned(IWB) then HTMLDocument(IWB.Document).body.innerHTML:= "<.....>"; end;

Можно только скрипт, но какая разница: документ или часть его.

← →
BlackSun (2002-07-11 12:48) [7]

Спасибо, попробую, жаль, что по другому нельзя.
И еще, а никак нельзя узнать это время задержки? Я бы тогда знал, когда надпись появится...
В любом случае спасибо!

← →
BlackSun (2002-07-11 13:54) [8]

Я конечно торможу, но Дельфи выдает Unknown Identifier IOleContainer и далее в том же духе... что сделать?

> жаль, что по другому нельзя

Может и можно. Только мало кому это надо. Поройся в MSDN.

> Я бы тогда знал, когда надпись появится...

Тебе только надо в теле функции timeout() приписать свою функцию-индикатор. И когда наступит время обновления она запустится и передаст инфу в приложение.

Чтоб нашлись описатели:

uses ...ActiveX, MSHTML;

Попробуйте подцепится к событиям объекта choices в Дельфи после загрузки страницы.
Статья по этому поводу есть на RSDN (правда пример на C)
http://www.rsdn.ru/article/?inet/dhtmlspy.xml

TEmbeddedWB. Плиз, мастера, помогите!!! Найти похожие ветки