Discussion :

[solo3326]

Bonjour tout le monde...

Avant tout, mes données, je travaille sous WinXP, avec un Delphi2005...

Voila mon problème...
Une application tierce écrit dans un fichier texte des données... Mon application doit pouvoir lire à la volée les données de ce fichier texte pour pouvoir assurer une interface pour les opérateurs...
Seulement voila, à priori, l'application tierce bloque le fichier et je ne peux pas y accéder. Le système me renvoie l'erreur "Fichier utilisé par un autre processus", ce qui est logique.
Je me demandais si il n'y avait pas un moyen de passer outre ce bloquage en forçant l'ouverture du fichier en "lecture seule" par exemple...

Voila mon code :

Code :

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

1
2
3
4
5
6
if Self.OpenDialog1.Execute() then
  begin
    AssignFile(ficFile,Self.OpenDialog1.FileName);
    strFile:=Self.OpenDialog1.FileName;
    Self.prLectureEnTete();
  end;

avec dans la procedure "prLectureEnTete" le code suivant

Code :

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

1
2
3
  stlListe:=TStringList.Create();
  stlDecompose:=TStringList.Create();
  stlListe.LoadFromFile(strFile);

C'est la dernière ligne qui renvoie l'erreur... Normale, puisque c'est elle qui lit réellement le fichier texte...

Je ne vois pas comment faire...

HELP ME !!!

Merci d'avance...

[skywaukers]

tu as essayé de le lire simplement en fichier texte avec la méthode reset(ficFile) ? Si ça marche, tu peux remplir ton stringlist manuellement.

@++
Dany

[Nono40]

La ligne AssignFile(ficFile,Self.OpenDialog1.FileName); ne sert à rien à priori.

Sinon pour ton problème de base utilise un TFileStream dont le la création est effectuée par :

Code :

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

1
2
3
4
5
6
7
8
Var MonStream:TFileStream
...
MonStream := TFileSTream.Create('fichier.toto',fmOpenRead+fmShareDenyNone);
Try
  ...
Finally
  MonStream.Free;
End;

Si tu as une erreur le fichier source est peut-êute ouvert en mode exclusif, dans ce cas tu ne pourras pas le lire tant qu'il est ouvert.

[solo3326]

Merci A tous les deux...
J'ai utilisé un TFileStream et cela fonctionne à merveille !!!

Au fait Nono,

La ligne AssignFile(ficFile,Self.OpenDialog1.FileName); ne sert à rien à priori.

Tu avais parfaitement raison, c'était un reste d'un ancien test que j'avais fais...

En tout Cas encore MERCI !!!