Имя: Пароль:
1C
1С v8
Запрос на Яндекс из Delphi 7
0 Dagmanor
 
22.08.13
17:47
Всем здравствуйте. Вот краткое описание проблемы.
Работаю в Delphi 7. Требуется получить Html код страницы яндекса. Получаю его c помощью TIdHttp методом Get...


http://pastebin.com/BDTFGJV8

В Edit1 вбивается текст запроса.

Все вроде нормально, но нарываюсь на страничку где яндекс говорит мол Вы робот введите капчу.

Можно как-то убедить яндекс что програмка все-таки не робот?
P.S. не судите строго... подобных задач раньше не делал...
1 Dagmanor
 
22.08.13
17:48
Код в Delphi:

url := 'http://yandex.ua/yandsearch?text='+Edit1.Text;

res := idHTTP1.Get(url) ;
2 NS
 
22.08.13
17:48
Не поверишь, но твоя программа действительно робот.
3 Dagmanor
 
22.08.13
17:49
Верю :)))
Но тем не менее можно как-то это обойти?
4 NS
 
22.08.13
17:52
Замучаешься обходить.
5 acsent
 
22.08.13
17:53
(3) ввести капчу ))
6 NS
 
22.08.13
17:54
Как минимум проверяют заголовок запроса.
7 Dagmanor
 
22.08.13
17:55
(6) Подскажете какой заголовок нужно подставить?
8 acsent
 
22.08.13
17:56
(7) посмотри фидлером что обычный браузер передает
9 Dagmanor
 
22.08.13
18:12
(8) Спасибо товарищи! Научили уму разуму. Подстановка заголовков помогла. Вопрос закрыт.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс