Irgendwie verstehe ich nicht, wieso es nicht funktioniert. Ich habe hier ein Programm, dass durch
MySQL direct Zugriff auf eine Datenbank haben soll, genauergesagt auf einen Rechner mit
MySQL-Server, der hier neben mir steht. Die
IP und der Datenbankname ist richtig, der User ist richtig und auch das Passwort ist in Ordnung. Aber trotzdem sagt er mir, dass er keine Verbindung herstellen konnte. Was stimmt da nicht:
Delphi-Quellcode:
procedure TForm1.Button9Click(Sender: TObject);
begin
FMysql.Host := '10.1.6.201';
FMysql.port := 3306;
FMysql.user :='user_xy';
FMysql.password := 'passwort_xy';
FMysql.UnixSocket := '';
FMysql.Db := 'datenbankname_xy';
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := false;
FMysql.TrySockets := false;
if FMysql.Connect then
ShowMessage('Verbindung aufgebaut')
else
ShowMessage('Fehler beim Verbinden: '+FMysql.LastError);
end;
Die
MySQL-Konfig (hier aus phpmyadmin entnommen, da funktionierts) sieht so aus:
Zitat:
$cfg['Servers'][$i]['host'] = '
localhost'; <--- also 10.1.6.201
$cfg['Servers'][$i]['extension'] = '
mysql';
$cfg['Servers'][$i]['connect_type'] = '
tcp';
$cfg['Servers'][$i]['compress'] = false;
$cfg['Servers'][$i]['auth_type'] = 'config';
$cfg['Servers'][$i]['user'] = 'user_xy';
$cfg['Servers'][$i]['password'] = 'passwort_xy';