Discussion :

[bibi26]

Bonjour,

Je cherche à ouvrir un fichier afin de rechercher une chaîne dedans. Cependant, j'ai deux problèmes :

- Le fichier peut être déjà en cours d'utilisation. Si c'est le cas, il m'est impossible d'ouvrir le fichier sans tuer le processus qui l'occupe. Est-il possible de l'ouvrir sans tuer le processus ?
- Le fichier peut contenir du code spécial (comme &€Ahµt¶‘ÁÎäM…<E¶Û&|YØ`#à©ÉQ9.û²) qui n'est pas pris en charge par un TStringList. Comment faire pour qu'il soit pris en compte ?

Merci d'avance,
bibi26

[Lung]

Bonjour,

Je cherche à ouvrir un fichier afin de rechercher une chaîne dedans. Cependant, j'ai deux problèmes :

- Le fichier peut être déjà en cours d'utilisation. Si c'est le cas, il m'est impossible d'ouvrir le fichier sans tuer le processus qui l'occupe. Est-il possible de l'ouvrir sans tuer le processus ?

Si le fichier n'est pas ouvert en mode exclusif, peut-être.
J'ai trouvé ça pour le vérifier (pas testé) :

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
function FichierDejaUtilise(AFile:string):Boolean; 
var 
  h: Thandle; 
begin 
  Result:=False; 
  h:=CreateFile(PChar(AFile), 
                GENERIC_WRITE, 
                FILE_SHARE_WRITE, 
                nil, 
                OPEN_EXISTING, 
                FILE_ATTRIBUTE_NORMAL, 
                0); 
  if h = INVALID_HANDLE_VALUE then 
    begin 
      Result:=True; 
    end; 
 
  CloseHandle(h); 
end;

C'est peut-être une piste ...

[CapJack]

Je dirais comme Lung que tout dépend de l'autre processus.

Si l'autre processus ouvre le fichier en mode exclusif, et que tu n'as pas accès au code source de cet autre processus, il n'y a pas de solution, malheureusement.

Pour l'autre problème, je dirais que le TStringList est tout bonnement inadapté. Il faut utiliser une autre approche, mais faute de plus d'information, impossible de t'aider.

[Clorish]

Bha utilise un simple TFileStream ...
A la creation il y a 2 parametres a saisir en plus du nom de fichier : le mode d'ouverture (creation, lecture, ecriture, ...) et le mode de partage (exclusif, etc ...)

Si effectuvement l'autre processus ne l'a pas ouvert en mode exclusif tu peux tout a fait l'ouvrir une 2e fois via un TFileStream.