VPF::Отправить данные в поисковик - Форум программистов

Forelli

Дата 21.12.2007, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.3.2004

Репутация: нет
Всего: нет

Проблема такая надо написать программу, которая отправляет строку из программы в поисковик (тоесть запрос) , а потом результат вывести в программу.
Знаю, что надо использовать Инди. Но толком с этим никогда не работал. Как получить данные уже нашёл такую тему, а вот как оправить....

Snowy

Дата 21.12.2007, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Точно также.
Только адрес запроса составляешь с учётом искомого слова.
Например так: http://www.yandex.ru/yandsearch?text=TIdHTTP
или так: http://www.google.com/search?q=TIdHTTP

mmvds

Дата 22.12.2007, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: 1
Всего: 6

Только не понятно, зачем нужен инди, если можно воспользоваться стандартным TWebBrowser (вкладка интернет)
а потом грузим результат - ссылку, как сказал Snowy

Т.е примерно будет выглядеть так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.yandex.ru/yandsearch?text='+edit1.text);
end;

Button1-кнопка поиска
webbrowser1-окно компонента TWebBrowser для вывода результата
edit1- строка с запросом

Lence

Дата 5.1.2008, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Чухарадземадзупэ

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: нет
Всего: 3

можно еще так

Код


uses ShellApi
...
ShellExecute(0, nil,pChar('http://www.yandex.ru/yandsearch?text='+ edit1.text) ,nil,nil,1);

--------------------

Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....

MetalFan

Дата 5.1.2008, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

mmvds, Lence, ключевая фраза:

Цитата(Forelli @ 21.12.2007, 14:22

)

потом результат вывести в программу

я думаю idHTTP более чем для этого подойдет!
потом распарсить ответ с пом регулярки и вывести в нужном виде.

--------------------

There are always someone smarter than you...

aktuba

Дата 5.1.2008, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата(MetalFan @ 5.1.2008, 17:47

)

я думаю idHTTP более чем для этого подойдет!
потом распарсить ответ с пом регулярки и вывести в нужном виде.

Согласен, только надо учесть, что после некоторого количества запросов поисковик может забанить...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »