Как я могу выполнить различную отправку в HTML форме с Delphi? - PullRequest
0 голосов
/ 14 марта 2020

Я пишу программное обеспечение для автоматического заполнения полей в TWebBrowser и выполнения соответствующей отправки.

К сожалению, форма содержит три кнопки, которые выполняют разные типы отправки.

Понятно, это не работает:

form: = WebFormGet (formNumber, WebBrowser1.Document AS IHTMLDocument2);   
form.submit;

Я заметил эту строку кода вверху страницы HTML:

<form name = "RicercaIMMForm" method = "post" action = 
"https://sister.agenziaentrate.gov.it/Visure/vimm/RicercaIMM.do" onsubmit = "this.scelta.disabled = true;">

, а внизу:

<td> <input type = "submit" name = "choice" value = "Search"> </td>
<td> <input type = "submit" name = "choice" value = "Visura"> </td>
<td> <input type = "submit" name = "choice" value = "Clean"> </td>
<td> <input type = "submit" name = "choice" value = "last search"> </td>

Я должен был отправить кнопку со значением «Поиск».

... ... ...

Вы можете мне помочь?


ОБНОВЛЕНИЕ 17/03/2020 Я решил с помощью этого:

procedure TFMain.WebFormSubmit(const document: IHTMLDocument2;
  const formNumber: integer);
var
  Doc: IHTMLDocument2;
  WebForm: IHTMLFormElement;
  FormElements: OleVariant;
  i: integer;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  WebForm := Doc.Forms.Item(0,'') as IHTMLFormElement;
  FormElements := WebForm.Elements;
  FormElements.Item(19).Click;
end;

Item(19) - это номер моего объекта (в данном случае кнопка)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...