Discussion :

[chakir]

salut a tous
voila je cheche a faire une sauvgarde et la restauration de la base de données en rar ou en zip
si il existe un composant qui le fait et comment l'utiliser
merci d'avance

[ouiouioui]

bonjour, la base de données de quoi? Google? quel genre, sqlite, mysql, access?
Parceque la c'est trop vague pour faire le tour des possibilités!

[chakir]

marci pour votre aide
voila j'ai deux base de données une faite en firebird et l'autre en paradox
celle de paradox comporte une quarantaine (40) de tables avec leurs fichiers d'index (primaire et secondaire)

[SergioMaster]

Non , il n'existe pas de composants particulier (à ma connaissance)

en vieux routard que je suis j'utilise un simple Process
un pour le gbak de la base firebird
et un pour le zip via 7Zip

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
 
//*----------------------------------------------
// COMPRESSION 7-ZIP
// Source : répertoire à sauvegarder
// Dest     : nom archive
procedure Compression(Source,Dest : String);
var lzParam : WideString;
    si : STARTUPINFO ;
    pi : PROCESS_INFORMATION;
    fin : Boolean;
begin
  FillChar(si,SizeOf(si),#0);
  si.cb     := SizeOf(si);
  lzParam:=' a -tZIP '+Dest+' "'+IncludetrailingpathDelimiter(Source)+'*.*"';
  lzParam:=ExtractFilePath(ParamStr(0))+'7ZA.EXE'+lzParam;
  if CreateProcess(nil,PChar(lzParam),nil, nil, False, 0, nil, nil, Si, Pi) then
  begin
    Fin:=False;
    repeat
      case WaitForSingleObject(Pi.hProcess, 200) of
        WAIT_OBJECT_0 :Fin:=True; { L'application est terminée, on sort }
        WAIT_TIMEOUT  :;          { elle n'est pas terminée, on continue d'attendre }
      end;
      Application.ProcessMessages;
    until Fin;
    DelDir(Source);
    end
  else RaiseLastOSError;
end;
end.