Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Delphi и сети

Войти
Регистрация
Восстановить пароль
 
Valimer
4 / 3 / 0
Регистрация: 29.03.2015
Сообщений: 147
#1

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

04.12.2016, 17:17. Просмотров 203. Ответов 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):

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

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

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

WebBrowser1 click - Delphi
Два дня уже сижу и не пойму как кликнуть по этой кнопки в WebBrowser1 &lt;a class='btnlogin' href='/ссылка'&gt;Вход&lt;/a&gt; Как ток не...

webbrowser1 и post запрос - Delphi
Можно ли отправить пост запрос на страничку и чтобы результат вывелся в webbrowser1? И как это можно реализовать?

Нажатие на ссылку в WebBrowser1 - Delphi
в WebBrowser1 загружается страница : WebBrowser1.Navigate( 'http://primer.co-m.ru' ); нужно написать код, чтобы при клике по ссылке на...

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

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

игнор ошибки в webbrowser1.Navigate - Delphi
Добрый день! При использовании webbrowser1.Navigate на некоторых страницах выскакивает сообщение типа &quot;На этой странице произошла шибка...

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

webbrowser1 невозможно отобразить страницу - Delphi
procedure TForm1.FormCreate(Sender: TObject); begin webbrowser1.navigate(ExtractFilePath(ParamStr(0))+'D:\зрилл\index.htm'); end; ...


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

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

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