Заполнение полей (input)

[imax228]

Пишу парсер информации по аккаунту origin, нашёл простейший код по webbrowser, до парсинга инфы так и дело не дошло, в ступор на авторизации. Если заполнить поля, допустим на сайте маил ру, всё выходит и заходит, если же поменять ссылку и импуты из исходного кода страницы авторизации https://www.origin.com/ru/login то ничего не происходит. В чём может быть причина? Спасибо!


unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm2 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('https://www.origin.com/ru/login');
end;

procedure TForm2.Button2Click(Sender: TObject);
var
html_taglevariant;
i:integer;
s:string;
begin
html_tag:=WebBrowser1.oleObject.Doc ument.forms.item(0).elements;
for i:=0 to (html_tag.length -1) do
begin



if (html_tag.item(i).name = 'oauthbasiclogin[email]') then
html_tag.item(i).value:='почта от акка';

if (html_tag.item(i).name = 'oauthbasiclogin[password]') then
html_tag.item(i).value:='пароль от акка';

if (html_tag.item(i).value='Вход') then
html_tag.item(i).click;





end;




end;

end.