Acelerar carga de imágenes desde archivo

[radenf]

Empezado por jmvene

Woww... habria que ver porque son esas violaciones de acceso a memoria (probablemente algún problema de syncronizacion de hilo), pero promete. Podrias poner el codigo?

Si quieres me puedes mandar el exe, pero te advierto de antemano que si veo una buena idea la copiare SIN REMORDIMIENTO..

Un abrazo

Falsa alarma jmvene.
Lo que hize fue fragmentar el contenido de un ListBox donde a partir de un directorio recojo la ruta de todas las imágenes que componen un estudio y le asigné a cada fragmento un thread, puse a correr los threads simultáneamente y sincronizados esperando que cargara el directorio completo, pero la CnsDMTable sólo acepta la carga desde uno de los threads, por lo que sólo había cargado un octavo de las imágenes y por eso generó las violaciones de acceso a memoria.
Otra prueba fallida. Aparentemente la CnsDMTable tiene su propio sistema de organizar la información que recibe y lo hace en un sólo paso, ya que si le aplicas un ProgressBar y le asignas la propiedad StepIt ejecuta un sólo step.
No sé si la idea te sirva y con tu nivel de conocimiento puedas mejorarla, ya que yo utilicé componentes para crear los threads (BMThreads de Mitov Software), porque no sé implementarlos por código.
Quizás otra opción es cargar las diferentes series en distintas CnsDMTables, lo que aceleraría la carga de exámenes con múltiples series, pero igual demoraría en cargar las series con muchas imágenes.
Te envié un mail desde el foro, pero no me permite incluir archivos adjuntos. Debes responderlo para poder enviarte el exe.
Saludos

[radenf]

Después de muchos intentos y pruebas fallidas descubrí que la CnsDMTable carga las imágenes usando threads sobre un MemoryStream, mediante los parámetros AKeepStream y ALoadFrameinThread, es decir el componente, según entiendo viene desarrollado para cargar las imágenes a la máxima velocidad que permita el PC.
Utilizando el siguiente código logré acelerar la carga de las imágenes a escasos segundos en series grandes de más de 1000 imágenes:

Código Delphi [-]
procedure TVisor.ButtonCargarClick(Sender: TObject);
var
I:Integer;
c1: TCursor;
begin
c1 := Screen.Cursor;
Screen.Cursor := crHourGlass;
CnsDMTable1.Create(Self); // crea la tabla (este paso es fundamental)
ListBox1.Items.Clear;
FindFile.Threaded := False;
with FindFile.Criteria.Files do
begin
FileName := '*.dcm';
Location := (DBEditDir.Text); // Directorio donde se almacenan los archivos de imágenes, ruta guardada en la BD
Subfolders := Self.Subfolders.Checked;
end;
begin
FindFile.Execute;// Extrae la ruta de los archivos de imágenes y los muestra en un ListBox
Application.ProcessMessages;
end;
begin
for I := 0 to (ListBox1.Items.Count - 1) do
CnsDMTable1.LoadfromFile(ListBox1.Items.Strings [i]);// carga las imágenes
Application.ProcessMessages;
try
DicomMultiViewer1.DicomDatasets:= CnsDMTable1;// carga los visores
DicomMultiViewer2.DicomDatasets:= CnsDMTable1;
DicomMultiViewer3.DicomDatasets:= CnsDMTable1;
DicomMultiViewer4.DicomDatasets:= CnsDMTable1;
DicomMultiViewer5.DicomDatasets:= CnsDMTable1;
DcmMultiImage1.DicomDatasets:= CnsDMTable1;
finally
if assigned(DicomMultiViewer1.DicomDatasets) and (DicomMultiViewer1.DicomDatasets.Count > 0) then
begin
DicomMultiViewer1.ActiveView.Attributes.ImageData.MagnificationType:= mftCUBIC;// asigna propiedades
DicomMultiViewer2.ActiveView.Attributes.ImageData.MagnificationType:= mftCUBIC;
DicomMultiViewer2.LeftMouseInteract:= miZoom;
DicomMultiViewer1.LeftMouseInteract:= miZoom;
Screen.Cursor := c1;
end;
end;
end;
end;

y para llamarlo:

Código Delphi [-]
procedure TVisor.DBAdvGrid1ClickCell(Sender: TObject; ARow, ACol: Integer);
begin
if (ACol = 2) then
begin
CnsDMTable1.Clear;// esto vacía la tabla y libera la memoria
ButtonCargar.ButtonClick;
end;

y de este modo ya no tengo violaciones de acceso a memoria y el programa corre sin problemas.
FindFile es un componente que permite obtener la ruta de todos los archivos existentes en un directorio, incluidos los subdirectorios y cargarlos como strings en un ListBox. Para 1000 archivos tarda 180 msegs.
Espero que a alguien más le pueda servir.

Saludos y gracias por sus aportes

[radenf]

Cronometré los tiempos y se demora aproximadamente 3.8 msegs. en cargar cada imagen, permitiendo que un estudio de 1000 imágenes se encuentre disponible para visualización y proceso en 3.8 segundos. Un examen de cerebro habitualmente posee 350 a 400 imágenes y lo carga en 1 - 1.3 segundos.
Esto con un procesador Intel Xeon de 3.2 Ghz. utilizando sólo 1 de los núcleos, con un consumo de memoria menor de 300 Mb.
Estos resultados me parecen excelentes y satisfacen plenamente mi necesidad.
salu2

[jmvene]

En hora buena Radenf, esos valores son excelentes. Creo que tienes un pequeño error en el código, ya que la llamada de las CnsDMTable1 deberia ser:

Código Delphi [-]
CnsDMTable1.LoadFromFile(ListBox1.Items[i], True, True);

Un abrazo.

[radenf]

Empezado por jmvene

En hora buena Radenf, esos valores son excelentes. Creo que tienes un pequeño error en el código, ya que la llamada de las CnsDMTable1 deberia ser:

Código Delphi [-]
CnsDMTable1.LoadFromFile(ListBox1.Items[i], True, True);

Un abrazo.

Muchas gracias por tu aporte.
Al parecer esos valores los toma por defecto, porque sin ellos no daba problemas de compilación y al agregarlos no cambió ni la velocidad de carga ni el porcentaje de uso del procesador.
En todo caso me parece mejor incluirlos.
Saludos

[jmvene]

Hola Radenf de nuevo,

acabo de probar el codigo y no hay diferencia entre usarlos o no... En principio el procedimiento tienes esos parámetros como opcionales con valor a False (lo puedes ver cuando te sale el hint del metodo en el IDE). De verdad, estos componentes estan llenos de "sorpresas" y lo de jiawen no tiene nombre.

Voy a hacer una prueba a ponerlos a false a ver si hay difrencia.

Un abrazo.

[Casimiro Noteví]

Empezado por radenf

Estos resultados me parecen excelentes y satisfacen plenamente mi necesidad.

.................