Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-10-2021
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 233
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Conexión SSL TUniConection, Devart UniDAC wilcg Conexión con bases de datos 0 29-04-2020 06:16:27
Como realizar una conexion a una BD existente Broca_Lic Conexión con bases de datos 5 24-11-2009 00:34:38
nesecito un Realizar EXE mediante codigo limbertx Varios 8 21-10-2007 23:40:32
Realizar una conexion FTP mediante Delphi KeyMan Varios 21 24-09-2007 15:45:46
Como realizar la conexion con Postgres SQL alastor PHP 2 14-08-2006 21:07:18


La franja horaria es GMT +2. Ahora son las 14:58:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi