Variable aus dem Script in Delphi holen...

[TheMiller]

Jap, ich benutze einen PHP-Script. Ich poste ihn weiter unten nochmal. Die Variablenübergabe vom Delphiprogramm geht über idhttp mit der Funktion Post. Dazu später auch nochmal ein Code.

Wie gesagt, ich möchte meinen PHP-Script vom Delphi-Programm aus ein vermitteln. Danach such der Script in der DB nach dem Datum und holt sich die Einträge. Diese Einträge sollen dann vom Script an das Delphi-Programm übermittelt werden, wobei die Werte in einzelnen Label-Komponenten eingetragen werden.

Ich kann mit echo in ein Memo die ganzen Werte eintragen, aber nicht jeden Wert einzeln in ein Label... Ich denke, das müsste mit "_Get" funzen. Weiß aber net wie. Hier die Codes:

SQL-Code:

<?PHP
  $db_server=$_POST['$db_server']; 
  $db_name=$_POST['$db_name'];
  $db_user=$_POST['$db_user'];
  $db_passwort=$_POST['$db_passwort'];
  $mode=$_POST['$mode'];
  $Datum=$_POST['$Datum'];
  $Zeit=$_POST['$Zeit'];
  $Name=$_POST['$Name'];
  $Wert=$_POST['$Wert'];

/*echo     $_POST['$db_server'].chr(13).chr(10);*/
/*echo     $_POST['$db_name'].chr(13).chr(10);*/
/*echo     $_POST['$db_user'].chr(13).chr(10);  */  
/*echo     $_POST['$db_passwort'].chr(13).chr(10);*/
/*echo     $test;*/

switch ($mode) { 
  case "insert": 
    insert(); 
    break; 
  case "drop":
    drop();
    break;
} 

function drop()
{
global $db_server,$db_user,$db_passwort, $db_name;
  $db = @MYSQL_PCONNECT($db_server,$db_user,$db_passwort)
    or die ("Konnte keine Verbindung zur Datenbank herstellen");
  $db_check = @MYSQL_SELECT_DB($db_name);  if($db)    echo "Verbindung zur Datenbank wurde hergestellt";
}


function insert()
{
global $db_server,$db_user,$db_passwort, $db_name, $Datum, $Zeit, $Mandant, $Ra;
  $db = @MYSQL_PCONNECT($db_server,$db_user,$db_passwort)
    or die ("Konnte keine Verbindung zur Datenbank herstellen");
  $db_check = @MYSQL_SELECT_DB($db_name);  if($db)    echo "Verbindung zur Datenbank wurde hergestellt";

$sql = mysql_query("INSERT INTO `1104` (`Datum`,`Zeit`,`Name`,`Wert`) VALUES ('$Datum', '$Zeit', '$Name', '$Wert')");

echo "Es wurden alle Daten in die Datenbank eingetragen";
echo mysql_error();
}
?>

und der DP-Source:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var sl : TStringlist;
begin
  sl := TStringList.Create;
  sl.Add('$db_server='+Edit1.Text);
  sl.Add('$db_name='+Edit2.Text);
  sl.Add('$db_user='+Edit3.Text);
  sl.Add('$db_passwort='+Edit4.Text);
  sl.Add('$Datum='+DateToStr(DateTimePicker1.Date));
  sl.Add('$Zeit='+Edit6.Text);
  sl.Add('$Name='+Edit7.Text);
  sl.Add('$Wert='+Edit8.Text);
  sl.Add('$mode=insert');
  Memo1.Text := idHttp1.Post('http://www.xxxx.com/xxxx.php,sl);
  FreeAndNil(sl);
end;

Danke im Vorraus!