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

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

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

Как получить ссылки в DIV? [D2005, 2003]

Артеменко © (2016-07-09 13:23:00)
Подскажите как решить задачку данную? Есть определенный DIV в нём есть ссылки..... Как можно их получить? Пробовал один код, но он выдаёт текст ссылки а не саму ссылку.

procedure TForm2.Timer1Timer(Sender: TObject);
var
Doc, El: Variant; i: Integer;

begin
Doc := WebBrowser1.OleObject.Document.GetElementsByTagName('div'); // вот зацепляемся за тег
for i := 0 to Doc.Length - 1 do // ищем все что связано с этим тегом
begin
El := Doc.Item(i); // получаем элементы этого тега
if El.Id = 'reklama' then // и вот тут вот сравниваем за вышесказанный id
// если в таком теге и с таким id что-то найдено
listbox1.Items.Add(el.html); // то вывести это в мемо как текст, а не как код html
// за это отвечает InnerText, если нужно было бы кодом - то можно было бы написать InnerHTML
end;
timer1.Enabled :=false;
end;

Kilkennycat (2016-07-11 20:17:00) [1]
ну так и я о том же. че имеет в виду автор под "ссылкой" неизвестно. Может, ссылки на использованную литературу.

yui (2016-07-11 18:32:00) [2]
и чо?
хочешь я тебе покажу документ вообще без дивов но кликабельный.

Kilkennycat (2016-07-11 18:17:00) [3]

> yui (11.07.16 17:35) [2]

а хочешь, я покажу тебе, как ссылка в диве хранится, кликабельно-переходно притом?

yui (2016-07-11 17:35:00) [4]
ссылки лежат не в диве, а в <a href="...."></a>

Kilkennycat (2016-07-09 13:36:00) [5]
я не совсем понял, что есть "текст ссылки", а что - "сама ссылка"
в любом случае это делается элементарно, нахождением нужного места и копированием всего, начиная с места нахождения и до другого нужного места.
То есть, используем операции со строками, такие как AnsiLowerCase (пригодится), AnsiPos и Copy

Наверх

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