Получение адресов всех страниц с сайта

[Vikenty]

кто знает как получить адреса всех страниц в массив, помогите!

[raxp]

загрузить страницу, пропарсить страницу.

[Alex Cones]

Парсим по тегу href=" до следующей кавычки ".

Вот так:

Var
 I, N: Integer; // Счетчики
 St : Array of String; //Массив для ссылок
 S : String; //Исходный код страницы

Begin
S := IdHTTP1.Get('http://yandex.ru'); //Получаем код страницы
I := 0; //Обнуляем счетчик ссылок
While Pos('href="', S)<>0 Do //Пока не закончились ссылки в исходнике...
 Begin //Начинаем...

SetLength(St, I+1);//Увеличиваем вместимость массива ссылок на единицу

   N := Pos('href="', S); //Получаем позицию тега HREF
   Delete(S, 1, N + 5); //Удаляем все ДО него
   N := Pos('"', S); //Получаем позицию закрывающей кавычки
   St[I] := Copy(S, 1, N - 1);//Копируем ссылку в массив

Inc(I);//Увеличиваем счетчик ссылок
End;//Конец...
End;//По-любому конец.

Вуаля.

[Vikenty]

если интернет медленный так долго будет подругому нельзя?

[Пепел Феникса]

всмысле долго?
сам парсинг к интернету не имеет отношения.

[Vikenty]

загружать страницу HTTP.Get

[Alex Cones]

Загружается только текст исходного кода страницы, меньше уже никак.

[Пепел Феникса]

а вы хотите пропарсить страницу не загружая её?

[Vikenty]

я думал не парся

[-MagicAlex-]

Не надо забывать, что в тэге href, ссылка может быть как в двойных кавычках, так и в одинарных, а может быть и вообще без кавычек...
Это в коде тоже надо бы предусмотреть