Backup Restore Firebird

Version imprimable

11/04/2007, 11h56
defluc

Backup Restore Firebird

Bonjour,

Sur la page http://www.ibphoenix.fr/article.php3?id_article=12, Philippe Makowski nous fournit un fichier batch exécutant Backup/Restore.

Si on exécute ce fichier à l'intérieur d'une application Delphi par une instruction WinExec, est-il possible de récupérer les messages d'erreur renvoyés par les instructions «Echo» du fichier batch.

Autrement dit, comment exécuter une à une les instructions dans l'application Delphi en y gérant les erreurs.
11/04/2007, 14h00
Cl@udius

Salut Defluc.

Si tu cherches à intercepter un ErrorLevel (DOS) depuis ton appli Delphi, là franchement je ne sais pas si c'est possible.

Mais le batch, fournit par Philippe, alimente un fichier log. Pourquoi ne pas afficher ce log dans un memo dès le retour de WinExec?

@+ Claudius
11/04/2007, 14h19
defluc

Merci de ta réponse.
Cela n'aidera pas l'utilisateur non initié si le backup/restore échoue à l'une de ses étapes.
Je voudrais qu'il puisse cliquer un bouton qui exécute le backup/restore et lui affiche un message le gfix si celui-ci a échoué, puis après le backup et enfin idem après le restore.
A ce moment, il pourrait réessayer et alerter le responsable de l'application en cas d'échec répété.
Je pense avoir trouvé ici http://delphi.newswhat.com/geoxml/fo...ps.borland.com une piste mais quant à la mettre en oeuvre, je reste perplexe
11/04/2007, 14h34
SergioMaster

et pourquoi pas plusieurs petits batch imbriqués

se casser la tête des fois !!!!!!!!

Re,

Un truc dans ce genre là !

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
const
  GFIXNameWithFullPath = 'C:\Program files\Firebird\Firebird_2_0\bin\gfix.exe';
  GBAKNameWithFullPath = 'C:\Program files\Firebird\Firebird_2_0\bin\gbak.exe';
 
  ShutDownParamList = '-shut -attach 30 C:\DataBases\Firebird\Test_FB2.fdb -user SYSDBA -pass masterkey';
  OnLineParamList = '-online C:\DataBases\Firebird\Test_FB2.fdb -user SYSDBA -pass masterkey';
  BackupParamlist = '-B -T -user SYSDBA -pass masterkey C:\DataBases\Firebird\Test_FB2.fdb C:\DataBases\Firebird\Test_FB2.fbk';
  RestoreParamList = '-REPLACE_DATABASE -user SYSDBA -pass masterkey -p 4096 C:\DataBases\Firebird\Test_FB2.fbk C:\DataBases\Firebird\Test_FB2.fdb';
 
implementation
 
{$R *.dfm}
uses
  ShellAPI;
 
function LaunchExe(ExeName, ParamList: string): Boolean;
var
  exInfo: TShellExecuteInfo;
  exitcode: DWORD;
begin
  result := False;
 
  FillChar( exInfo, Sizeof(exInfo), 0 );
  with exInfo Do Begin
    cbSize:= Sizeof( exInfo ); // required!
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd   := Form1.Handle;  // forms handle
    lpVerb:= 'open';
    lpFile:= Pchar( ExeName );
    lpParameters := PChar( Paramlist );
    nShow := SW_HIDE;
  End;
  if ShellExecuteEx( @exInfo ) Then Begin
    While GetExitCodeProcess( exinfo.hProcess, exitcode ) and
          (exitcode = STILL_ACTIVE)
    Do
      Sleep( 500 );
    CloseHandle( exInfo.hProcess );
 
    if exitcode <> 0 then
      ShowMessage('Echec Code ' + IntToStr(exitCode))
    else
      result := True;
  End
  Else
    ShowMessage(SysErrorMessage( GetLastError ));
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not LaunchExe(GFIXNameWithFullPath, ShutdownParamlist) then Exit;
  if not LaunchExe(GBAKNameWithFullPath, BackupParamlist) then Exit;
  if not LaunchExe(GBAKNameWithFullPath, RestoreParamlist) then Exit;
  LaunchExe(GFIXNameWithFullPath, OnlineParamlist);
