Как вытащить ссылки из текста html

[marco.v]

Народ, помогите пожалуйста.
Никак не могу понять.

first.Text:=IdHTTP1.Get(url);

как мне вытащить отсюда все ссылки?

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

формат ссылок одинаков, но есть ссылки вида
http://bla-bla.ru
и
http://bla-bla.ru/articles/news1.html

так вот надо только домен вытащить.

[Shouldercannon]

Используй Copy, Pos

[marco.v]

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

Используй Copy, Pos

пробовал - не получается. вытаскивается с кучей хлама..

[bulldog5293]

дай больше инфы

[eoln]

Можно с помощью функции posex из StrUtils

  i := posex('http://', first.Text);
  while i <> 0 do begin
    j := i + 7;
    while not (first.Text[j] in ['/', ' ', '''', '"', '>']) do inc(j);//тут перечисляем признаки конца домена
    st := copy(first.Text, i, j - i);
    memo1.Lines.Add(st);//куда-нибудь добавляем
    i := posex('http://', first.Text, i + 1);
  end

[bulldog5293]

eoln класная функция с признаками конца домена, с меня +

[marco.v]

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

eoln класная функция с признаками конца домена, с меня +

спасибо, вроде выдергивает, сейчас буду додумывать )

[SportPuma]

Скажите пожалуйста как работает код eolna?
мне нужна такая же прога. скажите как сделать что бы ссылки вывести в программе на экран?

[gesper]

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

Скажите пожалуйста как работает код eolna?
мне нужна такая же прога. скажите как сделать что бы ссылки вывести в программе на экран?

Как вариант воспользуйся регулярными выражениями.
В этом коде немного переделана функция из примера от RegExpr.
Ищет ссылки в тексте.

...

uses RegExpr; // В интернете найдешь

...

function TFinfo.FindURL (const AInputString : string) : String;

// Обратите внимание, что если эта функция будет использоваться часто,
// то наша реализация далека от оптимальной.
// Правильнее тогда использовать заранее (при инициализации программы)
// созданный TRegExpr с уже откомпилированным выражением

 const
  URLRE = '([telnet|http|https|ftp]*):\/\/+([_a-z\d\-\.\/]*)';
 var
  r : TRegExpr;
 begin
  Result := '';

  r := TRegExpr.Create;
  // Создание объекта - не забывайте об этом, 10% писем ко мне
  // связаны с тем, что объект начинают использьвать, не создав его.

  try // гарантирует освобождение занятой объектом памяти
     r.Expression := URLRE;
	// Присваиваем исходный текст регулярного выражения.
	// При первой же необходимости (например, при вызове метода Exec)
	// оно будет откомпилировано. Если в выражении есть ошибки, то
	// будет вызвано исключение
     if r.Exec (lowercase(AInputString)) then
      //REPEAT
        Result := r.Match [0];
      //UNTIL not r.ExecNext;
    finally r.Free;
   end;
 end;

[SportPuma]

Спасибо! сколько будет стоить что бы сделать исходник с этим кодом? мне нужна прога для сбора url с адреса сайта для статистики. те.
вынуть ссылки с сайта и записать их файл удаляя повторные