Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

M_a_x (2003-01-12 20:50:00) [1]
мда... спасибо... а я пробовал пробовал просто WebBrowser1.OleObject.document.frames(i).document.all.item(0).innerHTML.. ну угадал.. :)

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

sergey2 (2003-01-12 04:16:00) [2]
Тоже долго интересовался этим вопросом (первое сообщение топика). На форуме ответа никто не дал. А сегодня после после перебора разных вариантов почти наугад, наткнулся на работающий:

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

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

M_a_x (2003-01-12 01:05:00) [3]
Хотя это скорее всего из-за того, что у меня нету (по крайней мере Delphi не находит) библиотеки Mshtml_tlb, SHDocVw_tlb, StdCtrls..
Может кто-то знает где их можно скачать?

M_a_x (2003-01-12 01:01:00) [4]
не работает функция 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;

Troll (2003-01-12 00:56:00) [5]
хм. у меня компильнулось. давно правда, уже и не помню были ошибки или нет...
что за ошибка хоть скажи, что пишет, чего нету....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »