Texto en Memoria compartida

[ElDuc]

Hola a todos.
Hace tiempo que intento guardar en memoria compartida (con el objeto de All o con CreateFileMaping) un texto largo, por ejemplo de 64000 bytes.

Puesto que en la memoria compartida no se pueden almacenar Strings (ya que su longitud puede variar) me imagino que debo hacerlo con un pChar=StrAlloc(64000), pero no sé como hacerlo.

Alguien puede orientarme?

Gracias.

[[escafandra]]

Lo correcto es que mires el espacio de memoria compartida como lo que es, un espacio limitado de memoria. Creo que lo correcto es que guardes esa cadena al estilo C, es decir, un array de 64001 caracteres terminado en un cero. Para recuperar la cadena puedes pasarla a un String con una simple asignación.




Saludos.

[ElDuc]

Gracias Escafandra.

Ya había pensado en el array de chr, pero no sé como utilizarlo.

Si puedes, te agradecirí mucho que me pongas un pequeño ejemplo.


Muchas gracias.

[ElDuc]

Pongo un pequeño ejemplo de lo que necesito y no consigo.

Código Delphi [-]
Var
  Texto:Array[0..64000] Of Char;

procedure TForm2.Button1Click(Sender: TObject);
Var
    S1, S2:String;
begin
Texto:='Hola mundo';
S1:=Texto;
S2:=' Cómo estás?';
// Qué hacer para conseguir que Texto = 'Hola mundo Cómo estás?'
// Es decir ¿cómo añadir texto al final del que ya hay?
end;

Gracias otra vez

[[escafandra]]

Creo que es esto lo que quieres hacer con un buffer de memoria:

Código Delphi [-]
var
  Buffer: PByte;
  Texto:  AnsiString;
  S1, S2, R: AnsiString;
begin
  GetMem(Buffer, 64001);   // Reservamos espacio de memoria 
  // asignamos un texo
  Texto:= 'Hola mundo';
  // Pasamos el texto al buffer copiando el bloque de memoria añadiendo el cero final que ya da PAnsiChar
  CopyMemory(buffer, PAnsiChar(Texto), Length(Texto)+1);
  // Pasamos a S1 el texto simplemente asignando con un casting a puntero PAnsiChar 
  S1:= PAnsiChar(Buffer);
  S2:= ' cómo estás?';
  // Ya solo queda sumar cadenas
  R:= S1 + S2;
  // Y mostrarlas de algún modo...
  ShowMessage(R);
  FreeMem(Buffer);        // Liberamos la memoria del buffer
end;

Saludos.

[ElDuc]

Muchas gracias a todos, he estado malito, por eso no he contestado antes.

[Casimiro Notevi]

Empezado por ElDuc

Muchas gracias a todos, he estado malito, por eso no he contestado antes.

Nos alegra de que ya estés mejor