Variable aus dem Script in Delphi holen...

[TheMiller]

Hi, ich stehe schon vor dem nächsten Problem. Habe mich damit auch schon vorher befasst. Hier die Schilderung:

Ich habe in meine MySQL-DB Einträge gemacht. Diese möchte ich Abrufen und dann in meinem Programm ausgeben. Dabei soll jede Spalte in ein neues Label rein. Ungefähr so:

Delphi-Quellcode:

Label1.Caption:=DBSpalte('Datum');
Label2.Caption:=DBSpalte('Zeit');
etc.

Doch wie verwirkliche ich das? Die Variablenübergabe von Delphi zum Script funzt einwandtfrei und das habe ich auch verstanden. Nur den umgekehrten Weg, kenne ich nicht. Ich kann mir nur denken, dass es etwas mit $Get zu tun haben könnte, aber alle versuche schlugen fehl...

Danke im Vorraus

[TheMiller]

*push*

[Dax]

Was meinst du mit "Script"?

[MrSpock]

Hallo DJ-SPM,

wie holst du denn die Daten aus der Datenbank in dein Delphi Programm? Welche Komponenten benutzt du? Kannst du das Stück Code posten, mit dem du die Daten abrufst?

[Aenogym]

ich glaube, er benutzt eine PHP datei, die verbindung zur DB hat.
er ruft die datei mit get-parametern auf, um daten zu speichern.

also, wenn du das so amchst, dann kannst du vom PHP-script die daten echo'en lassen. du kannst ja eine INI-ähnliche struktur verwenden.
das ganze dann einfach auslesen mit pos() und copy()

Aenogym

[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!

[TheMiller]

hier ein weiterer Push...

[Sharky]

Zitat von DJ-SPM:

hier ein weiterer Push...

Hai DJ-SPM,

ich bitte Dich eindringlich das Pushen deiner Beiträge in einem Zeitraum von weniger als 24 Stunden zu unterlassen.
Du bist lange genug in der Delphi-PRAXIS um unsere Regeln zu kennen!

[TheMiller]

Hm.. ja, du hast schon recht. Es kann sein, dass ich ein wenig ungeduldig bin. Ich werde es auch demnächst lassen, doch versetze dich mal in meine Lage, wenn du etwas programmieren willst und etwas (mit Sicherheit) ganz simpel ist und dich dein PC so zu sagen, nur veräppelt.

Naja gut, ich werde nicht mehr unter 24h pushen....

Aber jetzt sind sie doch rum, oder? Also nochmal.

Ich kennt euch doch so gut mit SQL und PHP aus. Wie kann ich ausgelesene Variablen im Delphiprogramm unter einzelnen Feldern (Edit) oder Labeln anzeigen lassen?

Ich stehe vor einem sehr großen Problem und einem noch größerem


So, will jetzt kein Staatsakt draus machen, aber da ich wirklich schon sehr lange hier dabei bin, möchte ich mich für mein Verhalten entschuldigen und denke, dass die Sache jetzt geregelt ist. Von meiner Seite ist sie das jedenfalls...

Bye!

[jfheins]

Sehe ich das jetzt richtig, dass sein Problem nicht darin bestegt, daten vom PHP-Script zu bekommen,
sondern vielmehr darin, die bekommenen Daten zu verarbeiten ?