WebBrowser1

[Bondul]

Два дня уже сижу и не пойму как кликнуть по этой кнопки в WebBrowser1

PHP код:

<a class='btnlogin' href='/enter.php?ctr=1371763a048a16d43e4bcbba5259c2ec'>Вход</a> 


Как ток не пробавал всёравно нечего не получается вот к примеру так

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
 doc := WebBrowser1.document as ihtmldocument2;
 WebBrowser1.OleObject.document.getElementByID('btnlogin').click;
end;

Думую может найдутся умные люди и обеснят лошку!

[Bondul]

Мда.... походу что клик невополним!

[Пепел Феникса]

выполним вполне, у вас фильтрация же должна быть по классу а не по ID.

[Bondul]

Сообщение от Пепел Феникса

выполним вполне, у вас фильтрация же должна быть по классу а не по ID.

Пепел Феникса, Я что ток нетробовал и по классу ставил и не в какую не получилось.

[Кольша]

А почему бы не перейти на просто компоненты типа Tidhttp или Thttpsend поверьте это не так уж и сложно просто надо быдет еще разобраться с copy pos delete и будет вам счастье

[Bondul]

Сообщение от Кольша

А почему бы не перейти на просто компоненты типа Tidhttp или Thttpsend поверьте это не так уж и сложно просто надо быдет еще разобраться с copy pos delete и будет вам счастье

Кольша, мне нужна именно через WebBrowser1 это зделать Tidhttp это легко а вот через WebBrowser1 не для наших свами умов.

[Bondul]

Эх жалко профисионалов нету сегодня а тоб обьяснилиб.

[Кольша]

Я с вас тащусь через wb да оооочень трудно!

uses MSHTML;

-------------------------------

procedure TForm1.FormClick(Sender: TObject);
var link:variant;
    i:integer;
begin
 link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
 for i:=0 to link.length-1 do
 if pos('/enter.php?ctr=',link.item(i).href)<>0 then link.item(i).click;
end;

P.S две минуты в гугле

[Bondul]

Сообщение от Кольша

Я с вас тащусь через wb да оооочень трудно!

uses MSHTML;

-------------------------------

procedure TForm1.FormClick(Sender: TObject);
var link:variant;
    i:integer;
begin
 link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
 for i:=0 to link.length-1 do
 if pos('/enter.php?ctr=',link.item(i).href)<>0 then link.item(i).click;
end;

P.S две минуты в гугле

Слушай браток выручил так выручил я уж подумал что сегодня одни новечки на форуме. Я сним 2 дня капался.

[xrob]

Колыша, вы, часом, свою винду не пишете?
А то у вас все то кнопку сам нарисуй, то Браузер из copy, pos и Tidhttp сваяй...
я смотрю вы легких путей не ищете?)