Discussion :

[sniperpro]

Bonjour,

J'ai la procédure delphi suivante qui permet de détecter les modifications dans une table source et de les copier dans la table destination :

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
procedure TransfererEnreg(NomFichier: String) ;
Var
RepertSource                       : String ;
RepertDestination                  : String ;
RepertSourceP                      : PChar ;
RepertDestinationP                 : PChar ;
Result                             : Integer ;
Result1                            : Integer ;
SearchRec                          : TSearchRec ;
SearchRec1                         : TSearchRec ;
begin
RepertSourceP                      :=   StrAlloc(100);
RepertDestinationP                 :=   StrAlloc(100);
 
RepertSource                       := 'W:\test\tableSou.db' ;
RepertDestination                  := 'C:\test\tableDest.db'  ;
Result                             := FindFirst(RepertSource , faAnyFile, SearchRec);
Result1                            := FindFirst(RepertDestination, faAnyFile, SearchRec1);
 
    if  FileDateToDateTime(SearchRec1.Time) <> FileDateToDateTime(SearchRec.Time) then
    begin
    StrPCopy(RepertSourceP,RepertSource) ;
    StrPCopy(RepertDestinationP,RepertDestination) ;
    CopyFile(RepertSourceP,RepertDestinationP,False);   //Violation de partage si la table source est ouverte
    end ;
end ;

Le problème est que ca génère un problème de violation de partage lorsque la table source est en cours d'utilisation.

[Rayek]

Plus simplement

Code :

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

1
2
 
    CopyFile(PChar(RepertSource),PChar(RepertDestination),False);

Il te faut tester avant la copie si ta base est en cours d'utilisation.

[sniperpro]

oui c'est plus simple mais ca résout pas le problème.

[ShaiLeTroll]

utilise un TFileStream en SharedDeny, tu pourras détecter si le fichier est utilisé !
Voir la FAQ : Tester si un fichier est déjà ouvert.

Tu ne pourras pas contrer ce bloquage sans risque
Des outils comme Unlocker qui le font
Il doit y avoir des API (certaines solutions ferment le Handle d'un processus, cela doit chier des bulles après)

Sinon ton code est d'une complexité !!!
Sans compter les PChar, il n'est pas très rigoureux sur les libération de ressources

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
procedure TransfererEnreg(RepertSource, RepertDestination : String) ;
Var
  SearchRec: TSearchRec;
  SrcTime, DestTime: TDateTime;
 
begin
  if FindFirst(RepertSource, faAnyFile, SearchRec) then
  begin
    SrcTime := FileDateToDateTime(SearchRec.Time);
    FindClose(SearchRec); // Tu avais oublié cela !
 
    if FindFirst(RepertDestination, faAnyFile, SearchRec) then
    begin
      DestTime := FileDateToDateTime(SearchRec.Time);
      FindClose(SearchRec); 
    end
    else
      DestTime := -1;
 
    if DestTime <> SrcTime then
      CopyFile(PChar(RepertSource), PChar(RepertSource), False); 
  end;
end;

Code :

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

TransfererEnreg('W:\test\tableSou.db', 'C:\test\tableDest.db');

[sniperpro]

Merci bien shaiLeTroll,

juste une précision, les fichier que je manipule sont des .db, .PX, .XG0, et .YG0

je fait appelle à la même procédure 4 fois pour les 4 fichiers.

j'ai pensé à cette manip es-ce possible :

Code :

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

1
2
3
4
if DestTime <> SrcTime then
Repeat      
   Success := CopyFile(PChar(RepertSource), PChar(RepertSource), False); 
Until   Success = True ;

[ShaiLeTroll]

Pour copier un Dossier c'est ShFileOperation : Comment Copier un répertoire ?

Pour moi, tu ne devrais pas copier les fichiers Paradox séparément, tu devrais copier tous les fichiers d'une table ou aucun !
Tu risques d'avoir sur la copie une Erreur "Index Ouf of Date"

Pense en plus que le BDE n'écrit pas les modifications dans un fichier toujours ouvert avec un TTable, souvent l'écriture réelle ne se produit que lors du Table.Close ou FlushBuffers
Je te conseille la lecture de Paradox cookbook par SQLPro


Si tu veux recopier ta DB, tu devrais plutôt utiliser un BatchMove
Ou développer un module client\serveur (genre WebService, DataSnap, DCOM...) ou le client souhaitant copier les fichiers invoque une fonction du serveur qui ferme ces fichiers (donc valide leur contenu non expédié), effectue la copie, puis reprend son travail !

La Copie de fichier DB à chaud est une très mauvaise Idée !