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

← →
Артём (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, почему нет?

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

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

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

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

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