[aleksnine]

Как из HTML можно вытащить все прямые ссылки на файлы.
Спасибо.

[Decoding]

Такие варианты подойдут?

http://decoding.narod.ru/faq/compone...er001.html#003
http://decoding.narod.ru/faq/compone...er002.html#007

[aleksnine]

Ну там примеры как из Twebbrowser ,а меня уже есть готовый HTML.
И нужно получить только прямые ссылки на файлы.

[Decoding]

Тогда парсер пиши, и извлекай все, что находится между тегами <a> и </a>

[aleksnine]

Помоги плз кодом простейшего парсера.

[Decoding]

Самый простой вариант в твоем случае такой (мне так кажется): создать экземпляр класса TWebBrowser (не обязательно показывать его пользователю, а просто создать в памяти), а потом, загнать в него документ, и приведенным по выше указанным ссылкам способом достать все ссылки… Как тебе такой вариант?

[SeRыЙ]

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

Тогда парсер пиши, и извлекай все, что находится между тегами <a> и </a>

Напиши плиз простейший вариант - открыть в ТWebBrowser страницу и добавить в ТМемо все ссылки типа http://site.ru/?????.html . Надо не на все файлы а только на *.html странички. Не могу сам написать (

[BlackCash]

К примеру можешь доработать такой вариант, извлекает построчно
из memo1.lines, текст между <a> и </a>... проверку на ЕХЕ'шники
думаю сам додумаешь ...
////////////////////////////////////////////////////////////////////////
Procedure ImportAAHref(Text: TStrings);
var
P,P1,P2,i: Integer;
Str,Str1: String;
begin
for i := 0 to Text.Count-1 do begin
str := Text.Strings[i];
P := Pos(LowerCase('<a>'),LowerCase(Str));
P1 := Pos(LowerCase('</a>'),LowerCase(Str));
if (P <> 0) and (P1 <> 0) then begin
Str1 := Copy(Str,P+3,P1-4);
Form1.ListBox1.Items.Add(Str1);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ImportAAHref(Memo1.Lines);
end;