Помогите плиз.

← →
M_a_x (2003-01-12 00:52) [0]

У меня такая задачка: получить код одного из фреймов, открытых с помощью WebBrowse"a. Просто код страницы можно получит с помощью так: WebBrowser1.OleObject.Document.All.Item(0).innerHTML;
Я даже нашел где про это есть в И-нете.. http://www.euromind.com/iedelphi/embeddedwb.htm Там вроде есть сохранение кода фрейма, но файл, который там можно скачать не компилируется.. Ошибку я сам найти не смог...
Помогите плиз разобраться...
Заранее спасибо

← →
Troll (2003-01-12 00:56) [1]

хм. у меня компильнулось. давно правда, уже и не помню были ошибки или нет...
что за ошибка хоть скажи, что пишет, чего нету....

← →
M_a_x (2003-01-12 01:01) [2]

не работает функция GetFrame... а без нее не работает ни одна связанная с фреймами... не находит описание ReadyState и Document..

function TEmbeddedwb.GetFrame(FrameNo: Integer): IWebbrowser2;
var
OleContainer: IOleContainer;
enum: IEnumUnknown;
unk: IUnknown;
Fetched: PLongint;
begin
while ReadyState <> READYSTATE_COMPLETE do
Forms.Application.ProcessMessages;
if Assigned(document) then
begin
Fetched := nil;
OleContainer := Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
Enum.Skip(FrameNo);
Enum.Next(1, Unk, Fetched);
Result := Unk as IWebbrowser2;
end else Result := nil;
end;

← →
M_a_x (2003-01-12 01:05) [3]

Хотя это скорее всего из-за того, что у меня нету (по крайней мере Delphi не находит) библиотеки Mshtml_tlb, SHDocVw_tlb, StdCtrls..
Может кто-то знает где их можно скачать?

← →
sergey2 (2003-01-12 04:16) [4]

Тоже долго интересовался этим вопросом (первое сообщение топика). На форуме ответа никто не дал. А сегодня после после перебора разных вариантов почти наугад, наткнулся на работающий:

WebBrowser1.OleObject.document.frames.item(i).document.all.item(0).innerHTML

Возвращает код i-го фрейма.

← →
M_a_x (2003-01-12 20:50) [5]

мда... спасибо... а я пробовал пробовал просто WebBrowser1.OleObject.document.frames(i).document.all.item(0).innerHTML.. ну угадал.. :)

Всем спасибо!

Помогите плиз. Найти похожие ветки