Discussion :

[JP.NUAGE]

à tous

Voilà le code, fait dans une petite application de test

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
procedure TForm1.FormShow(Sender: TObject);
var Cmde, params, Chemin1, Chemin2 : string;
begin
   Chemin1 := 'C:\SAUVEGARDES\ESSAI.fbk';
   Chemin2 := 'C:\BASES\ESSAI.FDB';
   Cmde := 'C:\Program Files\Firebird\Firebird_2_1\bin\gbak.exe';
   params:=Format('-rep -l -g -user SYSDBA -password ' +
   ZConnection.Password +' %s %s',[Chemin1, Chemin2]);
 
   ZConnection.Connected := false;
   ZConnection.Database := '';
   ShellExecute(0,'open',Pchar(cmde),Pchar(params),nil,SW_HIDE);
   ZConnection.Database := Chemin2;
   ZConnection.Connected := true;   <=======
   ZReadOnlyQuery1.Active := true;
end;

La restauration se fait correctement, mais l'ordre pointé envoie un message disant que la base est "shutdown". Si je sors de l'appli, la base est bien accessible et je vois que la restauration a été faite correctement.
D'où vient ce problème

[Cl@udius]

Salut

L'appel de ShellExecute étant asynchrone, la reconnexion à la BDD est demandée alors que le restore est toujours en exécution.
Ce qui expliquerait peut-être ce statut "shutdown".

Utilise plutôt CreateProcess et WaitForSingleObject.

Tiens nous au courant.

@+ Claudius.

[edam]

je préfère tibrestoreservice:http://www.developpez.net/forums/d33...vice-shutdown/

[Cl@udius]

Un compo service IBX avec firebird 2.1.
Cela me semble un mauvaise idée.

[JP.NUAGE]

J'ai aussi essayé avec un CreateProcess. Voici le code. Ce sont les mêmes chemins pour gbak, la sauvegarde et la base que dans le ShellExecute.

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
{ceci est dans un procédure}
Prg :=' C:\Program Files\Firebird\Firebird_2_1\bin\gbak.exe';
Params := '-rep -l -g -user SYSDBA -password masterkey C:\SAUVEGARDES\ESSAI.fbk C:\BASES\ESSAI.FDB';
Restauration (Prg,Params);
 
end;
 
procedure TForm1.Restauration(Prg : TFileName; Params : string);
var
  StartupInfo: TStartupinfo;
  ProcessInfo: TProcessInformation;
  e : integer;
begin
 
  FillChar(Startupinfo,Sizeof(TStartupinfo),0);
  Startupinfo.cb:=Sizeof(TStartupInfo);
  if CreateProcess(nil,PChar(Prg),nil,nil,false,normal_priority_class,nil,
                   PChar(Params),Startupinfo,ProcessInfo) then
  begin
    WaitforSingleObject(Processinfo.hProcess, infinite);
    CloseHandle(ProcessInfo.hProcess);
  end
  else
     begin
     e:=getlasterror();
     ShowMessage(IntToStr(e));
     end;   
end;

je recois 267 par le ShowMessage, et bien sûr pas de restauration. J'ai vérifié les chemins, allant jusqu'à les copier à partir de l'explorateur. Je ne vois pas pourquoi il me dit erreur de directory (267)

[edam]

Un compo service IBX avec firebird 2.1.
Cela me semble un mauvaise idée.

pas obligatoire, mais sa marche bien, on peu bien sûr passé par les UIB

[Nono40]

Un compo service IBX avec firebird 2.1.
Cela me semble un mauvaise idée.

Pourquoi ? Le service n'est pas lié au compo, le composant ne fait que demander l'exécution du service sur le serveur. C'est bien le service de Firebird qui est exécuté (j'en ai eut la preuve hier)

[JP.NUAGE]

Cité par edam

je préfère tibrestoreservice

Vous allez rire, c'est justement parce que cette solution en fonctionne pas (ni en sauvegarde ni en restauration) que je suis passé par ShellExecute, qui fonctionne parfaitement en sauvegarde. Maintenant, Cl@udius a certainement raison sur l'origine du shutdown, vue que si je quitte l'appli, la base est accessible. Toutefois, ceci n'explique pas le code 267 que je récolte avec le CreateProcess

Et en effet, je viens de faire l'essai : si je mets un Timer avec une durée assez longue, plus de shutdown, mais avec le ShellExecute