Discussion :

[Lucien]

Bonsoir,
En suivant les indications de l'aide en ligne, je construis une sauvegarde suivie d'une restauration.
La sauvegarde fonctionne dans toutes les situations.

La restauration dont voici le code (copié dans l'aide) fonctionne au pas à pas seulement.

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
   with IBRestoreService1 do
    begin
      ServerName := 'localhost';
      LoginPrompt := False;
      params.Clear;
      Params.Add('user_name=SYSDBA');
      Params.Add('password=masterkey');
      Active := True;
      try
        Verbose := false;
        Options := [Replace, UseAllSpace];
        PageBuffers := 3000;
        PageSize := 4096;
        databaseName.Clear;
        DatabaseName.Add(ch_fdb);
        backUpFile.Clear;
        BackupFile.Add(Uppercase(ch_fbk));
 
        ServiceStart;
      finally
        Active := False;
        if not dm_club.Connection_club.Connected
           then dm_club.Connection_club.Connected:=true;// ajout perso
        screen.Cursor:=crdefault;
      end;
    end;

A l'exécution, elle indique qu'elle ne parvient pas à ouvrir le fichier .DBK ...

Merci de votre aide
Lucien

[qi130]

On suppose bien sûr que

Code :

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

BackupFile.Add(Uppercase(ch_fbk));

est valablement renseigné ?

Que contient ch_fbk ?

[Lucien]

ch_fbk contient le chemin absolu et le nom du fichier backup,
identifié lors de l'installation et mémorisé dans le registre. D'ailleurs le message d'erreur (impossible d'ouvrir...) contient bien ce chemin !

Il semble que le pb soit ailleurs, puisque tout fonctionne au pas à pas en débogage...!

Lucien

PS Comme il semble s'agir d'un problème de temps système, j'ai ajouté

Code :

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

sleep(1000)

entre la sauvegarde et la restauration...C'est barbare mais cela fonctionne

Merci à vous
Lucien

[Barbibulle]

Il faut croire que l'exemple donné est faux .

Mais vous avez eut du nez avec votre sleep(1000).

En effet, après StartService, la restauration commence immédiatement mais la main est rendue au programme (sans attendre la fin de la restauration).

Donc votre sleep(1000) permet une attente suffisante mais qu en sera t il quand votre base à restaurée sera plus importante ?

Heureusement il y a une solution :

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
   with IBRestoreService1 do
    begin
      ServerName := 'localhost';
      LoginPrompt := False;
      params.Clear;
      Params.Add('user_name=SYSDBA');
      Params.Add('password=masterkey');
      Active := True;
      try
        Verbose := false;
        Options := [Replace, UseAllSpace];
        PageBuffers := 3000;
        PageSize := 4096;
        databaseName.Clear;
        DatabaseName.Add(ch_fdb);
        backUpFile.Clear;
        BackupFile.Add(Uppercase(ch_fbk));
 
        ServiceStart;
        While IsServiceRunning do 
           Sleep(10);
      finally
        Active := False;
        if not dm_club.Connection_club.Connected
           then dm_club.Connection_club.Connected:=true;// ajout perso
        screen.Cursor:=crdefault;
      end;
    end;

Ou même si vous souhaitez afficher dans un mémo la progression de l'opération :

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
 
   Memo1.Clear;
   with IBRestoreService1 do
    begin
      ServerName := 'localhost';
      LoginPrompt := False;
      params.Clear;
      Params.Add('user_name=SYSDBA');
      Params.Add('password=masterkey');
      Active := True;
      try
        Verbose := false;
        Options := [Replace, UseAllSpace];
        PageBuffers := 3000;
        PageSize := 4096;
        databaseName.Clear;
        DatabaseName.Add(ch_fdb);
        backUpFile.Clear;
        BackupFile.Add(Uppercase(ch_fbk));
 
        ServiceStart;
        While Not EOF do 
           Memo1.Lines.Add(GetNextLine);
      finally
        Active := False;
        if not dm_club.Connection_club.Connected
           then dm_club.Connection_club.Connected:=true;// ajout perso
        screen.Cursor:=crdefault;
      end;
    end;

[Lucien]

Merci Barbibulle,
Oui, j'ai flairé le pb sans le connaître,
j'apporte la correction immédiatement.

Autre difficulté ! la main est rendue et l'appli reste déconnectée, dans mon code.....?

Y a-t-il une réponse à cette cascade de conséquences ?

Lucien