VPF::заполнить форму через Дельфи - Форум программистов

abala

Дата 8.9.2004, 16:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как програмно симитировать нажатие кнопки, ссылки и заполнения поле ввода в работающем IE, (автозаполнение)

Illusion Dolphin

Дата 8.9.2004, 17:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

работающем IE

А какое тебе именно окно нужно? Если их открыто не одно, а 10, то по какому критерию выбирать? Если у тебя есть хэндл окна, то тогда посмотри, есть такие проги, которые показывают в рунтайм классы окон, возможно, что, например, окно ввода пути имеет свой клас определённый, тогда с помощью findWindow его можно найти, а дальше посылать сообщение нужно.

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

p0s0l

Дата 9.9.2004, 00:23 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Если надо заполнить форму, то вот набросал примерчик:

Код

uses
  ..., SHDocVw, ActiveX, MSHTML;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitialize(nil);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  isw : IShellWindows;
  wb2 : IWebBrowser2;
  doc : IHTMLDocument2;
  col : IHTMLElementCollection;
  el : IHTMLElement;
  i : integer;
  
begin

  isw := CoShellWindows.Create;
  wb2 := isw.Item(0) as IWebBrowser2;
  doc := wb2.Document as IHTMLDocument2;

// заполнение полей ввода
  col := doc.all.tags('input') as IHTMLElementCollection;
  for i := 0 to col.length-1 do
  begin
    el := col.item(i, 0) as IHTMLElement;
    if el.getAttribute('type', 0) = 'text' then
      el.setAttribute('value', 'input: ' + IntToStr(i), 0);
  end;

// заполнение textarea
  col := doc.all.tags('textarea') as IHTMLElementCollection;
  for i := 0 to col.length-1 do
  begin
    el := col.item(i, 0) as IHTMLElement;
    el.setAttribute('value', 'textarea: ' + IntToStr(i), 0);
  end;

// включение checkbox'ов
  col := doc.all.tags('input') as IHTMLElementCollection;
  for i := 0 to col.length-1 do
  begin
    el := col.item(i, 0) as IHTMLElement;
    if el.getAttribute('type', 0) = 'checkbox' then
      el.setAttribute('checked', 1, 0);
  end;

end;

В этом примере берётся первый попавшийся IE.
В isw.Count содержится количество окон IE, просматривай их всех, и работай только с нужным.
Определить то это окно или нет, можно через wb2.HWND...

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

С уважением, г-н Посол.

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