1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| procedure TDataModule1.DataModuleCreate(Sender: TObject);
var F : TIniFile;
begin
F:=TInifile.Create(ChangeFileExt(paramstr(0),'.INI'));
try
ZConnection1.Host:=F.ReadString('Connexion','Hote','localhost');
ZConnection1.Port:=F.ReadInteger('Connexion','Port',0);
ZConnection1.Protocol:=F.ReadString('Connexion','protocole','firebird-2.5');
ZConnection1.Database:=F.ReadString('Connexion','base','c:\test.fdb');
// cette partie est peu sécuritaire
ZConnection1.User:=F.ReadString('Connexion','Utilisateur','SYSDBA');
ZConnection1.Password:=F.ReadString('Connexion','mdp','masterkey');
finally
F.Free;
end;
end; |
Partager