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!