Вот пример поиска всех ссылок на странице:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
rege:tregexpr;
s:string;
begin
s:=idhttp1.Get(edit1.Text);
rege:=tregexpr.Create;
rege.Expression:='(http|ftp)://([\w.]+)/([\w\?\+=\-\.\\]+)';
if rege.Exec(s) then
begin
memo1.Lines.Clear;
memo1.Lines.Add('На данной странице найдены следущие ссылки:');
repeat
memo1.Lines.Add(rege.Match[0]);
until not rege.ExecNext;
end
else
memo1.Lines.Add('На данной странице ссылок не обнаружено...');
rege.Free;
end;
чтобы всё это заработало надо подключить модуль "regExpr" . Файл модулюя прилогается.