En las versiones nuevas de Delphi tienes la clase
TFile con métodos para leer una cadena desde un fichero.
Un código como este te lee la conexión desde un fichero y conecta (lo intenta).
Código Delphi
[-]uses
System.IOUtils;
procedure TForm3.Button1Click(Sender: TObject);
begin
ADOConnection1.ConnectionString := TFile.ReadAllText('c:\...PATH_DEL_FICHERO_\conexion.dat');
try
ADOConnection1.Connected := True;
ShowMessage('Conexión correcta!');
except
MessageDlg('Error al realizar la conexión', mtError, [mbOK], 0);
end;
end;
Si no tienes disponible la clase
TFile (unit
System.IOUtils) puedes usar un
TStrings
En mi caso, el fichero conexion.dat tiene lo siguiente (variará según la versión de ADO):
Código SQL
[-]Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=__BASEDEDATOS__;Data Source=__SERVIDOR_SQLSERVER__