Twebbrowser, Radiobutton auswählen

[superman21]

Hi

Ich will auf einer web seite,einen Radio button automatisch auswählen.
Wie stell ich das jetzt mit Deplphi an??
Ich hab mit Twebbrowser eine website geöffnet, nun will ich, dass ein Radiobutton ausgewählt wird.

Hier ist der Teil des Html codes:

Code:

<form method="post" action="details.php?image_id=102">
  <table border="0" cellspacing="0" cellpadding="1">
    <tr>
      <td class="head1">
        <table border="0" cellspacing="0" cellpadding="3" class="row1">
          <tr> 
            <td valign="bottom"> 
              <input type="radio" name="rating" value="5" class="select">
              sehr gut  
              <input type="radio" name="rating" value="4" class="select">
              gut  
              <input type="radio" name="rating" value="3" class="select">
              ok  
              <input type="radio" name="rating" value="2" class="select">
              geht so  
              <input type="radio" name="rating" value="1" class="select">
              schlecht </td>
            <td> 
              <input type="hidden" name="action" value="rateimage" />
              <input type="hidden" name="id" value="102" />
              <input type="submit" value="Bewerten" class="button" name="submit" />
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>

Wie kann ich jetzt z. b. den Radio button mit value = 3 auswählen??

Danke schon mal für eure Hilfe

CU

[Basic-Master]

vielleicht so: WebBrowser1.OleObject.document.forms.item(0).elements.item('rating').value := 1; .. ich habs allerdings nicht getestet

[Jamma-Andreas]

Hi,

ich wollte das selbe machen, bei mir funzt das auf diese art leider nicht.
Hat noch jemand anders ne idee??

thx
andi

[Florian H]

Sowas brauche ich auch...

[toms]

Hi,

Probiert mal das Folgende:

Delphi-Quellcode:

uses
 MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  Document: IHTMLDocument2;
  rbTestList: IHTMLElementCollection;
  rbTest: IHTMLOptionButtonElement;
  I: Integer;
begin
  // Referenz auf Dokument
  Document:= WebBrowser1.Document as IHTMLDocument2;

  // Referenz auf Eingabe-Control-Element
  rbTestList:= Document.all.item('rating', EmptyParam)
    as IHTMLElementCollection;

  // Aktuellen Wert auslesen
  for I:= 0 to rbTestList.length - 1 do
  begin
    // Referenz auf i. RadioButton
    rbTest:= rbTestList.item(I, EmptyParam)
      as IHTMLOptionButtonElement;

    // Anzeigen, wenn dieser RadioButton ausgewählt
    if rbTest.checked then
      ShowMessageFmt('Der RadioButton mit dem Wert %s' +
        ' ist ausgewählt!', [rbTest.value]);
  end;

  // Neuen Wert setzen
  for I:= 0 to rbTestList.length - 1 do
  begin
    // Referenz auf i. RadioButton
    rbTest:= rbTestList.item(I, EmptyParam)
      as IHTMLOptionButtonElement;

    // Wir möchten den RadioButton mit dem Wert "3" aktivieren
    if rbTest.value = '3' then
      rbTest.checked:= true;
  end;
end;