Ver Mensaje Individual
  #1  
Antiguo 12-08-2012
madiazg madiazg is offline
Miembro
 
Registrado: sep 2005
Ubicación: Canarias
Posts: 120
Reputación: 19
madiazg Va por buen camino
Unir MemoryStream

Hola,
necesito unir dos MemoryStream en un tercero y guardar este último como un fichero. Cargo el primero pero no se añadir al final del primero el segundo memoryStream:

Código:
procedure UnirArchivos( nFile1, nFile2, nFileOut: string );
var
  File1,File2,FileOut: TMemoryStream;
begin
  File1 := TMemoryStream.Create;
  File2 := TMemoryStream.Create;
  FileOut := TMemoryStream.Create;
  File1.LoadFromFile(nFile1);
  File2.LoadFromFile(nFile2);

  FileOut.LoadFromStream(File1);

// Aquí tengo que copiar File2 al final de FileOut

  FileMpo.SaveToFile(nFileMPO);

  FileL.Free;
  FileR.Free;
  FileMPO.Free;
end;
¿Pueden ayudarme?

Gracias y saludos...
Miguel Angel
Responder Con Cita