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