Probleme d'alias

Question

j'ai cree une application de base de donne pour 
qu'un utilisateur l'install chez un lui il doit cree 
l'alias de la base mais si c'est un simple utilisateur 
comment faire pour que l'application 
cree son propre alias. ou ne pas utiliser d,alias du tout


Sortez moi de se trou svp.

plus on vie plus on apprend

jmp77 · Answer

Hello,



Voici comment cr&#233;er dynamiquement un alias :

Session.AddStandardAlias('MonAlias',Repertoire o&#249; se situe le fichier .net,'PARADOX');


Puis pour le detruire ca peut servir aussi :

If Session.IsAlias('MonAlias') then Session.DeleteAlias('MonAlias');


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

koaiz · Answer

Repertoire o&#249; se situe le 
Fichier .net 
C'est le repertoire des tables ou quoi pardon car je devlope depuis tres lontemps mais j'ai complexe vis a vis des base de donnes et surtout l'alias je le deteste

plus on vie plus on apprend

DGPat · Answer

Hello,

Je ne vois pas pourquoi il doit cr&#233;er son Alias quand tu as cr&#233;&#233; ton appli tu as du donner un nom d'Alias a tes TTable, non? si tu fourni une application de Base de donn&#233;es qui utilise le BDE tu dois fournir celui-ci avec ton appli et ton probl&#232;me est r&#233;solu tes bases fonctionnerons, En utilisant InstallShield fourni avec le logiciel Delphi tu inclus le BDE dans le prog que tu distribue.

DGPat

cs_Delphiprog · Answer

Un alias est un nom symbolique d&#233;signant le chemin o&#249; est situ&#233;e une base de donn&#233;es.
Quand on installe le BDE, il n'y a pas d'alias cr&#233;&#233; correspondant &#224; son application. Evidemment, si on se contente d'utiliser la base de donn&#233;es DbDemos fournie avec Delphi, je suis d'accord avec ce qui est &#233;crit ci-dessus.

Donc, une fois le BDE et l'application install&#233;s, comment faire pour acc&#232;der &#224; sa base de donn&#233;es ?
Trois possibilit&#233;s : utiliser un alias permanent, un alias temporaire ou d&#233;clarer le chemin d'acc&#232;s aux tables utilis&#233;es par l'application.

Pour ne pas avoir &#224; modifier chaque composant orient&#233; donn&#233;es (TTable, TQuery, etc), il est recommand&#233; d'utiliser un composant TDataBase.

Voici un code qui cr&#233;e un alias temporaire. Voir les commentaires pour l'adapter &#224; la cr&#233;ation d'un alias persistant.

procedure TForm1.FormCreate(Sender: TObject);
var
  SessionsList: TStringList;
  AliasPath: string;
const
  AppAlias =  'AppAlias';
begin
  SessionsList := TStringList.Create;
  try
    Session.GetAliasNames(SessionsList);
    {On regarde si l'alias existe d&#233;j&#224;}
     if  SessionsList.IndexOf(AppAlias)  = -1 then
    begin
      AliasPath := ExtractFilePath(Application.ExeName) + 'bdd';
      {L'alias ne sera pas sauvegard&#233; dans le fichier
      de configuration du BDE. Rappels :
      cfmVirtual	Tous les alias du fichier de configuration BDE
      (le stockage permanent BDE) ainsi que les alias propres &#224; la session
      sont accessibles dans cette session.

      cfmPersistent	Seuls les alias du fichier de configuration BDE ou
      ceux ajout&#233;s au stockage permanent sont accessibles dans cette session.

      cfmSession	Seuls les alias cr&#233;&#233;s dans cette session sont
      accessibles.}
      Session.ConfigMode := cmSession;
      { L'index n'existe pas, il faut le cr&#233;er}
      Session.AddStandardAlias(AppAlias, AliasPath, 'Paradox');
    end;
  finally
    SessionsList.Free;
  end;
end;



Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

koaiz · Answer

Je suis tres heureux d'avoire des copins comme vous les Pots vous m'ete d'un grans secour cette fois je voudrais savoire comment verifier que l'alias existe deja pour ne pas le cree a chaque fois

P.S: J'ai trouver un composant qui permet de ne pas cree d'alias et d'eviter les problemes qui s'ensuit il integer la table a l'exectable de l'application elle sera plus en securiter car elle ne peut etre lu que par l'application se composant s'applle EASYTABLE disponible sur la net

plus on vie plus on apprend

cs_Delphiprog · Answer

"comment verifier que l'alias existe deja pour ne pas le cree a chaque fois"

La r&#233;ponse est donn&#233;e dans le code ci-dessus :
if SessionsList.IndexOf(AppAlias) = -1 then //alias non trouv&#233; !

Pas besoin non plus de cr&#233;er des alias persistants ni d'utiliser de composants tiers pour faire fonctionner l'application. As-tu r&#233;ellement lu les commentaires dans le code que j'ai d&#233;pos&#233; ci-dessus ?

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

jmp77 · Answer

Hello Delphiprog,



Dis moi ej ne connaissais pas le commande Session.ConfigMode j'ai voulu l'impl&#233;menter dans mon code mais j'ai une erreur :

---------------------------

Notification d'une exception du d&#233;bogueur

---------------------------

Le projet Async.exe a provoqu&#233; une classe d'exception EDatabaseError
avec le message 'Impossible d'effectuer cette op&#233;ration sur une session
active'.  Processus stopp&#233;. Utilisez Pas-&#224;-pas ou Ex&#233;cuter pour
continuer.

---------------------------

OK   Aide   

---------------------------



Est ce que tu aurais une id&#233;e du pourquoi, comment de cette erreur stp???



Merci d'avance.

++,
JMP77

Meghslim · Answer

mais comment le faire pour une apllication 

cr&#233;e un alias dynamiquement

sidouo · Answer

salut
tout j'ai le meme probleme

alors mois je cree une application d'un repertoire telephonique  et j'utilise des tabels access

j'ai creer des dalias avce ODBC du window 

mais lorque je cree un setup avce insttalsheld ca va pas marcher parceque le lien de la base serat changer 

alors la methode ces cedessus ...........

je sais pas comment comment proceder 

alors je vais quoi metre dans la forme une database ensuite ....... quoi ?! et aussi ou je vais tapper ce code la 

dvp aider moi

et merci

java1 · Answer

ajoute ça a uses et ca va marché
StdCtrls, Buttons, ExtCtrls, DB, DBTables, Grids, DBGrids
  ;

java1 · Answer

écoute ce codes marche bien mais si le compilateur te fait session ....
ajoute DBTables a uses dans l evenement form create de ta fiche principale et bonne courage
et voici le code pour créer alias:

procedure TForm1.FormCreate(Sender: TObject);
var
  SessionsList: TStringList;
  AliasPath: string;
const
  AppAlias = 'fac';
begin
  SessionsList := TStringList.Create;
  try
    Session.GetAliasNames(SessionsList);
    {On regarde si l'alias existe déjà}
    if SessionsList.IndexOf(AppAlias) = -1 then
    begin
      AliasPath := 'D:\BASEFACT1';
      {L'alias ne sera pas sauvegardé dans le fichier
      de configuration du BDE. Rappels :
      cfmVirtual	Tous les alias du fichier de configuration BDE
      (le stockage permanent BDE) ainsi que les alias propres à la session
      sont accessibles dans cette session.

      cfmPersistent	Seuls les alias du fichier de configuration BDE ou
      ceux ajoutés au stockage permanent sont accessibles dans cette session.

      cfmSession	Seuls les alias créés dans cette session sont
      accessibles.}
      Session.ConfigMode := cmSession;
      { L'index n'existe pas, il faut le créer}
      Session.AddStandardAlias(AppAlias, AliasPath, 'Paradox');
    end;
  finally
    SessionsList.Free;
  end;


end;

amlila · Answer

bonsoir tout le monde
voila jai un probleme d'alias
est ce que a chaque fois je cree une table je cree un alias ?
merci de m aider vraiment j arrive pas a avancer dans mon application a cause des alias

Probleme d'alias

12 réponses

Votre réponse

Discussions similaires