Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WebBrowser заполнение полей, как заполнить определенные поля? + enter 
:(
    Опции темы
ConstantinXXX
  Дата 12.4.2008, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

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



как в WebBrowser заполнить определенные поля? И отправить Enter? 
( Например login и password для того что б автоматически заходить в чат или форум. Если пароль типа - urehuteriutoieurhotwiehrituh что б его не вводить в ручную а программно. Или в поиск www.rambler.ru вписать определенный запрос и нажать enter)
--------------------
Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info
PM MAIL WWW   Вверх
December
Дата 12.4.2008, 14:15 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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



В DRKB!


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
D1s0rd3r
Дата 22.4.2008, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Код

// Изменение
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := False;
    //Формы нет
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
    //Форм в документе
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //если найденно изменить.
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
  end;

//Узнаем значение
function EntForm(WebBrowser: TWebBrowser; FieldName: string): String;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
        if FormItem.Item(j).Name = FieldName  then
        begin
            FormItem.Item(j).Click;
            Result := FormItem.Item(j).Value;
           end;
        except
          Exit;
        end;
      end;
    end;
  end;

//Нажатие
function loxForm(WebBrowser: TWebBrowser; FieldName: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := FALSE;
    //Нет формы в документе
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      ShowMessage('Нет формы...');
      Exit;
    end;
    //Найдена форма в документе
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Click;
            Result := True;
           end;
        except
          Exit;
        end;
      end;
    end;
  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('www.xxx.ru');
Caption := Webbrowser1.OleObject.Document.Title;
end;


Это сообщение отредактировал(а) D1s0rd3r - 22.4.2008, 08:26
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.0601 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.