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