html — автоматизация команды .php в Delphi через oleobject

Я относительно новичок в Delphi, поэтому, если заголовок не соответствует содержанию вопроса, мои извинения. Я ищу, чтобы автоматизировать процесс на сайте, который отправляет форму. Я считаю, что я изолировал код от сайта, который обрабатывает это (значения, отредактированные для безопасности учетной записи), который:

    <form action="action.php" method="post">
<p class="center">
<input type="hidden" name="StringOne" value="StringOneB" />
<input type="hidden" name="StringTwo" value="StringTwoB" />
<input type="hidden" name="StringThree" value="StringThreeB" />
<input type="image" src="img/imageone.jpg" />
</p>
</form>

Это единственная форма на странице. Форма обычно отправляется нажатием imageone.jpg. Значения трех входов генерируются динамически. Как мне автоматизировать отправку этой формы? Я планировал использовать интернет-проводник OleObject. Мой код в настоящее время выглядит как

    procedure TForm1.Button1Click(Sender: TObject);
var
IE: variant;
begin
IE:= CreateOleObject('internetExplorer.Application');
IE.visible := true;
IE.navigate('http://thesite.com');

Я попытался использовать следующее (каждая строка является отдельной попыткой):

      IE.Document.GetElementByID('StringOne').setAttribute('value', 'StringOneA', 0);
//above won't work because input has no ID
IE.Document.GetElementByName('StringOne').setAttribute('value', 'StringOneA', 0);
//does not appear to be understood
IE.OleObject.Document.forms[0].submit();
IE.OleObject.Document.forms[1].submit();
//does not appear to recognise the form

Я пробовал бесчисленное множество других строк кода, но ни одна из них не была плодотворной. Можно ли это сделать, и если да, то как? Если бы какой-либо код мог быть объяснен, это было бы полезно, поскольку я не очень хорошо разбираюсь в автоматизации OleObject. Я могу получить значения из HTML-источника, основной вопрос заключается в том, чтобы просто отправить форму, предполагая, что у меня есть значения. Все остальное является бонусом. Если что-то нужно уточнить, просто скажите.

0

Решение

Задача ещё не решена.

Другие решения

Других решений пока нет …

По вопросам рекламы ammmcru@yandex.ru
Adblock
detector