VPF::управление браузером - Форум программистов

alexpzas

Дата 17.9.2010, 19:43 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Akella

Дата 17.9.2010, 20:51 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

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

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 (ссылка)

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

Загрузка ...

Творец

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

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

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

)

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

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

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

alexpzas

Дата 19.9.2010, 15:53 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Akella

Дата 19.9.2010, 20:39 (ссылка)

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

Загрузка ...

Творец

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

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

Цитата(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');

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