|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Автозаполнение полей ввода
Вопрос: Можно ли с помощью функции SetWindowText() поместить текст в интернет-страницу (TWebBrowser) в поле ввода текста (пароля)? Если это возможно, то как? - помогите.
|
#2
|
||||
|
||||
Наверное можно, но есть способы проще.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
Цитата:
Ты говоришь, что есть способ проще, что это за способ? (Пока что я использую чтение из TWebBrowser в строку, заменяю в строке нужную переменную (например, value) и заливаю снова в TWebBrowser. Не очень удобно) |
#4
|
||||
|
||||
а GET/POST запросы напрямую к сайту?
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
||||
|
||||
Цитата:
|
#6
|
||||
|
||||
Например так
Код:
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; stlogin и stpass - это у меня были переменные типа string хранящие логин и пароль Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#7
|
||||
|
||||
Спасибо!!! ОГРОМЕННОЕ! Как раз то, что нужно. Всё работает! Respect!!!!!!
|