Получение META с сайта

[Horus92]

Здравствуйте не могли бы вы мне помочь есть ли у кого то код получения META тегов с сайтов мне надо для автоматической загрузки ключевых сло с сайтов.

[5naip]

загляните сюда http://programmersforum.ru/showthread.php?t=29121
там в итоге получаем код странички, а потом уж несложно будет выделить из него все что находится между <meta name="keywords" content=" и " />.

[Horus92]

Да я воспользовался процедурой извлечения html кода но у меня проблемка подскажите где у меня в коде ошибка:

procedure TForm2.Button2Click(Sender: TObject);
var s,h,m,b:string; I:integer;
begin
b:='<meta name="keywords" content="';
m:='';
s:=edit2.Text;
h:=wget(s,idhttp1);
  if pos(b,h)=1 then
    begin
     memo1.Lines.Add(h);
        for i:=pos(b,h) to length(h) do
          while s[i]<>'/' do
            m:=m+copy(h,i+Length(b),1);
            edit3.Text:=m;
    end;
end;

я пробовал текст страницы у меня выводит и в memo и в edit но если вывод поставить после if то ничего не выводиться я даже менял if на pos(b,h)=0 но тоже ничего не выполнялось как будто оно просто проскакивает его