Cast en IHTMLSelectElement

**Sephiroth Lune** · 18/07/2012, 04h46

Bonjour à tous

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 html :

Sélectionner tout - Visualiser dans une fenêtre à part

<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 html :

Sélectionner tout - Visualiser dans une fenêtre à part

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à

**ShaiLeTroll** · 18/07/2012, 11h21

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Sephiroth Lune** · 19/07/2012, 00h49

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

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

Cast en IHTMLSelectElement

Web & réseau Delphi

Vue hybride

Discussions similaires

Partager

Partager