VPF::Delphi и HTML - Форум программистов

lSmokel

Дата 5.12.2005, 19:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Не знает что-такое InternetOpen и т.п.

_hunter

Дата 5.12.2005, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

посмотри в MSDN' е необходимые заголовки

--------------------

Tempora mutantur, et nos mutamur in illis...

Демо

Дата 5.12.2005, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Добавь в Uses Wininet

--------------------

x_byte

Дата 6.12.2005, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.1.2004

Репутация: нет
Всего: 1

Из WebBrowser html-код вытягиваем так:

Код


procedure TForm1.GetHTML(web: TWebBrowser): String;
var
  iDoc: IHtmlDocument2;
  iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  HTML: HTMLHtmlElement;
begin
  web.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
  if not Assigned(iDoc) then
  begin
    Exit;
  end;
  iDisp := iDoc.all.tags('HTML');
  IDisp.QueryInterface(IHTMLElementCollection, iColl);
  if not Assigned(iColl) then
  begin
    Exit;
  end;
  iDisp:=iColl.item(pred(1), 0);
  iDisp.QueryInterface(HTMLHtmlElement, HTML);
  if not Assigned(HTML) then
  begin
    Exit;
  end;
  Result:=HTML.outerHTML;
end;

Это сообщение отредактировал(а) x_byte - 6.12.2005, 12:24

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »