Alias en tiempo de ejecución

[[Lepe]]

Pues te vas a echar a reir cuando veas lo simple que es lo del GL:

Código Delphi [-]
type
  TParadoxConfig = record
    NetFileDir:    String[255];     
    PrivateDir:    String[255];
    DatabaseDir:   String[255];
    Alias:         String[20];
  end;

  Tglobal = record
    DB:         TParadoxConfig;
    ModoServidor: Boolean;
    NotificarMensajes: Boolean;
  end;

var
  GL:      tglobal;

GL viene de GLobal, es decir, una variable global que usaba en toda la aplicación, ahora no recomiendo usar este tipo de cosas, pero me fue útil porque no sabía hacerlo de otra forma.

Como ves es simplemente un registro metido dentro de otro

Lo que has hecho de crearla como un String, está perfecto.

El BDE lo necesitarás instalar junto con tu programa siempre. Aquí tienes un instalador

Despues de instalarlo tienes que crear el alias, tienes 2 formas:
- Usando el BDE ADMINISTRATOR
- Haciendolo por código con AddStandarAlias.

Para hacerlo por código intenta esto otro:

Código Delphi [-]
Uses DBTables;

 with Database.Session do 
  begin
    if not IsAlias(gl.DB.Alias) then 
      AddStandardAlias(gl.DB.Alias, gl.DB.DatabaseDir, 'Paradox');
      ConfigMode := cmAll;
  end;//with session
  with database do
      DatabaseName := gl.DB.DatabaseDir; // carpeta de los *.DB
      Params.Clear;
      params.Add('PATH=' + DatabaseName);
      MensajeAdd(True, 'PATH = ' + DatabaseName);
      params.Add('DEFAULT DRIVER=PARADOX');
      params.Add('ENABLE BCD=FALSE');
    end;   // dtbppal
  Database.Session.Open;
  Database.Connected := True;

Es más largo que lo anterior, pero debe funcionar con un solo detalle: El nombre que tenga el alias debe ser el mismo en tu casa y en casa del cliente.

Saludos