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

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

December

Дата 12.4.2008, 14:15 (ссылка)

(голосов:2)

Загрузка ...

Antitheorist

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

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

В DRKB!

--------------------

Для друзей с винграда - скидки на разработку сайтов

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

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