Danke, ich habs mit folgenden Codes probiert:
Delphi-Quellcode:
Stream := TStringStream.Create('
');
//Rückgabe-Stream erstellen
LParams := TStringlist.Create;
try
LParams.Add('
name=NonPlusUltra');
//+name);
LParams.Add('
level='+IntToStr(GameState.Level));
try
IdHTTP1.Post('
http://www.vascodagama.bplaced.net/programs/lotnc/saves.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
Die saves.php
Code:
<?php
//übernahme der empfangenen paramter
$name = $_POST['name'];
$level = $_POST['level'];
//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
$verbindung = mysql_connect("
localhost", "BENUTZERNAME" , "PASSWORT")
or die("Verbindung zur Datenbank konnte nicht hergestellt werden");
mysql_select_db("DATENBANKNAME") or die ("Datenbank konnte nicht ausgewählt werden");
$result = mysql_query("UPDATE lotnc SET level='$level' WHERE name LIKE '$name'");
?>
Ich bekomme eine leere Message Box also sollte alles funktioniert haben, in der Datenbank ist allerdings noch alles beim alten...
mfG