Cast en IHTMLSelectElement

Version imprimable

18/07/2012, 04h46
Sephiroth Lune

Cast en IHTMLSelectElement
Bonjour à tous :D

Je cherche à récupére un select dans une page WEB, mais j'ai une exception "Interface not supported" lors de l'appel à ce code :

Code:

Select := (getElementByClass (Web1.Document, 'myClass', Index) as IHTMLSelectElement);

getElementByClass est un code que j'ai trouvé sur le net, qui retourne un IDispatch. pas de problème de ce coté là, le retour de getElementByClass est bien l'élément HTML que je veux récupérer, dont voici le code HTML :

Code:

<SELECT class=myClass tabIndex=0 __uiObjectID="4" __eventBits="1025"><OPTION selected value=791665>Aujourd'hui 05:00</OPTION><OPTION value=793071>20/07 22:00</OPTION></SELECT>

du coup j'ai testé avec une page HTML que j'ai fait moi, avec ce code :
Code:

1 2 3 4 5 6 7 8 <html> <body> <select class="myClass"> <option value="1">Première</option> <option value="2">Deuxième</option> </select> </body> </html>
Et là le cast en IHTMLSelectElement ne pose pas de problème ...

Est-ce que quelqu'un a une idée ? Je tourne en rond là :aie:

le as des interfaces est différent du as des objets

pense que IHTMLSelectElement existe en variante IHTMLSelectElement2 à IHTMLSelectElement6

Est-ce que tu arrives au moins à caster en IHTMLElement ou IHTMLElementCollection ?

un code en C++Builder que j'ai écrit pour un autre sujet peut t'inspirer pour énumérer tous les INPUT présents dans les FORM

Sinon un code proche : Get the value of a named field
Teste le en ajoutant un name à ton class, voir au moins si cela fonctionne correctement !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 function GetFieldValue(fromForm: IHTMLFormElement; const fieldName: string): string; var field: IHTMLElement; inputField: IHTMLInputElement; selectField: IHTMLSelectElement; textField: IHTMLTextAreaElement; begin field := fromForm.Item(fieldName,'') as IHTMLElement; if not Assigned(field) then result := '' else if field.tagName = 'INPUT' then begin inputField := field as IHTMLInputElement; if (inputField.type_ <> 'radio') and (inputField.type_ <> 'checkbox') then result := inputField.value else if inputField.checked then result := 'checked' else result := 'unchecked'; end else if field.tagName = 'SELECT' then begin selectField := field as IHTMLSelectElement; result := selectField.value end else if field.tagName = 'TEXTAREA' then begin textField := field as IHTMLTextAreaElement; result := textField.value; end; end;

19/07/2012, 00h49
Sephiroth Lune

Ok c'est moi le boulet, je récupérais un bête TD qui avait le même nom de classe ... Donc évidement ...

Désolé du dérangement :cry:

Et merci Shai pour la réponse, tu m'as mis sur la voie en testant le tagName, j'en ai fait de même "pour être sur", et c'était faux :aie: