Gracias por tomarte las molestia de ayudarme pero solo tengo una duda, que es que yo tengo u procedimiento que se encarga de conectar, y no como hacer para integrar ese codigo con el procedimiento.
Este es el codigo del proceso de coexion si me podes arientar te agradeceria.
Código Delphi
[-]begin
with DM_Conecciones do
begin
with TIniFile.Create(ExtractFilePath(Application.ExeName) + '\Configuracion.ini') do
begin
try
begin
Coneccion.Catalog := ReadString('Datos_Servidor','BasedeDatos:', Coneccion.Database);
Coneccion.Database := ReadString('Datos_Servidor','BasedeDatos:', Coneccion.Database);
Coneccion.HostName := ReadString('Datos_Servidor','Servidor:',Coneccion.HostName);
Coneccion.Port := ReadInteger('Datos_Servidor','Puerto:',Coneccion.Port);
Coneccion.User := ReadString('Datos_Servidor','Usuario:', Coneccion.User);
Coneccion.Password := ReadString('Datos_Servidor','Contraseña:',Coneccion.Password);
end;
finally
Free;
end;
end;
try
begin
Coneccion.Connected := TRUE;
end;
except
begin
Application.MessageBox('No ha sido posible conectar con el servidor', 'Conectar Servidor',MB_ICONEXCLAMATION);
end;
end;
end;
Espero tu respuesta Chris gracias.