Abrir archivos en TMemo o equivalente

[Delar]

Esos codigos son geniales, pero me interesa que si se borra el archivo que he de copiar se quede almacenado en el programa para que aunque ya no esté el archivo pueda seguir copiandolo.

Saludos!

[[seoane]]

Bien, entonces volvamos sobre los Streams. Existen un tipo de Stream, llamado TMemoryStream, que nos permiten almacenar datos en memoria. Así que solo tenemos que crear un Stream de este tipo, cargar el archivo y guardarlo donde queramos.

Vamos con un poco de código:

Código Delphi [-]
// Primero declaramos el Stream como variable global
Stream: TMemoryStream;

// En el evento OnCreate, por ejmplo, lo creamos
Stream:= TMemoryStream.Create;

// En el evento OnClose, por ejmplo, lo desturimos
Stream.Free;

// Para cargar el archivo
Stream.LoadFromFile('Origen.jpg');

// Para guardar el archivo
Stream.SaveToFile('Destino.jpg');

¿Nos vamos acercando a lo que tu quieres?

[Delar]

Sip, es eso lo que ando buscando.
Y podria hacer por ejemplo, Stream[1], Stream[2], ... o e de utilizar variables diferentes?

Saludos y gracias!

[[seoane]]

Empezado por Delar

Y podria hacer por ejemplo, Stream[1], Stream[2], ... o e de utilizar variables diferentes?

Si sabes el numero máximo de Streams que vas a necesitar, puedes usar algo como esto:

Código Delphi [-]
// Declaramos un array de 10 Streams
Stream: array[1..10] of TMemoryStream;

// En el evento OnCreate, por ejmplo, los creamos
var
  i: Integer;
begin
  for i:= Low(Stream) to High(Stream) do
    Stream[i]:= TMemoryStream.Create;
end;

// En el evento OnClose, por ejmplo, los desturimos
var
  i: Integer;
begin
  for i:= Low(Stream) to High(Stream) do
    Stream[i].Free;
end;

// Para cargar el archivo
Stream[5].LoadFromFile('Origen.jpg');

// Para guardar el archivo
Stream[5].SaveToFile('Destino.jpg');

[Delar]

OK ahora si que está listo. Saludos y gracias!!!