executable d'une application

Version imprimable

15/06/2006, 02h06
pivot

executable d'une application

bonjour tout le monde
je suis nouveau ici et aussi avec delphi ;)
je travaille avec dephi 5 et paradox come base de donnée et BDE
je vien de terminer mon projet de fin d'étude et mon application fonctionne trés bien mais
mon pleme
je dois présenté mon travaille su un autre pc qui contien pas delphi
jai essayer de faire un executable de mon application avec installshield
et je les installer sur un autre ordi sa passe bien et l'installation termine avec succe
mais si je veux lancer mon application la un msg me dit " alias inconu et base de donnée introuvable "que dois je faire je prend tou le BDE et mes tables et mon projet a la fois et je les copie manuellement sur l'autre ordinateur ....????
SVP aider moi

merci

Bonjour

Si tu as tes tables dans un repertoire rlatif au celui de la application ( ./DB par exemple) je prefere n'utilisé pas d'alias et faire la configuration a la main

Quelque chose comme ça
Code:

1 2 3 4 5 6 7 8 9 if Database.Connected then Database.Connected := false; Database.Params.Clear; Database.Params.Add('PATH=' + ExtractPathFile(Application.ExeName) + '/bd'); Database.Params.Add('DEFAULT DRIVER=PARADOX'); Database.Params.Add('ENABLE BCD=FALSE'); Database.Open;

15/06/2006, 09h29
TicTacToe
++1 cadetill

J'ajouterais également ceci avant le DataBase.Clear:
Code:

1 2 3 Base.AliasName := ''; Base.DriverName := 'STANDARD';
Car il est pratique pendant le dev. seulement de travailler avec des alias.
Ce code les enlève lors de l'éxécution.
15/06/2006, 09h59
cadetill

Oui, ja m'ai oublié de ça ;)
15/06/2006, 12h21
pivot

salut
je trouve pas ou je dois mettre ce code , je veux quel est l'evénement qui déclanche ce code ou je le met n'importe ou par exemple dans l'evenement oncreate de ma 1er fiche ?
15/06/2006, 13h13
cadetill

Tu doit le mettre dans n'importe ou, mais il doit se faire 1 seule fois et en avance de l'ouverture de n'importe quel TTable

alias et base de donnée

salut

voila mon programme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
begin
 if mabase.Connected then
    mabase.Connected := false;
    mabase.AliasName := '';
    mabase.DriverName := 'STANDARD';
    mabase.Params.Clear;
    mabase.Params.Add('PATH=' + 'ExtractPathFile'(Application.ExeName) + '/bd');
    mabase.Params.Add('DEFAULT DRIVER=PARADOX');
    mabase.Params.Add('ENABLE BCD=FALSE');
     mabase.Open;
    table1.Insert;
end;

mabase = database1

et a l'execution sa block devant (Application.ExeName)

ExtractPathFile est une fontion qui a comme parametre un string (Application.ExeName renvoie un string), tu ne le doit mettre pas entre '

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
begin
 if mabase.Connected then
    mabase.Connected := false;
    mabase.AliasName := '';
    mabase.DriverName := 'STANDARD';
    mabase.Params.Clear;
    mabase.Params.Add('PATH=' + ExtractPathFile(Application.ExeName) + '/bd');
    mabase.Params.Add('DEFAULT DRIVER=PARADOX');
    mabase.Params.Add('ENABLE BCD=FALSE');
     mabase.Open;
    table1.Insert;
end;

15/06/2006, 22h04
pivot

salut
sa marche pas toujour :cry:
mais jai essayer de remplacer ExtractFilePath par ExtractFilePath est sa marche
donc c ma solution ?
et si je vais copier mon application sur un autre ordi est ce que sa marche ?

merci
15/06/2006, 22h06
pivot

désolé

ExtractPathFile par ExtractFilePath

:D

merci
16/06/2006, 11h35
touhami

bonjour,
si j'ai bien compri ton message d'erreur:
alias inconu et base de donnée introuvable
c'est que tu utilise un alias pour acceder a ta base de donnée (paradox)
et pour créer ce dernier tu peut ajouter dans l'evenement OnCreate de ta fiche principale le code suivant :
Session.AddAlias('NomAlias','PARADOX,'lechminBaseDonnée');
exemple:
Session.addAlias('Moi','PARADOX',(C:\Gestion\DBF');
bon courage.

Voila une procedure pour régler ton problème, seule contrainte: mettre les tables de données dans un répertoire "RepertoireBase" qui serai dans le même chemin que ton executable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure OuvertureBaseDonnee;
var MyList: TStringList; UserBaseDir:String; 
begin
 try
  try
  if not DirectoryExists('RepertoireBase') then Abort; // Cherche le répertoire de la base
  UserBaseDir:=ExpandFileName('RepertoireBase');// récupère le chemin complet de la base
 
  MyList := TStringList.Create;
  try
  MyList.Add('PATH='+UserBaseDir);
  MyList.Add('ENABLE BCD=TRUE');
  MyList.Add('DEFAULT DRIVER=PARADOX');
  with DataBase1 do begin      // nom du TDataBase  
   DataBaseName:='BaseParadox';// Nom de la Base
   Connected:=False;
   DriverName:='STANDARD';
   Params:=MyList;
   Session.NetFileDir:=UserBaseDir;
  end;
  finally
  MyList.Free;
  end;
  DataBase1.Connected:=True;
  except
   MessageClair('Impossible d''Ouvrir la Base de Données',2); 
   raise
  end;
 except
  Application.Terminate;
 end;
end;