[Fichiers] Accès en cours au fichier par un autre programme ?

**Pyra** · 18/08/2004, 15h08

Voilà mon problème, je souhaite réaliser un programme pour jeu, qui se charge de sauvegarder automatiquement les fichiers replay créer par le jeu.
Lors d'une partie, le jeu crée un fichier nommé 000000.rep dans un dossier que je connais. Tout le long de la partie, il écrit dedans les informations sur le replay. Une fois la partie finie le fichier reste là intact jusqu'à la prochaine partie, où le jeu réecrira dedans sans l'effacer (mais il éffacera d'abord son contenu).
Si le fichier 000000.rep n'est pas présent lors du démarrage d'une partie, le jeu le crée automatiquement.

Ce que je souhaitais faire :
J'efface le fichier 000000.rep
Quand il est crée il est alors ouvert en écriture par le jeu, j'attend qu'il soit fermé (fin de la partie), et à ce moment là je le copie vers un emplacement de mon choix, puis je l'efface.

Mon problème :
Comment reperer la création du fichier ?
Un test d'existence du fichier toutes les x secondes, ou il y a une procédure permettant de verifier les créations de fichiers par windows ?

Comment reperer la fin de l'ecriture dans le fichier ?

Merci d'avance.
Par ailleurs si vous avez des liens vers de bon tutorials bien complets sur le gestion des fichiers en delphi (des choses plus complexes que ce uqi est couvert par les tutos de developpez.net) je suis preneur.

**fusef** · 18/08/2004, 17h27

ton fichier il est creer comment ??
a+
fusef

**Pyra** · 18/08/2004, 18h37

Bah, le programme le crée tout seul lors du début de la partie, et c'est un fichier binaire.

**Eric Sigoillot** · 18/08/2004, 20h57

Ben si tu sais déjà quand tu crées le fichier...

Sinon tu peux surveiller un répertoire pour les modifications qu'il pourrait subir. Regarde du côté de FindFirstChangeNotification.

A+

**Pyra** · 18/08/2004, 21h00

Ca n'est pas moi qui créer le fichier, c'est un jeu (que je n'ai pas réalisé, donc).
Je peux savoir quand il est crée, puisque le fichier 000000.rep sera créer, mais ce que je veux savoir, c'est quand le jeu en question a FINIT d'écrire dedans, et donc qu'il libère le fichier.

**edam** · 19/08/2004, 00h22

salut
pour controler son création tu peut faire comme HDD34 ta di avec FindFirstChangeNotification.
puit pour connétre si il est férmer par ex: tu esseye de le renomer comme si tu veu déplasser son contenu ""cest ce que tu veu"" si cest passer cest qu il est férmer si non cest non

**Clorish** · 19/08/2004, 01h10

tu esseye de le renomer

Un poil bourrin mais efficace :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Try
AssigneFile(f, '...');
RenameFile(f, 'Replay.rep');
Except
On Exception do Exit;
End;
 
CopyFile(Source, dest);
End;

(A copier sur un OnTimer et a modifier bien sur ;pp le principe est la

)

**fusef** · 19/08/2004, 10h56

salut,
un ptit bout de code

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
function FileInUse(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; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if FileInUse('C:\Temp\Todel1.doc') then 
    ShowMessage('Fichier en cours d''utilisation'); 
end;