VPF::Разбор ссылок в html-документе (utf-8)

sg729

Дата 21.5.2009, 22:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть html в кодировке utf-8 (если верить тегу meta). Пытаюсь вытянуть все ссылки из него, не прибегая к помощи TWebBrowser:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  v : OleVariant;
  i : Integer;
  HtmlURL : String;
  HtmlDocument : IHtmlDocument2;
  HtmlCollection, LinksCollection : IHtmlElementCollection;
  HtmlElement : IHtmlElement;
  HtmlContent : TTntStringList;
begin
  TntMemo1.Clear;

  HtmlURL:='http://images.yandex.ru/';

  HtmlContent:=TTntStringList.Create;

  if DownloadFile(HtmlURL,'dump.html') then
    HtmlContent.LoadFromFile('dump.html');

  HtmlDocument:=coHTMLDocument.Create as IHTMLDocument2;
  if HtmlDocument=nil then
    Exit;

  v:=VarArrayCreate([0,0],VarVariant);
  v[0]:=UTF8Decode(HtmlContent.Text);
  HtmlDocument.Write(PSafeArray(TVarData(v).VArray));  //ошибка :

  HtmlCollection:=HtmlDocument.All;
  LinksCollection:=HtmlCollection.Tags('A') as IHTMLElementCollection;
  for i:=0 to LinksCollection.Length-1 do
  begin
    HtmlElement:=LinksCollection.Item(i,0) as IHtmlElement;
    TntMemo1.Lines.Add(HtmlElement.getAttribute('href',0));
  end;

  HtmlContent.Free;
  HtmlDocument.Close;
  HtmlDocument:=nil;
end;

на операторе HtmlDocument.Write(PSafeArray(TVarData(v).VArray)) последовательно возникают следующие ошибки:

user posted image

Подскажите, что неправильно в моем коде?

MetalFan

Дата 22.5.2009, 12:19 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

какая версия делфи? если не 2009я, то зачем прикрутил Tnt? UTF8Decode декодирует из мультибайт строки, а не из WideString.

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

There are always someone smarter than you...

sg729

Дата 22.5.2009, 22:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(MetalFan @ 22.5.2009, 12:19

)

какая версия делфи?

7-я

Цитата(MetalFan @ 22.5.2009, 12:19

)

если не 2009я, то зачем прикрутил Tnt?

Читал где-то, что VCL-компоненты 7-ой не поддерживают юникод. Поэтому чтобы увидеть читабельные ссылки взял Tnt.

MetalFan

Дата 23.5.2009, 21:45 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

молоток. верни обратно)

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

There are always someone smarter than you...

sg729

Дата 24.5.2009, 13:30 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(MetalFan @ 23.5.2009, 21:45

)

молоток. верни обратно)

чего вернуть-то? smile

С обычными TMemo и TStringList будут те-же самые ошибки, только в добавок будут нечитабельные ссылки с крякозябрами smile

sg729

Дата 31.5.2009, 20:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Работает:

Код


var
  ...
  WB : IWebBrowser2;
  ...
begin
  ...
  WB:=CoInternetExplorer.Create;
  WB.Visible:=False;
  WB.Silent:=True;
  ...
  HtmlDocument:=WB.Document as IHtmlDocument2;
  ...
  ...
  WB.Quit; 
  WB:=nil;

У интерфейса IHtmlDocument2 нет свойства Silent, поэтому приходится задействовать IWebBrowser2. Может как-то по-другому можно подавить эти диалоговые окна?

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