Bonjour

Comment modifier les ALIAS BDE par programme. C.a.d modifier les parametres de IDAPI32.CFG sans passer par BDEADMIN.EXE ?.

j'ai fait des recherches sur internet et j'ai pu arriver à la solution suivante qui crée l'alias de façon dynamique mais à l'exécution du programme je constate
que l'ALIAS n'est pas opérationnel et quand je recompile j'ai des pbms.

CHEMINFACT : mon alias que j'ai crée avec BDEADMIN.EXE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
procedure TForm1.Button6Click(Sender: TObject);
var
 wchemin: string;
 AParams: TStringList;
begin
    application.processmessages;
    AParams := TStringList.Create;
    WCHEMIN:=ExtractFilePath(Application.exename); // extraire le chemin
    if not(session.IsAlias('CHEMINFACT')) then
    begin
     AParams.add('Path =' + wchemin + EDIT3.TEXT);
     Session.AddAlias('CHEMINFACT', 'PARADOX', AParams);
     Session.SaveConfigFile;
     AParams.Free;
     showmessage('Alias correctement généré := ' + WCHEMIN+edit3.text);
    end
    else
     begin
      Session.DeleteAlias('CHEMINFACT');
      AParams.add('Path =' + wchemin + EDIT3.TEXT);
      Session.AddAlias('CHEMINFACT', 'PARADOX', AParams);
      Session.SaveConfigFile;
      AParams.Free;
      showmessage('Alias existe ... sup + création ' + WCHEMIN+edit3.text);
     end;
end;
J'attend votre collaboration ...... et je remercie tous ceux qui nous aident à qui je souhaite beaucoup de bonheur et de réussite.