Twebbrowser Radiobutton im frame value ändern?

[gandime]

Hi,
ich habe folgenden Html-code vorliegen:

Code:

  </tr>
    <tr height="30">
<th>
  <input type="radio" name="com" value="3" >Angriff


   </th>
  </tr>
  <tr height="30">
<th>
  <input type="radio" name="com" value="4" >Stationieren


   </th>
  </tr>

Dieser Code liegt in einem Frame namens "Hauptframe" vor.

Ich habe es mit folgendem Code versucht:

Delphi-Quellcode:

  Web.OleObject.Document.Frames.item('Hauptframe').Document.forms.item(0).elements.item('com').value:='4';

woraufhin ich diese Fehlermeldung bekommen habe:

Zitat:

Erste Gelegenheit für Exception bei $7C812A5B. Exception-Klasse EOleError mit Meldung 'Die Methode 'value' wird vom Automatisierungsobjekt nicht unterstützt'. Prozess Project1.exe (2228)

Soll das bedeuten, dass der IE es noch nicht unterstötzt über ActiveX in einem Frame einen Radiobutton an zu klicken?

wie kann ich es trotzdem anklicken?

mfg
gandime

[dataspider]

Hi,

mal so aus dem Kopf...

Bei 'radio' ist es IMHO so, dass du die Items des Forms iterieren musst.
Und beim Item Typ 'radio' mit dem Value 4 musst du checked := True setzen.

Cu, Frank

[marabu]

Hallo Frank,

iterieren ist nicht nötig: klick

Freundliche Grüße

[dataspider]

Zitat:

Zitat von marabu

Hallo Frank,

iterieren ist nicht nötig: klick

Freundliche Grüße

Danke, danach hatte ich mal lange gesucht. Na ja, beim nächsten mal kann ich meinen Code etwas kürzer halten... :wink:

Frank

[gandime]

danke :-)

wie findet man nochmal heraus wie viele es von mit der selben id gib?

[marabu]

Hallo,

jede ElementCollection hat die property Length - also probiere es mal mit ...Elements.length

Freundliche Grüße

[gandime]

das funktioniert leider nicht

[marabu]

Hallo,

das könnte an dir liegen ...

Delphi-Quellcode:

procedure TWebForm.ButtonClick(Sender: TObject);
var
  n: Integer;
  v: OleVariant;
begin
  v := WebBrowser.OleObject.document.forms.item(0).Elements;
  n := v.Length;
  v.item('Zahlmethode', 0).Click;  // Erstes Item markieren
  ShowMessage(IntToStr(n));        // geht doch
end;

Freundliche Grüße

[gandime]

Nein das meine ich nicht, ich möchte wissen, wie viele Elemente (in deinem Beispiel 'Zahlmethode') mit dem selben Namen gibt?

[marabu]

Hallo,

dann besser so:

Delphi-Quellcode:

uses
  Mshtml;

procedure TDemoForm.PanelClick(Sender: TObject);
const
  EN = 'ZahlMethode';
var
  u: IUnknown;
  ec: IHTMLElementCollection;
begin
  u := WebBrowser.OleObject.document.forms.item(0).Elements.item(EN);
  if Succeeded(u.QueryInterface(IID_IHTMLElementCollection, ec)) then
    ShowMessage(Format('Elemente mit Namen "%s": %d', [EN, ec.Length]));
end;

Freundliche Grüße