delphi - how to retrieve text from chrome website -


how can retrieve text web sites text boxes in delphi, example suppose type "dragon" in google's search box oppened on chrome, how retrieve text search box?? wm_gettext or getwindowtext works? want know how work on google chrome, found ie:

uses shdocvw, mshtml;  procedure gettextfromeditiexplorer(liststr: tstringlist); var   shellwindow            : ishellwindows;   web_browser            : iwebbrowser2;   reg_shell_window       : idispatch;   dummy                  : ihtmldocument2;   ovelements             : olevariant;   document               : variant;   windowscount           : integer;   elementscount          : integer;   formscount             : integer; begin   shellwindow := coshellwindows.create;  //provides access collection of open shell windows   windowscount := 0 shellwindow.count     //iterate through number of windows in shell windows collection   begin     reg_shell_window := shellwindow.item(windowscount);       //returns registered shell window specified index.     if reg_shell_window = nil continue;    //go next reg window     reg_shell_window.queryinterface(iwebbrowser2, web_browser);   // determines if interface can used object     if web_browser <> nil     begin       web_browser.document.queryinterface(ihtmldocument2, dummy);       if dummy <> nil       begin         web_browser     := shellwindow.item(windowscount) iwebbrowser2;         document        := web_browser;           formscount := 0 document.forms.length - 1           begin             ovelements := document.forms.item(formscount).elements;             elementscount := 0 ovelements.length - 1             begin               try                 if (comparetext(ovelements.item(elementscount).tagname, 'input') = 0)  ,  (comparetext(ovelements.item(elementscount).type, 'text') = 0)                 liststr.add('control name ['+ovelements.item(elementscount).name+']'+' type  -> '+ovelements.item(elementscount).type+'  ->  value  ['+ovelements.item(elementscount).value+']');               except                 liststr.add('error reading element n° '+inttostr(elementscount));               end;             end;           end;       end;     end;   end; end;  procedure tform1.btn1click(sender: tobject); var list : tstringlist; begin    list:=tstringlist.create;    gettextfromeditiexplorer(list);    showmessage(list.text); end;

txz


Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more