Discussion :

[dehorter olivier]

Bonjour a tous

Je genere un fichier texte tout ce qui a de plus stadard en utilisant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
.
AssignFile(Texte, ExtractFilePath(Application.ExeName) + Fichier + '.txt');
Rewrite(Texte);
.
.
.
Repeat 
 
   WriteLn(Texte, Chaine);
 
UNTIL Stop;
.
.
Close(Fichier);

Tout marche tres bien... jusqu'au moment ou

le fichier fait 16367 ko et ca plante, mais je n'ai aucun message d'erreur, absolument rien

il me semble qu'il y avait une limitation de taille, vrai ?

et si oui comment la contouner ?


merci d'avance

merci

[ShaiLeTroll]

Je viens de tester un fichier de 724Mo avec le code suivant (20000000 dans EdNbLineBigTextFile en 52secondes), il n'y a pas de limite, du moins loin, très loin, vers 40Go je crois depuis 2K ...

Ecris-tu des caractères spéciaux, avec les fichiers textes, de mémoire le caractère 14 n'était pas du tout apprécié !

J'utilisais BlockWrite à la place ...
Tu dois avoir un autre problème

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
26
27
28
29
30
31
32
33
34
35
procedure TFrmTestFichier.BtnCreateBigTextFileClick(Sender: TObject);
const
  BUF_LINE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'#13#10;
var
   FLNC: TextFile;
   QuickBuf: string;
   TimeIteration, I: Integer;
   CountLn, StartTick, EndTick, TickPerSec: Int64;
begin
   QueryPerformanceCounter(StartTick);
   try
      CountLn := StrToInt64(EdNbLineBigTextFile.Text) div 100;
      SetLength(QuickBuf, 100 * Length(BUF_LINE) - 2);
      for I := 0 to 98 do
        CopyMemory(@QuickBuf[I*Length(BUF_LINE)+1], @BUF_LINE[1], Length(BUF_LINE));
      CopyMemory(@QuickBuf[Length(QuickBuf)-Length(BUF_LINE)+3], @BUF_LINE[1], Length(BUF_LINE) - 2);
 
      AssignFile(FLNC, EdPathSearch.Text);
      Rewrite(FLNC);
      try
         while CountLn > 0 do
         begin
            Dec(CountLn);
            Writeln(FLNC, QuickBuf);
         end;
      finally
         CloseFile(FLNC);
      end;
   finally
      QueryPerformanceCounter(EndTick);
      QueryPerformanceFrequency(TickPerSec);
      TimeIteration := Round((EndTick - StartTick) / TickPerSec * 1000);
   end;
   MemoShort.Lines.Add('CountLine : ' + IntToStr(TimeIteration) + ' ms');
end;

[dehorter olivier]

Bonjour


Non rien de tout ca,

blockwrite ! jamais essaye..

je vais regarder,

d'autres idees (pourquoi aucun message d'erreur a l'execution ?)

a+
olivier

[ShaiLeTroll]

Tu as surement des IOError au lieu d'avoir des Exceptions, c'est une option du compilateur

[Lung]

Code :

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

1
2
 
Close(Fichier);

Question bête : C'est pas CloseFile(Fichier); plutôt ?

[dehorter olivier]

erreur compilateur
mince j'avais oublie



closefile
oups ! aussi

oui bien sur


mais le pb se produit avant

[dehorter olivier]

Bonjour

(un peu de retard - autres obligations )

J'ai utilise les blockWrite avec ce code

Code :

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

1
2
3
4
 
        Taille := Length(Enregistr.Chaine);
        BlockWrite(Texte, Enregistr.Chaine[1], SizeOf(Taille));
        BlockWrite(Texte, Pointer(Enregistr.Chaine)^, Length(Enregistr.Chaine));

mais je recois parfois le message d'erreur suivant :

erreur E/S 1784

comment resoudre ce pb ?

merci d'avance

olivier

[Charly910]

Bonjour,

c'est une erreur liée à un appel aux API Windows :

I/O Error 1784:
// IO Error 1784L
// ERROR_INVALID_USER_BUFFER
// MessageText:
// The supplied user buffer is not valid for the requested operation.

mais je ne sais pas comment l'éviter

Cherche sur Google à ERROR_INVALID_USER_BUFFER - il y a pas mal de réponses, mais je ne sais pas ce qu'elles veulent dire exactement ...

A+

Charly

[10_GOTO_10]

Bonjour,

c'est une erreur liée à un appel aux API Windows :

mais je ne sais pas comment l'éviter

Cherche sur Google à ERROR_INVALID_USER_BUFFER - il y a pas mal de réponses, mais je ne sais pas ce qu'elles veulent dire exactement ...

ERROR_INVALID_USER_BUFFER, ça veut dire que la chaîne que tu passes en argument (ici la variable "Chaine") n'est pas un pointeur valide (ou est corrompu). Aucun rapport avec les fichiers, tu essayerait de copier ta chaîne dans une autre, tu aurait une erreur du même type (ou un plantage).

[philnext]

ça ne répond pas à ta question mais essaye de mettre ton texte dans un tstringList et d'utiliser la fonction saveToFile.

[dehorter olivier]

Bonjour et merci

Il n'y a pas de smiley qui se gratte la tete ?

Je dois avouer etre perdu !

ERROR_INVALID_USER_BUFFER, ça veut dire que la chaîne que tu passes en argument (ici la variable "Chaine") n'est pas un pointeur valide (ou est corrompu). Aucun rapport avec les fichiers, tu essayerait de copier ta chaîne dans une autre, tu aurait une erreur du même type (ou un plantage).

ma variable "chaine" est local, donc je ne vois pas trop avec quoi elle pourrait rentrer en conflit.
Le code de blockwrite, je l'ai recupere sur le forum (merci le forum)

philnext :
mon fichier final fait pls centaines de milliers de lignes au final, et donc pas sur que ce soit tres efficace (en temps) ???


a+

[Dr.Who]

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
var
  SZC, SZ : integer;
const
  CRLF = #13#10;
begin
  with TFileStream.Create('MonFichier.txt', fmCreate) do
  try
    SZC := SizeOf(Char);
    repeat 
      SZ := (Length(Chaine)+2) * SZC;
      Write(PChar(Chaine+CRLF)^, SZ);
    until Stop;
  finally 
    Free;
  end;
end;