Discussion :

[neho88]

Bonjour,
j'utilise un fichier ouvert en TFileStream.
Ce fichier fait plus de 2147483647 caractères.
lorsque j'essaye d'atteindre des caractères au dessus de 2147863647,
j'obtiens une erreur de vérification étendue.

quand je consulte l'aide, je trouve:

//-------------------------------------------------------------------------------
Seek, méthode (TStream)
Se déplace vers une position spécifiée de la ressource de flux.

Syntaxe Delphi :

function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;
//-------------------------------------------------------------------------------

est-il possible de forcer la seconde fonction ?

j'utilise Delphi7 (32 bits) mais le programme tourne aussi sur Windows7 (64 bits)


Merci pour votre patience et le temps passé à nous apporter votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var
  Adresse   : int64;
  FSourcL   : TFileStream;                                            // Fichier source
begin
  FSourcL:=TFileStream.Create(Nom_fichier, fmOpenRead);               // ouverture du fichier d'entrée en Stream File
  FSourcL.Seek(Ipl[Adresse, soFromBeginning);                         // positionne le pointeur pour la lecture des données
  // utilisation 
  if assigned (FSourcL) then FSourcL.Free;                            // libération du flux
end;

[guillemouze]

bizarre cette ligne :

Code :

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

FSourcL.Seek(Ipl[Adresse, soFromBeginning);

C'est justement d'elle que va dépendre ton fonctionnement. Il faut que l'endroit ou tu stocke / calcule ta variable Adresse soit en int64, sinon tu va juste stocker un integer dans un int64, ce qui revient pour vulgariser a mettre plein de 0 devant.

[ShaiLeTroll]

Il suffit d'utiliser une valeur de TSeekOrigin : soBeginning, soCurrent, soEnd, le type énuméré va forcer le choix de la forme 64bits

soFromBeginning est une simple constante

Code :

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

1
2
3
soFromBeginning: Integer = 0; 
soFromCurrent: Integer = 1; 
soFromEnd: Integer = 2;

Sinon tu as trop simplifié ton code et on a une erreur de syntaxe avec un tableau non fermé et inconnu Ipl[Adresse...

J'ai aussi fait un Array of Int64 pour lire plusieurs endroits dans un gros fichier, un code qui pourrait te plaire pour indexer un fichier texte devant lu de façon non séquentielle Lire fichier texte large avec ProgressBar - TSLTTextFileReader

Cela a été conçu sous D7 et remanié en XE2 et comme je pouvais avoir de très très gros fichier, l'index "Array of Int64" dépassait les 512Mo de la machine dont je disposais à l'époque, j'ai choisi de créer un fichier d'index qui était 100fois plus rapide que de laisser jouer le Swap.

[neho88]

Bonjour,
merci pour les réponses.
effectivement, il y a une erreur dans le code.
voici le bon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var
  Adresse   : int64;
  FSourcL   : TFileStream;                                                 // Fichier source
begin
  FSourcL:=TFileStream.Create(Nom_fichier, fmOpenRead);     // ouverture du fichier d'entrée en Stream File
  FSourcL.Seek(Adresse, soFromBeginning);                         // positionne le pointeur pour la lecture des données
  // utilisation 
  if assigned (FSourcL) then FSourcL.Free;                          // libération du flux
end;

j'espère que 'soBeginning' va fonctionner.

bonne journée et merci encore

[neho88]

Bonjour,
placer 'soBeginning' à la place de SoFromBeginning est la bonne solution.

merci encore pour votre aide.
bonne journée