Delphi

[Hollywood]

Глуповатый вопрос, но, pos ищет в коде сайта или на странице?

 

[ViDoG]

В коде.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  Page: string;
begin
  IdHTTP1.AllowCookies := true;
  IdHTTP1.HandleRedirects := true;
  try
    Page := IdHTTP1.Get('http://google.ru');
  except
  end;
  if Pos('{google.ml(new Error("GLMM"),false,{src:g}', Page) <> 0 then
  begin
    ShowMessage('YES');
  end
  else
  begin
    ShowMessage('NO');
  end;
end;

 

[cyber]

1. скачиваешь в переменную ответ сервера
2. ищешь при помощи pos то что тебе нужно уже в этой переменной