Delphi-PRAXiS - Delphi fehler bei submit

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi fehler bei submit (https://www.delphipraxis.net/89704-fehler-bei-submit.html)

fehler bei submit

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)

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:

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);

} 

?>

Re: fehler bei submit

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:

Delphi-Quellcode:

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

Re: fehler bei submit

vielen dank!
damit geht es :thumb: