Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi и сети
Войти
Регистрация
Восстановить пароль
 
Valimer
4 / 3 / 1
Регистрация: 29.03.2015
Сообщений: 237
#1

Выполнение действий в WebBrowser1, ошибка - Delphi

04.12.2016, 17:17. Просмотров 231. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
var
res,data, code1:Tstrings;
name,phone, code:string;
  i,i1,i2,i3: Integer;
  html: Variant;
  DocS : IHTMLElementCollection;
 Element: IHTMLElement;
a: variant;
begin
form1.WebBrowser1.Navigate('http://m.vk.com/');
 while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
begin
   html := form1.WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (html.Length - 1) do
  begin
    if (html.item(i).name = 'email') then
      html.item(i).value := form1.Edit2.Text;
    if (html.item(i).name = 'pass') then
      html.item(i).value := form1.Edit3.Text;
      DocS:=(form1.WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
end;
end;
 
begin
form1.WebBrowser1.Navigate('http://m.vk.com/login?act=blocked&change_phone#form');
while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
form1.WebBrowser1.Navigate('http://m.vk.com/login?act=blocked&current_phone#form');
DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
Element.click;
end;
 
//... тут получаем код и вводим его в edit6.text;
 
     html := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i1 := 0 to (html.Length - 1) do
  begin
    if (html.item(i1).name = 'code') then
      html.item(i1).value := edit6.Text;
      DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
  end;
 
     html := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i2 := 0 to (html.Length - 1) do
  begin
    if (html.item(i2).name = 'pass') then
      html.item(i2).value := form1.Edit1.Text;
     DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
  end;
end;
При выполнении данного кода вылезают куча ошибок, как исправить? я так понимаю действия выполняются быстрее чем бразуер успевает прогружаться, искал на форумах что-то, но не особо нашел что-то
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2016, 17:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выполнение действий в WebBrowser1, ошибка (Delphi):

Выполнение действий с браузера
Здрайствуйте, подскажыте как собирать с WebBrowser1 определенную информацию?

Ошибка, WebBrowser1
http://saveimg.ru/show-image.php?id=fc630876872ffe1d9d12cda1a55fadd1...

Передача информации в другое приложение и выполнение в нем действий!!!
Предположим есть сторонние приложение, в котором есть поле ввода текста и...

WebBrowser1 click
Два дня уже сижу и не пойму как кликнуть по этой кнопки в WebBrowser1 &lt;a...

webbrowser1 и post запрос
Можно ли отправить пост запрос на страничку и чтобы результат вывелся в...

Нажатие на ссылку в WebBrowser1
в WebBrowser1 загружается страница : WebBrowser1.Navigate(...

1
Valimer
4 / 3 / 1
Регистрация: 29.03.2015
Сообщений: 237
07.12.2016, 14:43  [ТС] #2
что никто не знает?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2016, 14:43
Привет! Вот еще темы с решениями:

Как вытащить из webbrowser1 число?
фрагмент кода &lt;div class=&quot;stat&quot;&gt; &lt;p&gt; &lt;span&gt; текст 50 &lt;/span&gt; &lt;/p&gt; &lt;/div&gt;...

проблемы с Метод webbrowser1.Navigate
Всем привет!! помогите!! Пытаюсь сделать что-то типа браузера только чтобы он...

webbrowser1 невозможно отобразить страницу
procedure TForm1.FormCreate(Sender: TObject); begin...

игнор ошибки в webbrowser1.Navigate
Добрый день! При использовании webbrowser1.Navigate на некоторых страницах...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru