[doberman]

Добрый день, есть необходимость в открытый через Webbrowser в XE8 сайт (окно авторизации) вставить в текстовые поля логин и пароль, на VCL это понятно как сделать через OleObject.Document, а есть ли возможность сделать такое-же на multi-device? как авторизовываться через idHttp я знаю, задача именно через Webbrowser)))

[Страдалецъ]

Примерно так:

Код:

procedure TfrmJournal.AutoLogin(WB: TWebBrowser);
Var
  WebDoc: IHTMLDocument2;
  WebItem: IHTMLElement;
  i: Integer;
begin
 SendingQuery := False;
 WebDoc := WB.Document as IHTMLDocument2;
 for i := 0 to WebDoc.All.Length - 1
 do begin
    WebItem := WebDoc.All.Item(i, '') as IHTMLElement;
    if WebItem.id = 'userNameText' then WebItem.innerText := frmSettings.edUserName.Text;
    if WebItem.id = 'passwdText' then WebItem.innerText := frmSettings.edUserPassword.Text;
    if WebItem.Title = 'Log In'
    then begin
         WebItem.Click;
         Break;
         end;
    end;
end;

[NumLock]

Неправильно использовать single подход к multi разработке. Пиши свой браузер!