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

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

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

Автор: Forelli 21.12.2007, 14:22

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

Автор: Snowy 21.12.2007, 15:55

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

Автор: mmvds 22.12.2007, 22:02

Только не понятно, зачем нужен инди, если можно воспользоваться стандартным 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

можно еще так

Код


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

Автор: MetalFan 5.1.2008, 16:47

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

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

)

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

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

Автор: aktuba 5.1.2008, 16:50

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

)

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

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