Discussion :

[Jeankiki]

Bonjour à tous,

J'ai un problème avec TFileStream sur delphi 7, je fais le simple code ci-dessous.

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  buffer: array[0..255] of char;
  str: string;
  len: integer;
begin
  fs:= TFileStream.Create('D:\Travaux\test.txt', fmOpenReadWrite or fmShareDenyNone);
  try
    str:= 'aaaaaa';
    //fs.Position:= 0;
    //len:= fs.Read(buffer, Length(buffer));
    fs.seek(0, soFromEnd);
    fs.Write(PChar(str)^, Length(str));
  finally
    fs.Free;
  end;
end;

Le contenu du fichier test.txt contient seulement test123 et j'essaye d'ajouter simplement des "a" à la fin, je n'ai aucun problème au bureau, mais quand j'essaye sur mon pc, le contenu du fichier test.txt devient test123慡慡慡, alors qu'il devrait écrire test123aaaaaa.
WIN7 64 sur les deux pcs
Quelqu'un aurait-il une idée?

[Jeankiki]

Parfois, il enregistre test123aa dans le fichier test.txt au lieu de test123aaaaaa

[tourlourou]

que valent SizeOf(Char) et Stream.Size après avoir juste lu 'test123' ?

[Jeankiki]

SizeOf(char) vaut 2 et fs.Size vaut 16

[guillemouze]

SizeOf(char) vaut 2 et fs.Size vaut 16

delphi 7 et tu es en wideChar !!!

essaye de forcer le Ansi :

Code :

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

1
2
3
4
 
str: AnsiString;
...
fs.Write(PAnsiChar(str)^, Length(str));

[Jeankiki]

Malheureusement, ce changement ne fait rien du tout.

[Paul TOTH]

SizeOf(char) vaut 2 et fs.Size vaut 16

très surprenant...

Code :

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

1
2
 
  fs.Write(str[1], Length(str) * SizeOf(Char));

[Jeankiki]

@Paul : J'ai essayé cette ligne de code sur mon pc au bureau mais il me double le nombre de caractère 'a' sur Delphi 7, j'obtiens test123aaaaaaaaaaaa
J'ai aussi refait un test sur Delphi xe, et voici ce que j'obtiens quand j'ouvre avec notepad++

Code :

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

1
2
 
test123anulanulanul

en utilisant la ligne de code

Code :

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

1
2
 
fs.Write(PChar(str)^, Length(str));