archivo ini con ip
[ini][ConfigDB]
User=sa
password=4637hjgf
Server=192.168.3.110\SQL2005
BaseDatos=conexion[/ini]
archivo ini con nombre
[ini][ConfigDB]
User=sa
password=4637hjgf
Server=JOSESERVER\SQL2005
BaseDatos=conexion[/ini]
codigo delphi para la conexion en el create del datamodule donde estan los componentes
delphi
procedure FormCreate(Sender: TObject); private ini:TIniFile; public { Public declarations } end; var Form1: TForm1; const STR_CONN = 'Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;' + 'User ID=%s;Initial Catalog=%s;Data Source=%s'; CONFIG_SECTION = 'ConfigDB'; STR_EMPTY = ''; Implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var user, password, server, BD: string; begin ADOConnection1.Close; // Cargar el fichero INI ini := TIniFile.Create('conexion.ini'); // proteccion para liberar try // Cargar datos USer:= ini.ReadString(CONFIG_SECTION, 'User', STR_EMPTY); Password:= ini.ReadString(CONFIG_SECTION, 'password', STR_EMPTY); Server := ini.ReadString(CONFIG_SECTION, 'Server', STR_EMPTY); BD := ini.ReadString(CONFIG_SECTION, 'BaseDatos', STR_EMPTY); // Intentar conectar ADOConnection1.ConnectionObject.ConnectionString := Format(STR_CONN, [Password, User, BD, Server]); try ADOConnection1.Open; ADOTable1.Active:=true; ADOQuerymaquinaria2.Active:=true; ADOQuerycategoria1.Active:=true; except on E:Exception do begin // Error form1.lblErr.Visible := True; form1.lblErr.Caption := E.Message; end; end; finally FreeAndNil(ini); end; end;