Das Thema gab es zwar schon mehrfach, jedoch ohne brauchbare Lösung...
Ich möchte Daten via HTTP-Post an eine PHP Seite senden
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField('Wert1', 'value1');
data.AddFormField('Wert2', 'value2');
data.AddFormField('Wert3', 'value3');
data.Position:=0;
{ Call the Post method of TIdHTTP and read the result into TMemo }
Memo1.Lines.Text := IdHTTP1.Post('http://www.irgendeinedomain.net/upload.php',
data);
finally
data.Free;
end;
end;
Die Daten kommen jedoch nicht am Ziel an, d.h. die Variablen sind leer...
upload.php
Code:
<?PHP
echo $HTTP_POST_VARS["Wert1"]."
";
echo $HTTP_POST_VARS["Wert2"]."
";
echo $HTTP_POST_VARS["Wert3"]."
";
?>
Mache ich das gleiche über eine
HTML-Seite, klappt alles fehlerfrei:
Code:
<
html>
<body>
<form action="upload.php" method="POST">
<input type=text name="Wert1" value="value 1">
<input type=text name="Wert2" value="value 2">
<input type=text name="Wert3" value="value 3">
<input type=submit>
</form>
</
html>
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.