Salut !
Je voudrais utiliser un TIBBackupService pour sauvegarder une base de donnée.Quand je lance le programme se plante au niveau de active := true; il m'afffiche constante SPB inconnue.Même resultat que ce soit sur le serveur ou sur un client. Je ne connait pas cette constante SPB.Ni où ma procedrue n'est pas correcte.Protocol est à TCP, Verbose à True.
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 var ficConf : TIniFile; chaine : String; begin ficConf := TIniFile.Create('C:\Conf.ini'); with BackUp do begin with params do begin Clear; Add('user_name=SYSDBA'); Add('password = masterkey'); end; DatabaseName := ficConf.ReadString('BD','CHEMIN',''); ServerName := ficConf.ReadString('BD','SERVEUR',''); BackupFile.Add(ficConf.ReadString('SAUVEGARGE','CHEMIN','')); try Active := true; ServiceStart; while not EOF do chaine := chaine+#13#10+GetNextLine; finally Active := false; end; end; beep; ShowMessage(chaine); end;
Partager