Я пишу программное обеспечение для автоматического заполнения полей в 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)
- это номер моего объекта (в данном случае кнопка)