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