Liado con TStream, TmemoryStream y TFileStream

[madiazg]

Hola,
llevo un buen rato liado intentado cargar dos imágenes jpg y guardarlas en un solo fichero. Puedo cargarlas usando TMemoryStream ó TFileStream:

 
  L := TMemoryStream.Create;
  L.LoadFromFile('DSC_0017.jpg');
  R := TMemoryStream.Create;
  R.LoadFromFile('DSC_0018.jpg');

Lo que quiero es añadir al final de L el stream R y eso es lo que me trae de cabeza.

Finalmente, volvería a guardar el fichero:

  L.SaveTofile('DSC.mpo');

La intención final es que, a partir de un par de ficheros JPG crear un fichero de formato MPO (http://www.cipa.jp/english/hyoujunka...f/DC-007_E.pdf), por lo que tengo que añadir alguna que otra cabecera al fichero resultante.

Saludos...
Miguel Angel

[Ñuño Martínez]

No he leído el documento por lo que no sé qué cabeceras añadir, pero la forma de concatenar un TStream en otro es usando el método "CopyFrom".

Código Delphi [-]
  L := TMemoryStream.Create;
  L.LoadFromFile('DSC_0017.jpg');
  R := TMemoryStream.Create;
  R.LoadFromFile('DSC_0018.jpg');
  R.Position := 0;  { Ir al inicio del archivo }
  L.CopyFrom (R, R.Size);

Ahora en L tienes los dos archivos, uno detrás de otro. Eso sí, son dos archivos JPEG.