So, mit frisch geduschtem und klaren Kopf gehts los:
Delphi-Quellcode:
var
_connector: PMySQL;
sqlresult: PMySQL_Res;
sqlrow: PMySQL_Row;
Host, Login, Password,
Query: PChar;
begin
//Parameter festlegen
Host := '
localhost';
Login := '
root';
Password :=
nil;
//Zugangskennung initialisieren
_connector := mysql_init(
nil);
//Verbindung herstellen
_connector := mysql_real_connect(_connector,Host,Login,Password,
nil,3306,
nil,0);
if _connector =
nil then
begin
WriteLn('
Die Verbindung ist fehlgeschlagen');
Exit;
end;
//aktuelles Datum abrufen
Query := '
SELECT DAYOFMONTH(NOW()),MONTH(NOW()),YEAR(NOW())';
mysql_real_query(_connector,
Query,Length(
Query));
sqlresult := mysql_store_result(_connector);
sqlrow := mysql_fetch_row(sqlresult);
WriteLn('
Tag',sqlrow[0]);
WriteLn('
Monat',sqlrow[1]);
WriteLn('
Jahr',sqlrow[2]);
//Ergebniskennung freigeben und Verbindung schließen
mysql_free_result(sqlresult);
mysql_close(_connector);
end.
Ich habs jetzt nicht getestet, aber so sollte es gehen.
Ach ja, das hier muss in einem Konsolenprogramm stehen.
Edit: OK, zwei kleinere Fehler waren drin