fehler bei submit

**any_key**

aloah
ich hab ne problem dabei ein im webbrowser aufgerufenes formular abzuschicken
allerdings bin ich mir relativ sicher dass der delphi quelltext richtig ist aber das script an das die sachen übergeben funktioniert von hand auch

also das hier ist der versuch erst eine seite aufzrufen dann etwas in das textfeld einzutragen und dann abzuschicken (das ganze scheitert beim abschicken)

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

WebBrowser1.Navigate('*****************************');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

WebBrowser1.OleObject.document.forms.item(0).elements.item('text').value:='****';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

webbrowser1.oleobject.document.forms.item(0).submit;

end;

und das hier ist das php script an das die sachen geschickt werden sollen:

markieren

Code:

			<html>

<body>

<form action="test123.php" method="post">

  <input type="text" name="text">

  <input type="submit" name="submit" value="submit">

</form>

</body>

</html>

<? 

if(isset($_POST['submit'])) {

   $datei = fopen("datei.txt","r+"); 

   fwrite($datei, $_POST['text']); 

   fclose($datei);

} 

?>

**shmia**

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SubmitWebForm(webform:OleVariant);

var

   i : Integer;

   formitem : OleVariant;

   itemtype, itemname : string;

begin

   // Schleife über alle Items eines WebFormulars

   For i:= webform.Length-1 downto 0 do

   begin

      formitem := webform.Item(i);

      itemtype := UpperCase(formitem.Type);

      itemname := UpperCase(formitem.Name);

      // if it's a submit button: click it

      if itemtype = 'SUBMIT' then

      begin

         formitem.Click;

         Exit;

      end

      else if (itemtype='BUTTON') and (itemname='SUBMIT') then

      begin

         formitem.Click;

         Exit;

      end

   end;

   // try default submit Method

   webform.submit;

end;

Aufruf:
SubmitWebForm(webbrowser1.oleobject.document.forms.item(0));

**any_key**

vielen dank!
damit geht es

fehler bei submit

fehler bei submit

Re: fehler bei submit

Re: fehler bei submit

Forumregeln

any_key Registriert seit: 7. Okt 2005 96 Beiträge Delphi 7 Personal	#3 Re: fehler bei submit 4. Apr 2007, 14:51 vielen dank! damit geht es
	Zitat