He estado intentando cargar las imágenes en un TMemoryStream con el siguiente código:
Código Delphi
[-]for I := 0 to ListBox1.Count - 1 do
begin
DicomStream := TMemoryStream.Create;
DicomStream.Clear;
DicomStream.LoadFromFile(ListBox1.Items.Strings[i]);
DicomStream.Position:= 0;
try
CnsDMTable1.LoadFromStream(DicomStream, False);
Application.ProcessMessages;
DicomMultiViewer1.DicomDatasets:= CnsDMTable1;
DicomMultiViewer2.DicomDatasets:= CnsDMTable1;
DicomMultiViewer5.DicomDatasets:= CnsDMTable1;
DcmMultiImage1.DicomDatasets:= CnsDMTable1;
finally
DicomStream.Free;
Donde el ListBox contiene los strings de las rutas de las imágenes y a partir del MemoryStream cargar las imágenes en la CnsDMTable que se conecta al visor para mostrar las imágenes de formato .dcm
Sin embargo el stream sólo carga los strings de la ubicación de las imágenes como tales y no como archivos de imágenes, por lo que la carga finalmente es igual de lenta.
¿Cómo puedo cargar en un TMemoryStream o TFileStream las imágenes y no sus rutas de ubicación en el HD?
Agradezco sus valiosos aportes.
Saludos