Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi TWebBrowser + Formular senden problem (https://www.delphipraxis.net/81457-twebbrowser-formular-senden-problem.html)

Relicted 27. Nov 2006 20:18


TWebBrowser + Formular senden problem
 
mahlzeit!

ich habe ein problem:
ich versuche ein formular abzusenden, die felder lassen sich füllen, jedoch kann ich ned auf den "button" zugreifen der das ganze abschickt. vielleicht hat ja wer von euch eine idee wie man es lösen könnte.
ich greife auf die felder c1 und c2 mit diesem befehl zu:

webbrowser1.oleobject.document.forms.item(1).eleme nts.item('c1').value := '123';


der quelltext der seite ist dieser:

Code:
<TR CLASS="r"><TD CLASS="r2"><FORM ACTION="/game/militaer.php" METHOD="POST" NAME="fleet_0"><input type="hidden" name="sid" value="177361a070677b83a632c52e88524ca5" />Orbit</TD><TD CLASS="r">Verteidigt unseren Heimatsektor.</TD></TR><TR CLASS="r3"><TD COLSPAN="2" HEIGHT="5"></TD></TR><TR CLASS="r"><TD CLASS="r2"><FORM ACTION="/game/militaer.php" METHOD="POST" NAME="fleet_1"><input type="hidden" name="sid" value="177361a070677b83a632c52e88524ca5" />Flotte 1</TD><TD CLASS="r">Wartet auf Befehle





            <INPUT TYPE="hidden" NAME="fleet_id" VALUE="Array[id]">
            <INPUT TYPE="text" NAME="c1" SIZE="4" MAXLENGTH="4" CLASS="FELD"> : <INPUT TYPE="text" NAME="c2" SIZE="3" MAXLENGTH="2" CLASS="FELD">
            <SELECT NAME="what_to_do" SIZE="0">
            <OPTION VALUE="none" SELECTED>Bitte auswählen</OPTION><OPTION VALUE="att">Angreifen</OPTION><OPTION VALUE="deff">Verteidigen</OPTION></SELECT>
            <INPUT TYPE="hidden" NAME="fleet_id" VALUE="303862">

            <INPUT TYPE="Submit" NAME="action" VALUE="Befehle senden" CLASS="Button">

</form></TD></TR></FORM><TR CLASS="r3"><TD COLSPAN="2" HEIGHT="5"></TD></TR><TR CLASS="r"><TD CLASS="r2"><FORM ACTION="/game/militaer.php" METHOD="POST" NAME="fleet_2"><input type="hidden" name="sid" value="177361a070677b83a632c52e88524ca5" />Flotte 2</TD><TD CLASS="r">Wartet auf Befehle



            <INPUT TYPE="hidden" NAME="fleet_id" VALUE="Array[id]">
            <INPUT TYPE="text" NAME="c1" SIZE="4" MAXLENGTH="4" CLASS="FELD"> : <INPUT TYPE="text" NAME="c2" SIZE="3" MAXLENGTH="2" CLASS="FELD">
            <SELECT NAME="what_to_do" SIZE="0">
            <OPTION VALUE="none" SELECTED>Bitte auswählen</OPTION><OPTION VALUE="att">Angreifen</OPTION></SELECT>

            <INPUT TYPE="hidden" NAME="fleet_id" VALUE="304157">
            <INPUT TYPE="Submit" NAME="action" VALUE="Befehle senden" CLASS="Button">

</form></TD></TR></FORM></TABLE>
          </div></td></tr>
      </table></div>
ich muss auf die beiden buttons "befehle senden" zugreifen.

marabu 27. Nov 2006 20:46

Re: TWebBrowser + Formular senden problem
 
Hallo,

ein paar Hinweise findest du in diesem thread: klick

Wenn das nicht reicht, dann liefern dir die Suchworte form.item submit eine mundgerechte Treffermenge.

Gute Nacht

Relicted 27. Nov 2006 21:16

Re: TWebBrowser + Formular senden problem
 
problem ist halt dass ich 2 formulare mit gleichnamigen absendebutton habe :-)

daher habe ich auch noch keine problemlösung gefunden. gibt halt 2 formulare die den selben button namens "action" beinhaltet.. mit GetElementById finde ich aber nur das erste

marabu 27. Nov 2006 22:07

Re: TWebBrowser + Formular senden problem
 
Hallo Christopher,

laut dem verlinkten thread kommen zwei Ansätze für dich in Frage:

Delphi-Quellcode:
// entweder
WebBrowser.OleObject.document.forms.item('fleet_1').submit;
WebBrowser.OleObject.document.forms.item('fleet_2').submit;

// oder
WebBrowser.OleObject.Document.GetElementsByName('action').Item(0).Click;
WebBrowser.OleObject.Document.GetElementsByName('action').Item(1).Click;
Freundliche Grüße

Relicted 27. Nov 2006 22:12

Re: TWebBrowser + Formular senden problem
 
dank dir der erste part hat ned geklappt dafür aber der 2. :-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz