Вторник, 16.04.2024, 08:04
Приветствую Вас Гость

Не ошибается тот, кто ничего не делает.
Но и ничего не делать - ошибка.

Эмиль Кроткий

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Delphi » Разное » осуществление поиска в интернете
осуществление поиска в интернете
BM_GORAДата: Понедельник, 25.06.2012, 08:43 | Сообщение # 1
Лейтенант
Группа: Пользователи
Сообщений: 44
Репутация: 0
Статус: Offline
в общем хочу сделать все по такому принципу:
вписываеш название песни в текст бокс (кстатии у меня одного в delphi 2007 нет текст бокса ?? если да то как его туда впихнуть и откуда скачать ?), нажимаеш ентер и открывается браузер(интернет експлоэр к примеру(просто он у всех есть)), в браузере открывается например гугл, и в нем уже написано название песни и выданы результаты.
Можно ли такое осуществить ?

Добавлено (25.06.2012, 07:32)
---------------------------------------------
вот, нашёл такой код, помогите плиз переделать его под мое описание:
procedure TForm1.LoadUrlBtnClick(Sender: TObject);
begin
WebBrowser1.Navigate('www.google.ru'); //загружаем страницу
end;

procedure TForm1.PoiskEditChange(Sender: TObject); //вводим в окно поиска свой запрос
begin
WebBrowser1.OleObject.Document.forms.item(0).elements.item(1).value:=PoiskEdit.Text;
end;

procedure TForm1.CliclBtnClick(Sender: TObject); //кликаем на кнопке Поиск в Google
begin
WebBrowser1.OleObject.Document.forms.item(0).elements.item(2).click;
end;

Добавлено (25.06.2012, 08:43)
---------------------------------------------
все нашел решение, вот кому интересно можете посмотреть ))http://www.youtube.com/watch?v=dYizRU_P4HY
на счет текст бокса.... сори за мою тупость )))))

 
Форум » Delphi » Разное » осуществление поиска в интернете
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2024Конструктор сайтов - uCoz