Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639691 Fri, 04 Dec 2015 14:37:30 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639691
реально пришлось через хэндл 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;
]]> DeZik Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639253 Thu, 03 Dec 2015 11:13:27 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639253 Цитата DeZik @
На странице данные визуально меняются, но не обновляются (Ajax)
если ткнуть мышью в другое поле все начинает работать.

Попробуй докопаться до input.onchange и вызвать этот обработчик (правда, не факт, что WB даст это сделать)]]> Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639161 Thu, 03 Dec 2015 07:43:34 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639161 http://www.delphimaster.ru/cgi-bin/forum.p...=1291102393&n=4]]> user89 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639132 Thu, 03 Dec 2015 03:20:54 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639132 Как програмно мышкой ткнуть?]]> DeZik Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639039 Wed, 02 Dec 2015 16:27:58 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3639039
    <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 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3638836 Wed, 02 Dec 2015 09:12:09 +0000 WebBrowser вопрос https://forum.sources.ru/index.php?showtopic=407083&view=findpost&p=3638836 Вижу страницу

Вижу
    <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 Delphi: Сетевое программирование