[Afors]

Вопрос: Можно ли с помощью функции SetWindowText() поместить текст в интернет-страницу (TWebBrowser) в поле ввода текста (пароля)? Если это возможно, то как? - помогите.

[Aristarh Dark]

Наверное можно, но есть способы проще.

[Afors]

Сообщение от Aristarh Dark

Наверное можно, но есть способы проще.

Ты говоришь, что есть способ проще, что это за способ?
(Пока что я использую чтение из TWebBrowser в строку, заменяю в строке нужную переменную (например, value) и заливаю снова в TWebBrowser. Не очень удобно)

[Aristarh Dark]

а GET/POST запросы напрямую к сайту?

[Afors]

Сообщение от Aristarh Dark

а GET/POST запросы напрямую к сайту?

Можно подробнее, это методы TWebBrowser? Очень нужен совет!!!

[Rokuell]

Код:

procedure TForm1.Button3Click(Sender: TObject);
var ovElements: OleVariant;
    i,len: Integer;
    name,tp:string;
    idLogin,idPass,idButton:integer;
begin
 ovElements := TWebBrowser1.OleObject.Document.forms.item(0).elements;
 len := ovElements.Length;
 for i:=0 to (len-1) do
  begin
   name := ovElements.item(i).Name;
   tp := ovElements.item(i).type;
   if ( name = 'username') and ( tp = 'text') then idLogin := i;
   if ( name = 'password') and ( tp = 'password') then idPass:=i;
   if ( name = 'submit') and ( tp = 'submit') then idButton := i;
  end;
 ovElements.item(idLogin).value := stlogin;
 ovElements.item(idPass).value := stpass;
 ovElements.item(idButton).Click;
end;

Искомые значения Name и type ищешь в Html-коде страницы сам.
stlogin и stpass - это у меня были переменные типа string хранящие логин и пароль

[Afors]

Спасибо!!! ОГРОМЕННОЕ! Как раз то, что нужно. Всё работает! Respect!!!!!!