Oué oué c'est bien tout ça mais dis moi quand on vient chez toi, on respecte tes valeurs, tes principes : Ben merci d'en faire de même de ton coté (DelphiFr=Site français=site laïque).
Il y a eu suffisamment de connards par le passé qui nous ont fait chier avec leur religion ici, pour pas relancer le truc stp.
De plus il serait plus judicieux que tu nettoyes ton zip précédent, que tu renommes tes composants, et que tu corriges ce dernier (Qui représente comme te l'a dis Cirec tout ce qui ne faut pas faire) : ca serait bien plus utile.
procedure CreateAlias;
const
FDbDriver = 'PARADOX';
SubDir = 'dossier de la base \'; //il faut ajouter '\'
var
FAlias: string; chemin:string;
FAliasDir: string;
begin
FAlias := 'nom alias';
chemin := ExtractFilePath(ParamStr(0))+SubDir; {ParamStr(0)c 'est le chemin d'executable ou on peut mettre (application.ExeName )}
Session.ConfigMode := cmPersistent;
if not Session.IsAlias(FAlias) then
begin try begin
FAliasDir := ExtractFilePath(chemin);
Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); end finally
DbiCfgSave(nil, nil, True);
end; end; end;
- Messages postés
-
107
- Date d'inscription
- lundi 30 mai 2011
- Statut
- Membre
- Dernière intervention
- 29 avril 2013
1Il y a eu suffisamment de connards par le passé qui nous ont fait chier avec leur religion ici, pour pas relancer le truc stp.
De plus il serait plus judicieux que tu nettoyes ton zip précédent, que tu renommes tes composants, et que tu corriges ce dernier (Qui représente comme te l'a dis Cirec tout ce qui ne faut pas faire) : ca serait bien plus utile.
Dis donc toi tu commences fort.
- Messages postés
-
107
- Date d'inscription
- lundi 30 mai 2011
- Statut
- Membre
- Dernière intervention
- 29 avril 2013
1const
FDbDriver = 'PARADOX';
SubDir = 'dossier de la base \'; //il faut ajouter '\'
var
FAlias: string; chemin:string;
FAliasDir: string;
begin
FAlias := 'nom alias';
chemin := ExtractFilePath(ParamStr(0))+SubDir; {ParamStr(0)c 'est le chemin d'executable ou on peut mettre (application.ExeName )}
Session.ConfigMode := cmPersistent;
if not Session.IsAlias(FAlias) then
begin try begin
FAliasDir := ExtractFilePath(chemin);
Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); end finally
DbiCfgSave(nil, nil, True);
end; end; end;
- Messages postés
-
3818
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 18 septembre 2020
34- Messages postés
-
107
- Date d'inscription
- lundi 30 mai 2011
- Statut
- Membre
- Dernière intervention
- 29 avril 2013
1Et le jpg ?