[bddelphi]

Здравствуйте! Очень нужна ваша помощь. У меня есть адрес сайта
http://www.plavsk.tulobl.ru/administ...rk/norm/texts/
Мне в форме delphi нужно получить все гиперссылки с этого сайта (чтоб они остались рабочими).



P.S. Пришла в голову мысль получить все теги со страницы. Вывела их в memo, а что с ними делать дальше не знаю.


Подскажите кто знает. пожалуйста!!!

[poli-smen]

Сообщение от bddelphi

Здравствуйте! Очень нужна ваша помощь. У меня есть адрес сайта
http://www.plavsk.tulobl.ru/administ...rk/norm/texts/
Мне в форме delphi нужно получить все гиперссылки с этого сайта (чтоб они остались рабочими).



P.S. Пришла в голову мысль получить все теги со страницы. Вывела их в memo, а что с ними делать дальше не знаю.

Можно использовать например стандартный компонент TWebBrowser - с его помощью легко скачивать страницы и получать с этих страниц все гиперссылки.

[bddelphi]

Да, так тоже пробовала. Вывела всю страницу в TWebBrowser, а как оттуда получить гиперссылки?

[poli-smen]

Сообщение от bddelphi

Да, так тоже пробовала. Вывела всю страницу в TWebBrowser, а как оттуда получить гиперссылки?

Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  col: IHTMLElementCollection;
  i: Integer;
begin
  col:=(WebBrowser1.Document as IHTMLDocument2).all.tags('A') as IHTMLElementCollection;
  for i := 0 to col.length-1 do
  begin
    Memo1.Lines.Add((col.item(i, EmptyParam) as IHTMLAnchorElement).href);
  end;
end;

[bddelphi]

классно! Спасибо! А не подскажите какой компонент использовать, чтоб все эти гиперссылки можно было использовать (нажимать и переходить по ним)?

[poli-smen]

Сообщение от bddelphi

классно! Спасибо! А не подскажите какой компонент использовать, чтоб все эти гиперссылки можно было использовать (нажимать и переходить по ним)?

Можно опять использовать тот же TWebBrowser - генерировать на лету html-страницу со ссылками и передавать её в TWebBrowser.

[NumLock]

Сообщение от bddelphi

а что с ними делать дальше не знаю

а дальше нужно относительные ссылки преобразовать в абсолютные. делается добавлением имени хоста в начало.