Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿Cómo conecto las tablas de paradox para crear un instalador con Inno Setup?? (https://www.clubdelphi.com/foros/showthread.php?t=24086)

nuri 08-08-2005 13:34:32

¿Cómo conecto las tablas de paradox para crear un instalador con Inno Setup??
 
Hola a todos:
Puesto que con el InstallShield express no pude crear el instalador para mi aplicación he decidido usar el Inno Setup.
Se me ha creado perfectamente el ejecutable, el problema es que no me crea el alias y por lo tanto no me funciona mi aplicación en un ordenador que no lo tenga, leí en un hilo que con añadir el siguiente código al evento OnCreate del form principal de mi aplicación no era necesario crear el alias:
Código Delphi [-]
procedure TFormPrincipal.FormCreate(Sender: TObject);
var n:string;
begin
n:='COCHES';
If not session.IsAlias(n) Then
Begin
Try
Session.AddStandardAlias(n,'C:\Documents and Settings\Practicas\Mis documentos\Aplicación de Coches\BASES DE DATOS\','PARADOX');
Session.SaveConfigFile;
except
Application.MessageBox('Error Creando el alias','Atención',MB_OK);
Exit;
End;
End;
end;

¿Tengo que añadir algo al Inno Setup para que se ejecute mi aplicación sin problemas??
Tengo la versión 5.1.4.
Muchas gracias a quien pueda echarme un cable.
Atentamente
Nuri;)

Neftali [Germán.Estévez] 08-08-2005 14:49:35

En ésta página tienes la información de lo que tienes que añadir a la instalación de Inno Setup para que se creen los Alias que necesitas en tu programa.

http://www.jrsoftware.org/iskb.php?bde

German 08-08-2005 17:58:34

Tambien puedes pensar en la idea de dejar de utilizar alias. En vez de eso, puedes utilizar un componente tDataBase en tu aplicación, y "arrancarlo" utilizando el evento onCreate del Form (por ejemplo):

Código Delphi [-]
With DataBase1 do
 begin
  Params.Clear;
  Params.Add('PATH='+ExtractFilePath(Application.ExeName)+'BASES DE DATOS\');
  Params.Add('DEFAULT DRIVER=PARADOX');
  Params.Add('ENABLE BCD=FALSE');
  Connected := True;
 end;
Deberias sustituir el nombre del alias poner el nombre del tDataBase en cualquier lugar de tu aplicación en que aparezca.

Salu2.

Phacko 08-08-2005 18:28:35

casi lo mismo.....
 
Que tal???

Pues bien yo he hecho esto y me ha funcionado muy bien:


procedure TForm1.FormCreate(Sender: TObject);
Var
TClientes, TProducto, TRepartidores: TTable;
begin
If Not Session.IsAlias('Carnic') Then
Begin
Try
Session.AddStandardAlias('Carnic',ExtractFilePath(ParamStr (0)),'PARADOX');
Session.SaveConfigFile;
Except
MessageDlg('No se puede crear la Base de Datos',mtError,[mbOK],0);
Exit;
End;
End;

Espero te sea util, buen día.

nuri 08-08-2005 18:56:36

okis, muchas gracias a los tres, lo he conseguido, finalmente he usado las instrucciones de Inno Setup.

Mil gracias.
Hoy ya puedo dormir tranquila.
Bufffffffffffff k alivio
Mil bezazossssssssssssssssssssssssssss


La franja horaria es GMT +2. Ahora son las 23:29:59.

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