Transmisión de datos JPEG a TImage

Question

Tengo algunos archivos de imagen almacenados en un archivo (algún tipo de archivo). Ese archivo tiene el siguiente aspecto:

Bueno, se divide en dos segmentos - encabezado y los datos del segmento. Encabezado (verde) contiene diversa información, como el nombre del álbum, ubicación, fecha/hora, descripción, número de fotos en el álbum, etc. Segmento de datos (azul & naranja) tiene estructura simple y contiene N x foto JPEG. Puedo extraer ese segmento de "imagedata" en el nuevo objeto TMemoryStream y ahora quiero mostrarlo usando TImage.

Puedo usar SaveAsFile método de TMemoryStream, establecer algún nombre de archivo temporal, cargar ese archivo de TImage y, más adelante, eliminar el archivo temporal. Eso funciona, pero me pregunto si hay alguna forma de enviar ese flujo a TImage sin utilizar temp. archivos.

Por supuesto, puedo escribir código para extraer todos esos archivos en el disco duro pero el problema es que tengo muchos archivos como este y solo quiero escribir aplicaciones para leer esos "álbumes" en lugar de tener más de 20,000 fotos en mi disco duro.

En resumen, todo lo que quiero es hacer siguiente procedimiento funciona (w/temp cabo utilizando. Archivos)

procedure ShowImageFromStream(data: TStream; img: TImage); 
begin 
... 
end; 

Gracias de antemano.

Answer 1

no estoy seguro si eso es lo que busca, pero este código se debe cargar el archivo JPEG de la corriente en el componente TImage dado:

uses 
    JPEG; 

procedure ShowImageFromStream(AImage: TImage; AData: TStream); 
var 
    JPEGImage: TJPEGImage; 
begin 
    AData.Position := 0; 
    JPEGImage := TJPEGImage.Create; 
    try 
    JPEGImage.LoadFromStream(AData); 
    AImage.Picture.Assign(JPEGImage); 
    finally 
    JPEGImage.Free; 
    end; 
end;