Datenbankverbindung funktioniert auf anderen Pcs nicht

[Mayday171]

Hallo,

Benutze die Zeos-Komponente um zur SQL Datenbank zu verbinden. Es funktioniert alles ohne Probleme. Jedenfalls auf meinen Rechner. Sobals ich die fertige Exe auf einen anderen Rechner ausführe gibt er mir meine geschriebene Fehlermedlung aus.
Wie kommt das

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 begin
   stop:=0;
   zconnection1.Database:=getconfig('SQL','datenbank');
   zconnection1.HostName:=getconfig('SQL','host');
   zconnection1.Password:=getconfig('SQL','passwort');
   zconnection1.User:=getconfig('SQL','benutzer');
 try
    zconnection1.Connect;
 except
  on E: Exception do showmessage('Falsche SQL Daten eingegeben');
  end;
 if zconnection1.Connected=true then
  begin
    shape1.Brush.Color:=clgreen;
    button2.Enabled:=false;
  end;
end;

getconfig() ist eine eigene Funktion die aus einer Ini Daten ausliest.
Wie gesagt funktioniert auf den Rechner wo Delphi drauf ist alles ohne Probleme. Sobald ich jedoch die erzeugte Exe auf einen anderen Rechner starte kann er nicht mehr verbinden...

Weiß jemand bescheid??????

MfG

[CG2003]

Ist bei Deinem SQL-Server auch der Zugriff von "aussen" (alle anderen IP's, außer "localhost") erlaubt?

[shmia]

Zitat von Mayday171:

Delphi-Quellcode:

try
    zconnection1.Connect;
 except
  on E: Exception do showmessage('Falsche SQL Daten eingegeben');
  end;

Das ist natürlich blöd, dass du die orginale Fehlermeldung einfach unter den Tisch fallen lässt!!
Besser:

Delphi-Quellcode:

try
    zconnection1.Connect;
 except
  on E: Exception do
  begin
     E.Message := 'Verbindung zur Datenbank konnte nicht hergestellt werden!'+
        Format('Host: %s Datenbank: %s'#13#10#13#10, [zconnection1.HostName, zconnection1.Database])+  // neue Zeile
        E.Message;  // orginale Meldung
     raise; // Exception erneut auslösen (besser als ShowMessage)
  end;
  end;

PS: du solltest die Connection auch nicht in OnCreate öffnen, sondern die Sache auf später verschieben.
Du kannst dazu in OnCreate dir selbst eine Message verschicken.
http://www.delphipraxis.net/internal...ct.php?t=29732