Du brauchst eigentlich nur auf Deinem Formular die Komponente IdHTTP1 zu platzieren, einen Button erzeugen und ungefähr folgenden Code dem Button zuweisen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream:TStringStream;
LParams: TStringlist;
begin
Stream := TStringStream.Create('
');
//Rückgabe-Stream erstellen
LParams := TStringlist.Create;
try
LParams.Add('
cmd=TuWas');
//+name);
LParams.Add('
id='+inttostr(123));
LParams.Add('
datum='+DateToStr(Date));
LParams.Add('
zeit='+TimeToStr(Time));
try
IdHTTP1.Post('
http://www.dein_server.de/scripts/feedback.php', LParams, Stream);
Showmessage(Stream.DataString);
//Antwort von Deinem php-Script
except
on E:
Exception do
showmessage('
Leider trat folgendes Problem auf: ' + E.
Message);
end;
finally
LParams.Free;
Stream.Free;
end;
end;
So und hier noch ein ungefährer Aufbau des php-Scripts
Delphi-Quellcode:
<?
include("connect.php");
//diese php-datei stellt die verbindung zu sql-datenbank her
//übernahme der empfangenen paramter
$cmd = $_POST['
cmd'];
$id = $_POST['
id'];
$datum = strftime("%Y.%m.%d");
$zeit = $uhrzeit = date("H:i:s");
//ausgabe der daten
//das gesendete "TuWas" erhälst du hier also zurück
//man kann natürlich auch echte kommandos schicken und diese dann auswerten/reagieren
echo($cmd);
?>
Ist jetzt nicht getestet, aber so in der Art habe ich das schon ziemlich oft gemacht. Kannst Du Dir anpassen, wie Du´s brauchst.