Discussion :

[rezuss]

Bonsoir,

J'ai un projet développé sous Delphi 2005. Je dois absolument le passer sous Delphi 7 mais j'ai un problème avec la classe "TFileStream". Apparemment sous Delphi 2005, cette classe dispose d'une propriété "FileName" qui n'existe pas sous Delphi 7.

J'ai remarqué la présence de la propriété "Handle", qui dois pouvoir me permettre d'écrire / lire dans le fichier. Pensez vous qu'il soit possible de récupérer via la propriété "Handle", le nom du fichier source utilisé par la classe "FileStream"?

Merci,
Bonne soirée.

[Clorish]

Je ne comprends pas ta question ....

Sous D7, Le nom du fichier est passé en parametre du constructor d'un TFileStream.

La syntaxe est la suivante :

Code :

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

1
2
3
4
5
6
 
Var FS : TFileStream;
 
FS := TFileStream.Create('MonFichier.dat', fmCreate); 
FS.Write(...);
[...]

[evarisnea]

Je ne comprends pas ta question ....

je crois comprendre le problème.
dans D7, la classe TFileStream n'a pas de propriété Filename qui sauvegarde le nom du fichier ouvert tandis que c'est le cas dans D2005. le problème est que tu as commencé un projet sous D2005 utilisant cette classe et certainement cette propriété, et que tu dois finir le projet pour des raisons obscures sous D7.
ca fait bien 20mn que je parcoure les sources de l'unité classes où est déclarée TFileStream (je suis sous D7). la classe utilise la fonction API CreateFile pour créer/ouvrir le fichier, et stocke son handle.
dans l'API win$, j'ai beau chercher je n'ai pas encore trouvé une fonction me permettant de retrouver le nom d'un fichier à partir de son handle.

bon une piste de solution:
regarde les sources de TFileStream sous D2005 et vois si tu ne peux pas créer une version héritée de TFileStream sous D7 qui permettrait d'avoir les mêmes propriétés et méthodes que sous D2005.

[Clorish]

bon une piste de solution:
regarde les sources de TFileStream sous D2005 et vois si tu ne peux pas créer une version héritée de TFileStream sous D7 qui permettrait d'avoir les mêmes propriétés et méthodes que sous D2005.

C'est mon jour de bonté
En fait c'est tous les jours

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TFileStreamEx = Class(TFileStream)
Private
  FFilename : String;
Public
  Constructor Create(Const Filename : String; Mode : Word); Override;
  Property Filename : String Read FFilename;
End;
 
Construrctor TFileStreamEx.Create(Const Filename : String; Mode : Word);
Begin
Inherited Create(Filename, Mode);
Self.FFilename := Filename;
End;

C'est le B-A-BA de la personnalisation de composants et le premier pas vers la creation de composants. Une fois que tu auras compris le mecanisme, tu t'ouvriras de sacrees portes !

[evarisnea]

+1 clorish
j'aurais du deviner cette implémentation !

C'est le B-A-BA de la personnalisation de composants et le premier pas vers la creation de composants. Une fois que tu auras compris le mecanisme, tu t'ouvriras de sacrees portes !

je suis bien d'accord.

hs:

C'est mon jour de bonté
En fait c'est tous les jours

Si-Non-Cham-Pi-Gnon !!!