Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Не получается найти текст

Автор: HoZeY 29.12.2009, 01:31

Вот мой код:

Код


procedure TForm1.Button3Click(Sender: TObject);

var
r:String;

begin
r:=IdHTTP1.Get('http://google.ru');

if AnsiPos('Поиск страниц на русском', r)=0 then

Memo1.Text:='Error!!'

else
Memo1.Text:='NICE! :)'

end;

Хочу найти на странице "Поиск страниц на русском", но не находит.... выдает всегда 'Error!!'

А если просто ищу

Код


.
.
.
if AnsiPos('Поиск', 'Поиск страниц на русском')=0 then
.
.
.

Все находит отлично. А со страницы не хочет

Версия индейцев 10.2.5

Автор: Proxin 29.12.2009, 10:41

вы посмотрите, что получаете в s, и есть ли там эта строка.
вместо ansipos пользуйте просто pos. у goolgle.ru кодировка utf-8.