delphi - How to select item by the "value" attribute in drop-down list? -



delphi - How to select <option> item by the "value" attribute in <select> drop-down list? -

in delphi application i'm using twebbrowser control, have loaded html document, containing <select> element (drop downwards list) few <option> items (drop downwards list items). let's say, have next html document loaded in web browser:

<html> <body> <select id="combobox"> <option value="firstvalue">first value</option> <option value="secondvalue">second value</option> <option value="thirdvalue">third value</option> </select> </body> </html>

how can programatically select e.g. <option>, value attribute thirdvalue ? or in other words, how can programatically select 3rd item in drop downwards list, when know item's value attribute thirdvalue ?

you can utilize ihtmlselectelement interface selectedindex property instance. showcase i've made next function.

selectoptionbyvalue function

the next function tries find, , select (if found) <option> (a drop downwards list item) of given value attribute value in specified <select> element (drop downwards list). if no <option> found, current drop downwards list selection cleared (no item selected).

parameters:

adocument - interface input html document aelementid - id of <select> element (element id of drop downwards list) aoptionvalue - searched <option> element value (value of drop downwards list item)

return value:

if <option> given value found (and selected), homecoming value index of alternative in specified drop downwards list, -1 otherwise.

source code:

function selectoptionbyvalue(const adocument: idispatch; const aelementid, aoptionvalue: widestring): integer; var htmldocument: ihtmldocument3; htmlelement: ihtmlselectelement; function indexofvalue(const ahtmlelement: ihtmlselectelement; const avalue: widestring): integer; var i: integer; begin result := -1; := 0 ahtmlelement.length - 1 if (ahtmlelement.item(i, i) ihtmloptionelement).value = avalue begin result := i; break; end; end; begin result := -1; if supports(adocument, iid_ihtmldocument3, htmldocument) begin if supports(htmldocument.getelementbyid(aelementid), iid_ihtmlselectelement, htmlelement) begin result := indexofvalue(htmlelement, aoptionvalue); htmlelement.selectedindex := result; end; end; end;

example usage:

to select item thirdvalue value in drop downwards list html document question it's possible utilize code (assuming in webbrowser1 component here loaded document):

procedure tform1.button1click(sender: tobject); var index: integer; begin index := selectoptionbyvalue(webbrowser1.document, 'combobox', 'thirdvalue'); if index <> -1 showmessage('option found , selected on index: ' + inttostr(index)) else showmessage('option not found or function failed (probably due ' + 'invalid input document)!'); end;

example html document question:

<html> <body> <select id="combobox"> <option value="firstvalue">first value</option> <option value="secondvalue">second value</option> <option value="thirdvalue">third value</option> </select> </body> </html>

delphi dom twebbrowser

Comments

Post a Comment

Popular posts from this blog

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer -

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer - when trying request rest service @ time of response getting exception.. feb 21, 2013 2:34:49 pm com.sun.jersey.spi.container.containerresponse mapmappablecontainerexception severe: exception contained within mappablecontainerexception not mapped response, re-throwing http container java.lang.noclassdeffounderror: not initialize class net.sf.cglib.proxy.enhancer @ org.hibernate.proxy.pojo.cglib.cgliblazyinitializer.getproxyfactory(cgliblazyinitializer.java:117) @ org.hibernate.proxy.pojo.cglib.cglibproxyfactory.postinstantiate(cglibproxyfactory.java:43) @ org.hibernate.tuple.entity.pojoentitytuplizer.buildproxyfactory(pojoentitytuplizer.java:162) @ org.hibernate.tuple.entity.abstractentitytuplizer.<init>(abstractentitytuplizer.java:135) @ org.hibernate.tuple.entity.pojoentitytuplizer.<init>(pojoentitytuplizer.java:55) @ org.hibernate.tuple.e...
Read more

Accessing MATLAB's unicode strings from C -

Accessing MATLAB's unicode strings from C - how can access underlying unicode info of matlab strings through matlab engine or mex c interfaces? here's example. let's set unicode characters in utf-8 encoded file test.txt, read as fid=fopen('test.txt','r','l','utf-8'); s=fscanf(fid, '%s') in matlab. now if first feature('defaultcharacterset', 'utf-8') , c engevalstring(ep, "s") , output text file utf-8. proves matlab stores unicode internally. if mxarraytostring(enggetvariable(ep, "s")) , unicode2native(s, 'latin-1') give me in matlab: non-latin-1 characters replaced character code 26. need getting access underlying unicode info c string in unicode format (utf-8, utf-16, etc.), , preserving non-latin-1 characters. is possible? my platform os x, matlab r2012b. addendum: documentation explicitly states "[mxarraytostring()] supports multibyte encoded characters...
Read more

javascript - mongodb won't find my schema method in nested container -

javascript - mongodb won't find my schema method in nested container - i trying access method of schema stored within mixed container. here situation : have cases model can many different things, have schema each of these things stored in "casecontent" mixed property. var caseschema = mongoose.schema({ casecontent : {}, object : {type:string, default : "null"}, collision : {type : boolean, default : false} }); the casecontent property filled model of 1 of schemas, 1 exemple : var treeschema = new mongoose.schema({ applecount : {type : number, default : 3} }); treeschema.methods.dostuff = function (data) { console.log('hey, listen'); homecoming true; }; then, want utilize method of schema original container : caseschema.methods.dostuff = function (data) { if (this.casecontent.dostuff !== undefined) { this.casecontent.dostuff(); console.log('it worked'); } else { ...
Read more