[krasnyakjohn]

Здравствуйте.
Пишу программу, есть такой обработчик клика по кнопке:

Код:

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

procedure TForm2.Button11Click(Sender: TObject); var U,P : Variant; form:olevariant; f,i:Integer; r: TRegExpr; Doc : IHTMLDocument2; s:string; begin WebBrowser1.Navigate('http://web.iqsms.ru/login/?next=/contacts/');   while WebBrowser1.ReadyState<>4 do   Application.ProcessMessages;   U:=webbrowser1.oleobject.document.getelementbyid('id_username');   U.value:=Edit3.Text;   P:=webbrowser1.oleobject.document.getelementbyid('id_password');   P.value:=Edit4.Text;   //U.style.display := 'block';   //P.style.display := 'block';   for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do   begin      form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;         for i:=0 to form.Length-1 do           if (form.item(i).type='submit')  then           begin           form.item(i).click;           end;      end;   WebBrowser1.Navigate('http://web.iqsms.ru/contacts/');   while WebBrowser1.ReadyState<>4 do   Application.ProcessMessages;   Doc := WebBrowser1.Document as IHTMLDocument2;  // получили hmtl код страницы   r := TRegExpr.Create;   s:=Doc.body.innerHTML;   r.InputString :=s; // во входяшую строку положили весь html код   memo3.Text:=s; try   r.Expression :='<A href="/deliveries/add-delivery/">(.*?)</A>';   if r.Exec(s) then begin     Groupbox8.Caption:='Отправить смс заказчику'; end   else ShowMessage('Авторизация не прошла');     finally r.Free; end; end;

Суть кода: должна произойти авторизация на сайте http://web.iqsms.ru/login/?next=/contacts/

Вот так вот происходит заполнение полей логина и пароля и нажимается кнопка "Войти":

Код:

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

procedure TForm2.Button11Click(Sender: TObject); var U,P : Variant; form:olevariant; f,i:Integer; r: TRegExpr; Doc : IHTMLDocument2; s:string; begin WebBrowser1.Navigate('http://web.iqsms.ru/login/?next=/contacts/');   while WebBrowser1.ReadyState<>4 do   Application.ProcessMessages;   U:=webbrowser1.oleobject.document.getelementbyid('id_username');   U.value:=Edit3.Text;   P:=webbrowser1.oleobject.document.getelementbyid('id_password');   P.value:=Edit4.Text;   //U.style.display := 'block';   //P.style.display := 'block';   for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do   begin      form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;         for i:=0 to form.Length-1 do           if (form.item(i).type='submit')  then           begin           form.item(i).click;           end;      end;

Но как только я пытаюсь проверить, зашли мы или нет, дописывая код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

WebBrowser1.Navigate('http://web.iqsms.ru/contacts/');   while WebBrowser1.ReadyState<>4 do   Application.ProcessMessages;   Doc := WebBrowser1.Document as IHTMLDocument2;  // получили hmtl код страницы   r := TRegExpr.Create;   s:=Doc.body.innerHTML;   r.InputString :=s; // во входяшую строку положили весь html код   memo3.Text:=s; try   r.Expression :='<A href="/deliveries/add-delivery/">(.*?)</A>';   if r.Exec(s) then begin     Groupbox8.Caption:='Отправить смс заказчику'; end   else ShowMessage('Авторизация не прошла');     finally r.Free; end; end;

То вылазит ошибка:


и подсвечивается строка:

Код:

1	U.value:=Edit3.Text;

Как я только не пробовал проверять, вошли мы или нет, получаю такую ошибку.
Помогите, пожалуйста.

[poli-smen]

Сообщение от krasnyakjohn

Вот так вот происходит заполнение полей логина и пароля и нажимается кнопка "Войти":

Код:

То вылазит ошибка:


и подсвечивается строка:

Код:

Как я только не пробовал проверять, вошли мы или нет, получаю такую ошибку.
Помогите, пожалуйста.

Скорее всего элемент с таким id не был найден (возможно страница ещё не успела до конца прогрузиться, а может и действительно нет такого элемента на странице). Нужно выполнять проверку найден ли такой элемент, так как в случае если не найден будет получен nil, а при попытке обратиться по этому адресу однозначно получим исключение "Access Violation".

Пример проверки был ли найден элемент у которого id имеет значение "id_username":

Код:

1 2 3

U:=webbrowser1.oleobject.document.getelementbyid('id_username'); if not Assigned(U) then raise Exception.Create('Элемент с id "id_username" не найден'); U.value:=Edit3.Text;

[krasnyakjohn]

Я же говорю, что половинный код, т.е код, который заполняет по id поля логин и пароль - работает, далее код, который нажимает на "войти" - работает, а когда я пытаюсь проверить вошли мы или нет, т.е как-то зацепиться за элементы страницы, то выдает ошибку.

Я еще пробовал сделать через проверку url, т.е если вошли, то проверяем через Location.Url урл страницы, если он совпадает с тем, который я указал, то вошли.

Так что я, если честно, не понял про проверку id. Потому как эти 2 элемента id_username и id_password 100% есть, так как они заполняются.

[poli-smen]

Сообщение от krasnyakjohn

Я же говорю, что половинный код, т.е код, который заполняет по id поля логин и пароль - работает, далее код, который нажимает на "войти" - работает, а когда я пытаюсь проверить вошли мы или нет, т.е как-то зацепиться за элементы страницы, то выдает ошибку.

Ты говоришь что всё заполняется. Программа же в этом месте выдаёт ошибку. Кому мне больше верить?

Сообщение от krasnyakjohn