end;
 
end.

@+ Claudius

11/04/2007, 16h05
defluc

Ca m'a l'air super, Cl@udius

J'essaierai dès ce soir et je vous tiens au courant.
Je suis étonné que cela n'ai pas encore été développé parce que c'est intéressant, voire incontournable, dans une application Delohi/Firebird.
11/04/2007, 16h12
Cl@udius

Cela dépend des compos que tu utilises.
La suite des compos UIB, possèdent les compos Backup, Restore et Repair (que je n'ai pas encore utilisé) mais qui m'ont l'air intéressant.

Citation:

Envoyé par defluc

Je suis étonné que cela n'ai pas encore été développé parce que c'est intéressant, voire incontournable, dans une application Delohi/Firebird.

Ce n'est pas non plus systèmatiquement le rôle d'une application cliente que de faire de l'administration sur une base ! ;)

@+

Bonjour

Ca marche.

Après adaptation à mon application, le code devient

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
function LaunchExe(ExeName, ParamList: string): Boolean;
var
  exInfo: TShellExecuteInfo;
  exitcode: DWORD;
begin
  result := False;
  FillChar( exInfo, Sizeof(exInfo), 0 );
  with exInfo Do Begin
    cbSize:= Sizeof( exInfo ); // required!
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd   := MainForm.Handle;  // forms handle
    lpVerb:= 'open';
    lpFile:= Pchar(ExeName);
    lpParameters := PChar( Paramlist );
    nShow := SW_HIDE;
  End;
  if ShellExecuteEx( @exInfo ) Then
  Begin
    While GetExitCodeProcess( exinfo.hProcess, exitcode ) and
          (exitcode = STILL_ACTIVE) Do Sleep( 500 );
    CloseHandle( exInfo.hProcess );
    if exitcode <> 0 then
      ShowMessage('Error ' + IntToStr(exitCode) + ' in '#13 +
                  ExeName + ' ' + ParamList + #13#13 +
                  'Execution is halted.')
                     else
      result := True;
  End
                               Else
    ShowMessage(SysErrorMessage( GetLastError ));
end;
 
procedure TMainForm.DbCompactButtonClick(Sender: TObject);
Var
  GFIXNameWithFullPath : String;
  GBAKNameWithFullPath : String;
  ShutDownParamList : String;
  OnLineParamList : String;
  BackupParamlist : String;
  RestoreParamList : String;
 
begin
  GFIXNameWithFullPath := CurDir + 'bin\gfix.exe';
  GBAKNameWithFullPath := CurDir + 'bin\gbak.exe';
  ShutDownParamList := '-shut -attach 30 ' + CurDir + 'CadaCom.fdb -user SYSDBA -pass masterkey';
  OnLineParamList := '-online ' + CurDir + 'CadaCom.fdb -user SYSDBA -pass masterkey';
  BackupParamlist := '-B -T -user SYSDBA -pass masterkey ' + CurDir + 'CadaCom.fdb ' + CurDir + 'CadaCom.fbk';
  RestoreParamList := '-REPLACE_DATABASE -user SYSDBA -pass masterkey -p 4096 ' + CurDir + 'CadaCom.fbk ' + CurDir + 'CadaCom.fdb' ;
  if not LaunchExe(GFIXNameWithFullPath, ShutdownParamlist) then Exit;
  if not LaunchExe(GBAKNameWithFullPath, BackupParamlist) then Exit;
  if not LaunchExe(GBAKNameWithFullPath, RestoreParamlist) then Exit;
  LaunchExe(GFIXNameWithFullPath, OnlineParamlist);
end;

Seul hic, une erreur 1 au

Citation:

gbak.exe -REPLACE_DATABASE -user SYSDBA -pass masterkey -p 4096 ...

18/11/2007, 17h49
Fred 57220

bonjours

le code est super , mais j' ai error 1 sur gfix
question error 1 ?