Discussion :

[defluc]

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.

[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

[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

[SergioMaster]

et pourquoi pas plusieurs petits batch imbriqués

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

[Cl@udius]

Re,

Un truc dans ce genre là !

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
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

[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.