TWebBrowser und Select-Feld: Bezeichnugenen auslesen???

[romber]

Hallo!

Ich habe ein TWebBrowser auf der Form, eine bestimmte Seite ist geladen. Auf dieser Seite befindet sich ein Select-Feld mit mehreren Items.

Mit

Delphi-Quellcode:

WebBrowser1.OleObject.Document.Forms.Item(0).Elements.Item(WideString('SelectBox')).Value;

kann ich ganz einfach die Value des ausgewelten Items auslesen.

Wie kann ich den Text des Items auslesen? Also praktish den Text, der zwischen <option> und </option> geschrieben ist?

[shmia]

Mit diesem Codeschnipsel sollten alle deine 3 Fragen (leider in 3 verschiedenen Threads, obwohl sie thematisch eng zusammenhängen) beantwortet werden:

Delphi-Quellcode:

var
  Element : OleVariant;
  selcount, idx : integer;
begin
  // wir holen uns das Objekt
  Element := WebBrowser1.OleObject.Document.Forms.Item(0).Elements.Item(WideString('SelectBox'));

  selcount := Element.options.Length;  // = die Anzahl der Optionen

  // zufällig eine dieser Optionen auswählen
  idx := system.Random(selcount);   // Zufallszahl im Bereich 0..selcount-1
 
  // und setzen diesen Wert 
  Element.value := Element.options.Item(idx).value;