Werte in Formulare mit TWebbrowser auslesen?

[greyblue]

Hallo nochmal, :wink:

kann ich die Werte in eine Formular mit Twebbrowser auslesen? geht es?

Danke voraus ..

Viele Grüße

[alcaeus]

Schau mal das hier an: Forumal im IExplorer ausfüllen

oder hier: twebbrowser and formular

[greyblue]

Zitat:

Zitat von alcaeus

Schau mal das hier an: Forumal im IExplorer ausfüllen

oder hier: twebbrowser and formular

Vielen Dank!! Es scheint zu funktionieren.. :P

[greyblue]

ich kann nun zwar die Werte der Textfelder auslesen, aber wie kann ich bekommen,ob eine Radiobutton gecheckt oder nicht? Vielen Dank!!

[greyblue]

Code:

<form name="abc">
      <input type="text" name="T1" size="20">
      <input type="radio" value="V1" checked name="R1">a
      <input type="radio" name="R1" value="V2">b

Delphi-Quellcode:

Listbox1.Items.Add(WebBrowser1.OleObject.Document.abc.T1.Value; // das geht
        Listbox1.Items.Add(WebBrowser1.OleObject.Document.abc.R1.Value; // das geht nicht :-(

[alcaeus]

Jeder Radiobutton gehört zu einer Group, die mit dem Name-Attribut gesetzt wird:

Code:

<input type="radio" name="einradio" value="0" />Eins
<input type="radio" name="einradio" value="1" />Zwei
...

Du kannst den Wert von "einradio" überprüfen, und anhand des Values das ausgewählte Radio finden.

[greyblue]

Zitat:

Zitat von alcaeus

Jeder Radiobutton gehört zu einer Group, die mit dem Name-Attribut gesetzt wird:

Code:

<input type="radio" name="einradio" value="0" />Eins
<input type="radio" name="einradio" value="1" />Zwei
...

Du kannst den Wert von "einradio" überprüfen, und anhand des Values das ausgewählte Radio finden.

aber eine Fehlermeldung kommt," Method Value not supported by automation Object", wenn ich auf Radiobutton zugreife

[alcaeus]

Code:

<input type="radio" name="einradio" value="0" checked="checked" />Eins 
<input type="radio" name="einradio" value="1" />Zwei 
...

Hier wird das erste Radio ausgewählt. Mit JavaScript kannst du so darauf zugreifen:

Code:

if (document.<formname>.<radiogroupname>.checked == true)
  alert("Checkbox ausgewählt.");

Es gibt sicher eine Möglichkeit, diesen Code auf Delphi umzubauen, welche Fehlermeldung bekommst du überhaupt?

[scp]

Es geht auch anders:
Wenn du den Wert eines Items so ermittelst:

Delphi-Quellcode:

AStr := ovElements.item(i).Value;

dann kannst du den Status (Gehakt oder nicht) so abrufen:

Delphi-Quellcode:

ABool := ovElements.item(i).Checked;

[greyblue]

Zitat:

Zitat von alcaeus

Es gibt sicher eine Möglichkeit, diesen Code auf Delphi umzubauen, welche Fehlermeldung bekommst du überhaupt?

exception Class EOleError With Message "Method Value not supported by automation Object"

[greyblue]

Zitat:

Zitat von scp

Es geht auch anders:
Wenn du den Wert eines Items so ermittelst:

Delphi-Quellcode:

AStr := ovElements.item(i).Value;

dann kannst du den Status (Gehakt oder nicht) so abrufen:

Delphi-Quellcode:

ABool := ovElements.item(i).Checked;

Vielen Dank!!

aber gleiches Problem ,

exception Class EOleError With Message "Method 'Checked' not supported by automation Object"

brauche ich vorne "WebBrowser1.OleObject.Document" nicht?

[alcaeus]

Hört sich nach etwas schwerem aus, aber ich hab leider im Moment kein Delphi, da muss ein andrer ran, sorry..

[greyblue]

Zitat:

Zitat von alcaeus

Hört sich nach etwas schwerem aus, aber ich hab leider im Moment kein Delphi, da muss ein andrer ran, sorry..

du hast mir schon viel geholfen, Vielen Dank!!

[scp]

Hört sich an, als hättest du von dem Beispielcode nicht viel (nicht genug) übernommen.
Folgendes sollte schon drin sein:

Delphi-Quellcode:

var
  Document: Variant;
  ovElements: OleVariant;
//...
begin
//...
  Document := WebBrowser1.Document;
//...
  ovElements := Document.forms.Item(m).elements;
//...

Wie du jetzt auf WebBrowser1.OleObject.Document kamst, weis ich nich, aber so müsste es gehen.
Die Variable m ist übrigens aus dem Beispiel, die For-Schleife von dort würde ich einbauen.

[greyblue]

Zitat:

Zitat von scp

Hört sich an, als hättest du von dem Beispielcode nicht viel (nicht genug) übernommen.
Folgendes sollte schon drin sein:


Wie du jetzt auf WebBrowser1.OleObject.Document kamst, weis ich nich, aber so müsste es gehen.
Die Variable m ist übrigens aus dem Beispiel, die For-Schleife von dort würde ich einbauen.

Danke..

Das Problem liegt daran, wenn ich nur ein RadioButton benutze,geht es .. aber wenn ich zwei RadioButton mit gleichen Namen benutze,dann funktioniert es nicht ..
ich will aber die Radiobutton gleiche Namen haben ..

[scp]

Jepp, das mit dem gleichen Namen ist schon OK, aber die ID muss anders sein, zu ermitteln mit:

Delphi-Quellcode:

ovElements.item(i).ID

Bei Google.de sieht das in HTML z.B. so aus:

Code:

<input id=all type=radio name=meta value="" checked><label for=all> Das Web</label>
<input id=lgr type=radio name=meta value="lr=lang_de" ><label for=lgr> Seiten auf Deutsch</label>
<input id=cty type=radio name=meta value="cr=countryDE" ><label for=cty>Seiten aus Deutschland</label>

[greyblue]

es geht!!

Vielen vielen Dank !!!

[kasi]

Das Problem hatte ich mal im Delphi-Forum gelöst.

KASI