Скачать: CL | DM;

Как программно нажать на кнопку на сайте?   Найти похожие ветки 

← →
Артём   (2012-08-30 14:30) [0]

Здравствуйте! подскажите что неправильно я написал?

var HtmlDocument   : IHtmlDocument2;
     i : integer;
     HtmlCollection : IHtmlElementCollection;
     HtmlElement    : IHtmlElement;
     spisok : string;
begin
   HtmlDocument := webbrowser1.Document as IHtmlDocument2;
   HtmlCollection := HtmlDocument.All;
   for i := 0 to HtmlCollection.length - 1 do
     begin
     if stop = 1 then Exit;
       HtmlElement := HtmlCollection.Item(i, 1) as IHtmlElement;
       spisok := HtmlElement.InnerText;
       Trim(spisok);
       if spisok = "Далее" then
         begin
           HtmlElement.click;
           Exit;
         end;
     end;

ошибка возикает на этой строке.  if stop = 1 then Exit;

---

← →
kilkennycat ©   (2012-08-30 16:29) [1]

в паскале разрешено так выходить из цикла?

---

← →
Владислав ©   (2012-08-30 16:48) [2]

> Артём   (30.08.12 14:30)  


Полный код приведите.

---

← →
Лукошко   (2012-08-30 17:37) [3]

Что за переменная "stop"?

---

← →
antonn ©   (2012-08-30 18:09) [4]

> в паскале разрешено так выходить из цикла?

он из процедуры так выйдет, в чем проблема?

---

← →
Плохош   (2012-08-30 18:45) [5]

> ошибка возикает

Надо пожаловаться её отцу и он объяснит ей, что возикать не хорошо.

---

← →
Inovet ©   (2012-08-30 19:15) [6]

> [4] antonn ©   (30.08.12 18:09)
> > в паскале разрешено так выходить из цикла?
>
> он из процедуры так выйдет, в чем проблема?

Он выйдет, но понять это сложно даже в 10-ти строчках, и даже, похоже, самому автору.

---

← →
Студент   (2012-08-30 20:29) [7]

#ifdef IMHO
Страница при нажатии формирует запрос вида http://127.0.0.1/index?=2&click=33
к примеру. Нажатие
procedure onTimer2(Sender : TObject);
begin
 format("http://127.0.0.1/index?=%d&click=%d", page, buttonNum);
 sendHttpQuery;
end;
#endif //IMHO

---

← →
Студент   (2012-08-30 20:30) [8]

#ifdef IMHO
Страница при нажатии формирует запрос вида http://127.0.0.1/index?=2&click=33
к примеру. Нажатие
procedure onTimer2(Sender : TObject);
begin
sendHttpQuery(format("http://127.0.0.1/index?=%d&click=%d", page, buttonNum));
end;
#endif //IMHO

---

← →
brother ©   (2012-08-30 20:51) [9]

выход из процедуры по Exit, почему нет?

---

← →
brother ©   (2012-08-30 20:52) [10]

>
> ошибка возикает на этой строке.  if stop = 1 then Exit;

а не тут?
 HtmlCollection := HtmlDocument.All;

---

← →
Inovet ©   (2012-08-30 20:55) [11]

> [9] brother ©   (30.08.12 20:51)
> выход из процедуры по Exit, почему нет?

Да, но ты на исходник посмотри.

---

← →
brother ©   (2012-08-30 21:02) [12]

стандартный выход, например при закрытии проги...

---

← →
antonn ©   (2012-08-30 22:03) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.05 c