Discussion :

[coax81]

bonjours, j'essaye de faire un composant qui permet de scruter un fichier , stocker le contenu du fichier ,et verifier en permanence si il y a un changement.

le probleme c'est que quand j'ouvre avec un notepad et je modifie le fichier , je tombe dans un problème d'acces . comment remédier à ce problème ??
merci .

Code :

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

1
2
3
4
5
6
7
8
 
procedure TObjThreadScan.Execute;
begin
  while not terminated do
  begin
    Scann(FPathDir);
  end;
end;

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
 
procedure TObjThreadScan.Scann(Chemin : String);
Var
  Info   : TSearchRec;
begin
  Chemin := IncludeTrailingPathDelimiter(Chemin);
  If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
  Begin
    Repeat
      If Not((Info.Attr And faDirectory)=0)
        Then // repertoire
        Else
        begin
         /// Sleep(100);
          LoadFile(chemin+ Info.FindData.cFileName)  //fichier
        end;
    Until FindNext(Info)<>0;
    FindClose(Info);
  End;
end;

[Yurck]

Bonjour,

Peut-être que plutôt que d'ouvrir un fichier qui est potentiellement locké par une autre appli tu devrais le recopier auparavant et ouvrir la copie.

Ou alors ouvre le avec un tmemorystream.LoadFromFile



a voir

[coax81]

ah , je vais essayer cela , mais pour le cas de fichier de grande taille , cela va prendre un temps considérable ...

[ShaiLeTroll]

Voir le Sujet "Comment détecter la copie d'un fichier ?"

Tu devrais regarder autour de FindFirstChangeNotification qui te permettra (dans un thread) d'attendre une sorte d'évènement (pas à la notion delphi), soit qu'il ne se passe rien (TimeOut), soit qu'un fichier a été modifié

Pour voir la copie d'un fichier, je pense qu'il faut écoute les messages de modification, ajouter le fichier dans une liste (si il existait déjà c'est que une modification, sinon c'est une copie d'un nouveau fichier, tu peux générer la liste au démarrage de l'application avec FindFirst/FindNext) ... et dès que le message TimeOut survient c'est que la copie est terminée ... tu peux aussi vérifier la taille du fichier voir ICI mes classs TNotifyShaiFileChangeThread et TFileSizeList, qui pourrait t'inspirer à ce sujet

Cela vérifie la Taille, mais tu peux aussi tester la Date de Modification du fichier AVANT de lire le fichier

[Aka Guymelef]

Bonjour, je pense que tu trouveras ton bonheur en regardant les sources de Non40 ici et là.

[coax81]

je vais essayer cela , mais si ma mémoire est bonne , je crois que j'ai essayé cet objet FindFirstChangeNotification ,mais je crois que les notifications ne marchent pas en réseaux ????