Discussion :

[skywaukers]

bonjour,

est-ce que quelqu'un saurait m'expliquer pourquoi ce code me donne le bon résultat :

Code :

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

1
2
3
4
strmInput := TMemoryStream.Create;
  strmInput.Write( 'MonTexte', 7);
  strmInput.Position := 0;
  strmInput.SaveToFile( 'c:\Test.txt');

et pas celui-ci :

Code :

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

1
2
3
4
5
strmInput := TMemoryStream.Create;
  s := 'MonTexte';
  strmInput.Write( s, 7);
  strmInput.Position := 0;
  strmInput.SaveToFile( 'c:\Test.txt');

dans ce cas, j'obtiens des caractères bizarres à la place de 'MonTexte' dans le fichier créé.
Et bien sûr c'est le deuxième cas qui m'interesse

je précise que le but final n'est pas de stocker le stream dans un fichier, j'ai juste fait ceci car je n'obtiens pas le résultat final escompté et je pense que cela vient de là.

Merci à tous,
Dany

[skywaukers]

bon, j'ai trouvé.
Si ça peut interesser quelqu'un je propose la réponse :

Code :

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

1
2
3
4
5
strmInput := TMemoryStream.Create;
  s := 'MonTexte';
  strmInput.Write( Pointer( s)^, 7);
  strmInput.Position := 0;
  strmInput.SaveToFile( 'c:\Test.txt');

Evidement, la méthode n'attend pas une chaine de caractères, mais à force de fixer les lignes on voit plus rien

@++
Dany

[bjl]

bonjour,

ou plus simplement

Code :

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

1
2
3
4
5
strmInput := TMemoryStream.Create; 
  s := 'MonTexte'; 
  strmInput.Write( s[1], 7); 
  strmInput.Position := 0; 
  strmInput.SaveToFile( 'c:\Test.txt');

[skywaukers]

bonjour,

exact, merci.

@++
Dany