Ver Mensaje Individual
  #1  
Antiguo 03-10-2021
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 233
Reputación: 14
darkamerico Va por buen camino
Wink Realizar UniDAC Conexión por código

Saludos estimados amigos, un saludo a todos, aquí nuevamente con una duda cuasi existencial...
Sucede que en mis aplicaciones deseo usar un archivo INI con los siguientes valores:


Tengo el componente colocado en mi DataModule con los datos en blanco:


El problema surge cuando deseo efectivamente utilizar los valores del INI y pasarlos al componente TUniConection, esto lo realizo en el evento OnCreate del Formulario de Login:

Código Delphi [-]
procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  if FileExists(ChangeFileExt(Application.ExeName,'.ini')) then
  begin
    ServerIP:=trim(Ini.GetStrValue('SERVER','SERVER_IP'));
    ServerPort:=trim(Ini.GetStrValue('SERVER','SERVER_PORT'));
    ServerDB:=trim(Ini.GetStrValue('SERVER','SERVER_DB'));
    ServerUser:=trim(Ini.GetStrValue('SERVER','SERVER_USER'));
    ServerPWD:=trim(Ini.GetStrValue('SERVER','SERVER_PWD'));
  end
  else
  begin
    Ini.SetStrValue('SERVER','SERVER_IP','localhost');
    Ini.SetStrValue('SERVER','SERVER_PORT','1433');
    Ini.SetStrValue('SERVER','SERVER_DB','IEGESTIONA');
    Ini.SetStrValue('SERVER','SERVER_USER','sa');
    Ini.SetStrValue('SERVER','SERVER_PWD','18159421');
    ServerIP:=Ini.GetStrValue('SERVER','SERVER_IP');
    ServerPort:=Ini.GetStrValue('SERVER','SERVER_PORT');
    ServerDB:=Ini.GetStrValue('SERVER','SERVER_DB');
    ServerUser:=Ini.GetStrValue('SERVER','SERVER_USER');
    ServerPWD:=Ini.GetStrValue('SERVER','SERVER_PWD');
  end;

  dmMain.conn.LoginPrompt:=false;
  dmMain.conn.Server:=ServerIP;
  dmMain.conn.Port:=StrToInt(ServerPort);
  dmMain.conn.Database:=ServerDB;
  dmMain.conn.Username:=ServerUser;
  dmMain.conn.Password:=ServerPWD;
  dmMain.conn.connected := True;
end;

El error que obtengo cuando corro paso a paso la aplicación se muestra a continuación:


Nota:
Estoy usando Delphi Enterprise 10.3.2 y UniDAC 8.2.5

Amigos, al cambiar todo el bloque de código de OnCreate() hacia OnActivate() obtengo este error aun antes de siquiera llegar a la primera linea:


Gracias anticipadas compañeros por la ayuda

Última edición por Casimiro Notevi fecha: 03-10-2021 a las 19:37:47.
Responder Con Cita