Как получить ссылки в DIV?

← →
Артеменко © (2016-07-09 13:23) [0]

Подскажите как решить задачку данную? Есть определенный 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-09 13:36) [1]

я не совсем понял, что есть "текст ссылки", а что - "сама ссылка"
в любом случае это делается элементарно, нахождением нужного места и копированием всего, начиная с места нахождения и до другого нужного места.
То есть, используем операции со строками, такие как AnsiLowerCase (пригодится), AnsiPos и Copy

← →
yui (2016-07-11 17:35) [2]

ссылки лежат не в диве, а в <a href="...."></a>

← →
Kilkennycat © (2016-07-11 18:17) [3]

> yui (11.07.16 17:35) [2]

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

← →
yui (2016-07-11 18:32) [4]

и чо?
хочешь я тебе покажу документ вообще без дивов но кликабельный.

ну так и я о том же. че имеет в виду автор под "ссылкой" неизвестно. Может, ссылки на использованную литературу.

Как получить ссылки в DIV? Найти похожие ветки