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

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

Форум программистов > Delphi: Сети > управление браузером

Автор: alexpzas 17.9.2010, 19:43

Доброго времени суток, заранее огворюсь , что в этой теме не сведущь, прошу хотябы показать направление . А задача такова: нужно запустить мозилу зайти в ней на яндекс в поле поиска задать поисковую фразу и в открывшемся перечне проанализировать (вернее найти тот сайт который нужен) и сделать переход по этой ссылке на сайт. Если у кого есть идеи или какойто код , заранее спасибо. еще интересует возможность записи в определённые поля на сайте информации и как можно сохранить программно открытую веб страницу по типу файл-сохранить как- сохранить

Автор: Akella 17.9.2010, 20:51

shellexecute

Добавлено через 4 минуты и 27 секунд
поиск, например, на своём сайте

Код


procedure TfmMain.actSearchOnlineExecute(Sender: TObject);
Var
 s: string;
begin

  s := '';
  if InputQuery('ПОИСК НА САЙТЕ', 'Введите слово для поиска:', s) then

  ShellExecute(Self.Handle,
               'open',
               PChar('http://www.makeit-team.com/component/search/' + s + '.html?ordering=&searchphrase=all'),
               nil,
               nil,
               SW_MAXIMIZE);
end;

Добавлено через 8 минут и 2 секунды

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle,
               'open',
               PChar('http://yandex.ua/yandsearch?text=' + edit1.Text),
               nil,
               nil,
               SW_MAXIMIZE);
end;

Добавлено через 13 минут и 39 секунд

Код


  ShellExecute(Self.Handle,
               'open',
               PChar('iexplore.exe'),
               PChar('http://yandex.ua/yandsearch?text=' + edit1.Text),
               nil,
               SW_MAXIMIZE);

Добавлено через 14 минут и 32 секунды

Код


  ShellExecute(Self.Handle,
               'open',
               PChar('firefox.exe'),
               PChar('http://yandex.ua/yandsearch?text=' + edit1.Text),
               nil,
               SW_MAXIMIZE);

Автор: Akella 17.9.2010, 21:07

Цитата(alexpzas @ 17.9.2010, 19:43

)

еще интересует возможность записи в определённые поля на сайте информации и как можно сохранить программно открытую веб страницу по типу файл-сохранить как- сохранить

1 вопрос = 1 тема

Добавлено через 2 минуты и 35 секунд
поищи примеры с использованием TIdHttp.Post()

Автор: alexpzas 19.9.2010, 15:53

спасибо за ответ, но по поводу поиска я имел ввиду чуть чуть не то , что Вы предложили, подразумевается что я программно уже открыл яндекс с указанной строкой поиска,у меня высветился перечень найденных сайтов , и вот среди этого перечня мне нужно найти ссылку на нужный мне сайт и произвести по ней переход. И будет ли яндекс считать этот переход из своей поисковой системы на этот сайт или же это будет считаться обычным переходом по прямой ссылке типа закладке ?

Автор: Akella 19.9.2010, 20:39

Цитата(alexpzas @ 19.9.2010, 15:53

)

подразумевается что я программно уже открыл яндекс с указанной строкой поиска,у меня высветился перечень найденных сайтов , и вот среди этого перечня мне нужно найти ссылку на нужный мне сайт и произвести по ней переход

А сразу НОРМАЛЬНО задать вопрос нельзя было?

Тогда просто запрашиваешь у поисковика то, что нужно и парсишь полученный текст страницы с помощью регулярных выражений.

Добавлено через 43 секунды

Цитата(alexpzas @ 19.9.2010, 15:53

)

И будет ли яндекс считать этот переход из своей поисковой системы на этот сайт или же это будет считаться обычным переходом по прямой ссылке типа закладке ?

А это уже зависит от тебя, что ты будешь серверам отдавать при запросе.

Добавлено через 2 минуты и 6 секунд

Цитата(alexpzas @ 17.9.2010, 19:43

)

и как можно сохранить программно открытую веб страницу по типу файл-сохранить как- сохранить

ну самое простое это

Код


StringList1 := idHttp.Get();
StringList1.SaveToFile('d:\page1.html');