Problema con TFileStream

[pelaorb68]

Hola a todos nuevamente, estoy intentando utilizar TFileStream, pero no logro enterder su funcionamiento, por lo tanto no sé si es lo que necesito o estoy haciendo algo mal con él.
Resulta que quiero grabar unas cadenas de caracteres en archivo, pero que al editar el archivo sean caracteres ilegibles. Para ello estoy probando TFileStream. Según el código siguiente, FilesStream hace lo que necesito:

Código Delphi [-]
var
  fOut   : TFileStream;
  sLine: string;
begin
    sLine := 'Esta en una linea de Prueba con FileStream';
    fOut := TFileStream.Create(cFileName,fmCreate);
    fOut.Write(sLine,Length(sLine));
    fOut.Free;
end;

El punto es cómo hago ahora para leer el archivo recién creado y recuperar la información como la cadena string original?????

Desde ya muchas gracias por la ayuda que me puedan brindar.......

[[maeyanes]]

Me imagino que sería algo parecido:

Código Delphi [-]
var
  fIn: TFileStream;
  sLine: array [0..255] of Char;

begin
  fIn := TFileStream.Create(cFileName, fmOpenRead);
  try
    fIn.Read(sLine, 100); // Lee 100 bytes del archivo...
  finally
    fIn.Free
  end
end;

Saludos...

[[seoane]]

Vamos a ver, para grabar un string debes de hacer algo como esto:

Código Delphi [-]
var
  fOut   : TFileStream;
  sLine: string;
begin
    sLine := 'Esta en una linea de Prueba con FileStream';
    fOut := TFileStream.Create(cFileName,fmCreate);
    fOut.Write(PChar(sLine)^,Length(sLine)); // <--
    fOut.Free;
end;

Piensa que tal como lo tenias antes lo que mandabas escribir no era el contenido del string, si no la propia variable string que no es mas que un puntero.

[pelaorb68]

Lo que pasa es que cuando hago el Write con Pointer, me graba la cadena tal cual como es, es decir, si alguien editara el archivo leería la cadena sin ningún problema.

[[seoane]]

Empezado por pelaorb68

Lo que pasa es que cuando hago el Write con Pointer, me graba la cadena tal cual como es, es decir, si alguien editara el archivo leería la cadena sin ningún problema.

Y si lo haces de la otra manera lo que estas grabando es basura que se encuentra en memoria, esa información de poco te va a servir. Lo que tu necesitas es cifrar el texto antes de guardarlo.

[pelaorb68]

Entiendo perfectamente, lo que ahora no logro entender es que sentido tiene el FileStream......cuando hace casi lo mismo que TextFile......

Voy a intentar cifrar el texto antes de grabar........

Muchísimas gracias por sus prontas respuestas......