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

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

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

Исходный HTML-код в TWebBrowser

Серьезный Сэм © (2005-01-13 21:14:00)
Как прочитать исходный HTML-код из компонента TWebBrowser (внутри программы)? Дело в том, что мне нужно получить html-код странички, но пример по получению текста страницы в интернете, приведенный в faq сайта не подходит, т.к. идет обращение к php-скрипту с определенными параметрами и формируется страница. Для этого нужно открывать адрес в браузере (метод Navigate) а вот получить код страницы не могу...

Помогите, пожалуйста!

Cardinal (2005-01-13 23:48:00) [1]
Наверное вам поможет такая функция с того же сайта:

uses ActiveX;

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

Серьезный Сэм (2005-01-13 23:43:00) [2]

> Посмотрите на DelphiWorld, там есть.

www.delphiworld.ru
временно закрыто по техническим причинам

> Внутри Body так.
> s:=WebBrowser.OleObject.Document.body.innerHTML;

Я понимаю, что в здесь мы работаем через OLE и внутри документа пишем прямо как на JS :-), но вот только на этой строке возникает AV.

Серьезный Сэм (2005-01-13 23:24:00) [3]
Спасибо, буду должен :-)

ferr (2005-01-13 23:08:00) [4]
Посмотрите на DelphiWorld, там есть.

ferr (2005-01-13 23:06:00) [5]
Внутри Body так.
s:=WebBrowser.OleObject.Document.body.innerHTML;

Наверх

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