Ver Mensaje Individual
  #8  
Antiguo 24-07-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Cita:
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');
Responder Con Cita