Delphi - Formulardaten mit IdHTTP.Post senden
Ziel Script login.php:
<?php
$username = htmlspecialchars($_POST['username']);
if (isset($username)){
echo "Hallo $username. Wie geht es dir?";
}
else{
echo "Variable nicht gesetzt";
}
?>
Zugeh�riger Delphi Code:
procedure TForm4.Button1Click(Sender: TObject);
var
data: TStringList;
s: String;
begin
data := TStringList.Create;
try
data.Values['username'] := 'Erwin';
try
s := IdHTTP1.Post('http://www.michael-puff.de/login.php', data);
ShowMessage(s);
except
on E: Exception do
ShowMessage('Fehler: ' + E.Message);
end;
finally
data.Free;
end;
end;