Я еще пробовал сделать через проверку url, т.е если вошли, то проверяем через Location.Url урл страницы, если он совпадает с тем, который я указал, то вошли.

Это уже второстепенная ошибка - сейчас главное избавиться от ошибки доступа, так как это грубая ошибка и в корректно написанной программе таких ошибок возникать не должно практически ни при каких ситуациях.

Сообщение от krasnyakjohn

Так что я, если честно, не понял про проверку id. Потому как эти 2 элемента id_username и id_password 100% есть, так как они заполняются.

Ты проверки всё же поставь - они никогда не помешают, а код станет надёжней. Например даже если у тебя сейчас всё заработает, а завтра владельцы сайта поменяют id элемента с "id_password" на какой нибудь "id_super_password" и у тебя опять посыпятся ошибки и ты опять будешь искать где и что сломалось, а если будет обработка ошибок ты сможешь быстро в нужном месте исправить и всё будет дальше работать.

[krasnyakjohn]

Сообщение от poli-smen

Скорее всего элемент с таким id не был найден (возможно страница ещё не успела до конца прогрузиться, а может и действительно нет такого элемента на странице). Нужно выполнять проверку найден ли такой элемент, так как в случае если не найден будет получен nil, а при попытке обратиться по этому адресу однозначно получим исключение "Access Violation".

Пример проверки был ли найден элемент у которого id имеет значение "id_username":

Код:

Попробовал вставить ваш код.

Ошибку дает:
[Error] Unit2.pas(605): Incompatible types

[krasnyakjohn]

Сообщение от poli-smen

Ты говоришь что всё заполняется. Программа же в этом месте выдаёт ошибку. Кому мне больше верить?

Но ошибка вылазит после добавления кода проверки на "зашли или нет".
Т.е закрываю это окно с ошибкой и синим цветом подсвечивается та строка, которую я указал.

[poli-smen]

Сообщение от krasnyakjohn

Попробовал вставить ваш код.

Ошибку дает:
[Error] Unit2.pas(605): Incompatible types

Действительно, не заметил что ты используешь позднее связывание, а не раннее. Тогда в проверке нужно использовать VarIsClear вместо Assigned:

Код:

1	if VarIsClear(U) then raise Exception.Create('Элемент с id "id_username" не найден');

[krasnyakjohn]

Сообщение от poli-smen

Действительно, не заметил что ты используешь позднее связывание, а не раннее. Тогда в проверке нужно использовать VarIsClear вместо Assigned:

Код:

Сделал, теперь ошибки нет, но поля перестали заполняться и кнопка не нажимается, но зато выскакивает ShowMessage Авторизация не прошла.

[krasnyakjohn]

Может когда я второй раз перехожу по адресу опять идет поиск этих полей, но почему? Я ничего не понимаю.

[poli-smen]

Сообщение от krasnyakjohn

Сделал, теперь ошибки нет, но поля перестали заполняться и кнопка не нажимается, но зато выскакивает ShowMessage Авторизация не прошла.

От добавления проверки перестало заполняться? Что-то мало верится.
Может перестало заполняться так как стали появляться ошибки типа "Элемент с id "id_username" не найден" - тогда конечно - это срабатывают проверки и заполняться при этом не должно, так как некуда.

Сообщение от krasnyakjohn

Может когда я второй раз перехожу по адресу опять идет поиск этих полей, но почему? Я ничего не понимаю.

Заполнение этих полей ведь находится только в обработчике события Button11Click ?

[krasnyakjohn]

Да.. сложно поверить, но это так.

Если из обработчика удалить этот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

WebBrowser1.Navigate('http://web.iqsms.ru/contacts/');   while WebBrowser1.ReadyState<>4 do   Application.ProcessMessages;   Doc := WebBrowser1.Document as IHTMLDocument2;  // получили hmtl код страницы   r := TRegExpr.Create;   s:=Doc.body.innerHTML;   r.InputString :=s; // во входяшую строку положили весь html код   memo3.Text:=s; try   r.Expression :='<A href="/deliveries/add-delivery/">(.*?)</A>';   if r.Exec(s) then begin     Groupbox8.Caption:='Отправить смс заказчику'; end   else ShowMessage('Авторизация не прошла');     finally r.Free; end; end;

То происходит заполнение полей и нажимается кнопка входа. (Я это в webbrowser'е вижу, т.е происходит авторизация, а когда добавляю этот код, то не происходит и пишет "Авторизация не прошла")

[krasnyakjohn]

Да, вот если убрать тот код, который я написал выше, то работает и авторизация проходит, если еще раз нажать "войти" с теми же данными, то прога вываливается на вашей проверке, что естественно, потому как страница открылась другая и естественно этих полей с таким id там нет.

[krasnyakjohn]

Помогите..пожалуйста

[poli-smen]

Сообщение от krasnyakjohn

Код:

Вот это место мне ещё не нравится. После того как мы нашли кнопку и кликнули по ней нужно тут же прерывать оба цикла, ведь по клику, я так понимаю, начнётся подгрузка страницы и по этой же причине желательно перед продолжением выдержать некоторую паузу.
Других недочётов я пока не вижу.

[krasnyakjohn]

Сообщение от poli-smen

Вот это место мне ещё не нравится. После того как мы нашли кнопку и кликнули по ней нужно тут же прерывать оба цикла, ведь по клику, я так понимаю, начнётся подгрузка страницы и по этой же причине желательно перед продолжением выдержать некоторую паузу.
Других недочётов я пока не вижу.

Бред, вчера работало с вашими проверками, а сегодня не может найти id_username, хотя на сайте ничего не поменялось..