Discussion :

[miwbath]

Bonjour à tous,


Bon voilà...J'ai développé une petite application de gestion de stock avec delphi 7 et inerbase 6.5.
Pour l'accès à la base de données j'utilise le composant SQLConnection de DBExpresss que j'ai déposé sur un DataModule. Dans l'évènement Oncreate du DataModule j'ai mis le code suivant:

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
28
29
30
31
32
33
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
try
SQLConnection.Connected := false;
SQLConnection.ConnectionName:='IBConnection';
SQLConnection.DriverName:='INTERBASE';
SQLConnection.LibraryName:='dbexpint.dll';
SQLConnection.VendorLib:='GDS32.DLL';
SQLConnection.GetDriverFunc:='getSQLDriverINTERBASE';
SQLConnection.Params.Add('RoleName=RoleName');
SQLConnection.Params.Add('User_Name=SYSDBA');
SQLConnection.Params.Add('Password=masterkey');
SQLConnection.Params.Add('ServerCharSet=ISO8859_1');
SQLConnection.Params.Add('SQLDialect=3');
SQLConnection.Params.Add('LocaleCode=0000');
SQLConnection.Params.Add('CommitRetain=False');
SQLConnection.Params.Add('WaitOnLocks=True');
SQLConnection.Params.Add('Interbase TransIsolation=ReadCommited');
SQLConnection.Params.Add('Trim Char=False');
 
SQLConnection.Params.Values['Database']:='C:\Stock\Base\Gestock.GDB'; 
 
SQLConnection.LoginPrompt:=false;
SQLConnection.Open;
 
SQLConnection.Connected := True;
SQLConnection.LoadParamsOnConnect := True;
 
Except
on e:exception do
MessageDlg(e.Message,mtInformation,[mbOk],0);
end;
end;

Mon problème est le suivant:

Je souhaite que mon application lise le chemin de la base de données dans un fichier txt ou bien ini.

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQLConnection.Params.Values['Database']:=lire le fichier txt ou ini

Dans le fichier txt je dois indiquer le chemin de ma base en indiquant l'adresse ip de la machine sur laquelle se trouve la base comme ceci:

172.21.66.2:C:\Stock\Base\Gestock.GDB

ou bien

172.21.66.5:\Stock\Base\Gestock.GDB

En fait je souhaite que mon application aille chercher le chemin de la base dans le fichier txt ou ini qui se trouve dans le repertoire de l'application...


Merci d'avance pour votre aide

[vedge2000]

Voilà une explication :

http://delphi.developpez.com/faq/?page=fichiersini