[Кодер]

Уважаемые,
В чом заключаеться проблема:
Например есть страница в интернете www.sait.ru\page.html
На этой странице имееться картинка либо форма ввода. Как можно используя компонент TWebBrowser узнать код нужного элемента сайта.

Были догадки и попытки перевести TWebBrowser в режим дизайна и выделив там нужный элемент отобразить код в TMemo но никак не получаеться.

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

[Кодер]

Никто неподскажет?

[lmikle]

Вообще, получи интерфейс IWebBrowser2, потом через него получи доступ к DOM-модели страницы, а уж в ней ищи что тебе надо. Когда-то делал такую штуку, но код не сохранился.

[Кодер]

Из всех твоих слов чесно, ничего не понял. Если не сложно может у кого завалялся кусочек кода?

[lmikle]

Вообще, что такое интерфейс знаешь? в смысле интерфейс COM.
TWebBrowser есть обертка над IE. Он предоставляет COM-интерфейсы.
Тебе надо получить ссылку на интерфейс IWebBrowser2. Дальше, через его методы получаешь ссылку на DOM-модель загруженной страницы. И уже в ней ищешь что тебе надо.

Что-то типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  IWB : IWebBrowser2;
  IDoc : IHTMLDocument;
begin
  WebBrowser1.Navigate('www.yandex.ru');
  IWB := WebBrowser1.DefaultInterface;
  IDoc := IWB.Document As IHTMLDocument;
end;

А дальше у IDoc спрашиваешь про кишки страницы. Там все организованно в виде дерева, так что лезь в хелп.

[Кодер]

Насчет COM знаю..а вот DOM не слыхал)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  IWB : IWebBrowser2;
  IDoc : IHTMLDocument;
begin
  WebBrowser1.Navigate('www.yandex.ru');
  IWB := WebBrowser1.DefaultInterface;
  IDoc := IWB.Document As IHTMLDocument;
end;

Так я делал. Неполучилось.
Напишу пример чоткий чтоб понятнее было.

Есть в html коде некие строки типа <embed parametr=N>
и каждый раз это N меняется..А надо выцепить конкретно <embed parametr=N>

[lmikle]

DOM - Document Object Model.
Фактически, это дерево COM-объектов. У верхнего можно прямо спросить "Дай мне список элементов типа Т".