WebBrowser вопрос

[DeZik]

перехожу по адресу
Вижу страницу

Вижу

<DIV metrikaId_0.5974972171062272="81"><INPUT id=new_attr_123 class=s_selectTextActive value=6501011805 jQuery17202799393626251008="57" service_alias="kr_erc_all" metrikaId_0.5974972171062272="82" attr_id="123" service_id="1440" pattern="^\s*(([0-9]{10}))\s*$" default_value></DIV>

Вписал следующий код

A := WebBrowser1.OleObject.Document.getElementById('new_attr_123');
A.Value := '6501011805';

На странице данные визуально меняются, но не обновляются (Ajax)
если ткнуть мышью в другое поле все начинает работать.

Как победить?

[DeZik]

Еще нашел

<SCRIPT type=text/javascript>
        var ServicePaymentObj = new ServicePayment("services_main_div");
        ServicePaymentObj.AddSubtypesPlan(['1','11','19','26',]);
        ServicePaymentObj.AddAttrValue('123','6501011804');
        ServicePaymentObj.MakeSubtype(0);
    </SCRIPT>

как заменить код на свой через webbrowser в таком элементе&

[DeZik]

Код срабатывает если ткнуть мышкой в поле WebBrowser
Как програмно мышкой ткнуть?

[user89]

Возможно, надо сообщения послать не в хэндл webbrowser а в хэндл IE
http://www.delphimaster.ru/cgi-bin/forum.p...=1291102393&n=4

[Fr0sT]

Цитата DeZik @ 02.12.15, 09:12

На странице данные визуально меняются, но не обновляются (Ajax)
если ткнуть мышью в другое поле все начинает работать.

Попробуй докопаться до input.onchange и вызвать этот обработчик (правда, не факт, что WB даст это сделать)

[DeZik]

Получилось, правда немного через ЖЖЖЖ

реально пришлось через хэндл IE
http://www.delphimaster.ru/cgi-bin/forum.p...=1291102393&n=4

но, просто так не удалось.

Сначала в поле WebBrowser програмно
Вносим

A := WebBrowser1.OleObject.Document.getElementById('new_attr_123');
A.Value := '6501011805';

Затем фокус

Form1.WebBrowser1.OleObject.Document.GetElementById('new_attr_123').Click;

и только после этого обновление

H := GetIEHandle(Webbrowser1,'Internet Explorer_Server');
SendMessage(H,WM_LBUTTONDOWN,0,MakeLong(10,10));
application.ProcessMessages;