Asignar path para guardar imágenes

[radenf]

Hola amigos:

Necesito asignar un path para insertar archivos de imágenes que se almacenan en una BD de Access, con la siguiente estructura:

Application.ExeName\Dicom Data\Archivos Dicom\fecha de hoy\Estudios\Series\Imagenes

Las carpetas Dicom Data y Archivos Dicom van incluidos en el ejecutable.
Estoy complicado con la asignación de las carpetas Estudios, Series e Imagenes, cuyo valor debiera obtenerlo de un Edit.
Lo que llevo hasta aquí para obtener el path en el siguiente código:

Código Delphi [-]
var
Destino: String;
begin
Destino:= ExtractFilePath(Application.Exename)+ 'Dicom Data\Archivos Dicom\'+ DatetoStr(DateEdit1.Date)+ (lo que me falta);
CopyDir(OpenDialog1.Directory, Destino);
end

Puede alguien iluminarme para completar el código asignando valores a Edit, por ejemplo.

Edit1:= Estudios;
Edit2:= Series;
Edit3:= Imagenes

Para insertarlos en la BD uso el siguiente código:

Código Delphi [-]
EditBD.Text:= Destino;
Data1.TablaImagenes.FieldByName('ARCHIVODICOM').AsString := EditDB.Text;

Saludos y muchas gracias

[Casimiro Notevi]

ummm... no entiendo el problema...

[radenf]

Empezado por Casimiro Notevi

ummm... no entiendo el problema...

El problema es que necesito guardar archivos de imágenes dicom (.dcm) en una carpeta específica asignada por código, que es el path que deseo y pasar esa información a un campo en una tabla de Access, para que al llamar desde mi programa esas imágenes sean cargadas desde la carpeta asignada.
No se como construir la parte faltante del path, es decir las carpetas Estudios, Series e Imagenes, cuya información debe ser obtenida a partir de un string ingresado en un Edit.
Las imágenes .dcm poseen valores específicos para los Estudios del paciente, las series de cada estudio y las imágenes que contiene cada serie, las que posteriormente son cargadas en un stream y visualizadas en un visor especial. Estos archivos pueden llegar a pesar mas de 1Gb y por eso son cargados como imágenes individuales en forma secuencial para no ralentizar el programa.

Espero que ahora se pueda entender mejor
Saludos y gracias

[ecfisa]

Hola randenf.

Si no entendí mal,

Código Delphi [-]
function MakePath(const Cad: string; const aDate: TDate; const aName: TFileName): string;
begin
  Result := Copy(DateToStr(aDate),7,4) + '-' +
            Copy(DateToStr(aDate),4,2) + '-' +
            Copy(DateToStr(aDate),1,2); // (Invierto fecha para mantener órden en nombres de carpeta)
  Result := ExtractFilePath(Application.ExeName)+'Dicom Data\Archivos Dicom\'+
            Result + '\' + Cad + '\' + aName;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= MakePath(EditEstSerImg.Text, Date, 'XXX.DCM');
end;

Si por ejemplo el contenido de EditEstSerImg fuese "Imagenes" el resultado es:

C:\programa\Dicom Data\Archivos Dicom\2013-01-30\Imagenes\XXX.DCM

si fuese "Series":

C:\programa\Dicom Data\Archivos Dicom\2013-01-30\Series\XXX.DCM

, etc

Saludos.

[radenf]

Muchas gracias por responder ecfisa.
Funciona perfecto con una pequeña modificación, porque la ruta debe incluir tanto los estudios como las series y las imágenes.
Utilizé la función que me enviaste y el siguiente código para copiar los archivos al disco duro.

Código Delphi [-]
Destino:= MakePath(Edit2, Date,(Edit4.Text));
CopyDir(OpenDialog1.Directory, Destino);
Edit3.Text:= Destino;

¿Es posible evitar el mensaje que genera Windows señalando que la carpeta no existe y preguntando si deseo crearla, cada vez que utilizo dicho código?

Saludos y muchas gracias por tu ayuda.

[TOPX]

Empezado por radenf

¿Es posible evitar el mensaje que genera Windows señalando que la carpeta no existe y preguntando si deseo crearla, cada vez que utilizo dicho código?

Desactivando la opción ofCreatePrompt, por ejemplo:

Código Delphi [-]
OpenDialog1.Options := OpenDialog1.Options - [ofCreatePrompt];

Lectura complementaria:

• Los cuadros OpenDialog y SaveDialog

[radenf]

Muchas gracias por tu respuesta TOPX , pero no lo puedo hacer porque mi OpenDialog1 es un SelectDirectoryDialog, de los bsSkinForms, para abrir directorios completos y no posee esa propiedad.
Salu2

[ecfisa]

¿Es posible evitar el mensaje que genera Windows señalando que la carpeta no existe y preguntando si deseo crearla, cada vez que utilizo dicho código?

Hola radenf.

Supongo que así tendría que funcionarte:

Código Delphi [-]
...
uses ShellApi;

procedure SHFileCopy(hWndOwner: HWND; const SourceFile, TargetFile: string);
var
  SHFileOpStruct: TSHFileOpStruct;
  Aborted : Bool;
begin
  Aborted := False;
  with SHFileOpStruct do
  begin
    Wnd    := hWndOwner;
    wFunc  := FO_COPY;
    pFrom  := PChar(SourceFile);
    pTo    := PChar(TargetFile);
    fFlags := FOF_NOCONFIRMMKDIR + FOF_SILENT;
    fAnyOperationsAborted := Aborted;
  end;
  try
    SHFileOperation(SHFileOpStruct);
  except
    raise Exception.Create('Error copiando la carpeta');
  end;
end;

Llamada:

Código Delphi [-]
var
  Origen, Destino: string;
begin
  ...
  Destino:= MakePath(Edit2, Date,(Edit4.Text));
  Origen := ExcludeTrailingPathDelimiter(Directory(OpenDialog1.Directory));
  SHFileCopy(Handle, Origen, Destino);
  ...
end;

No conozco el componente SelectDirectoryDialog y no puedo probar si devuelve un valor finalizado con delimitador. Tal vez sea innecesario el uso de la funcion ExcludeTrailingPathDelimiter.

Saludos.

Edito: Hay un error en esta línea:

Código Delphi [-]
Origen := ExcludeTrailingPathDelimiter(Directory(OpenDialog1.Directory));

Era:

Código Delphi [-]
Origen := ExcludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName));

Disculpas

[radenf]

Muchas gracias ecfisa , pero el código no funciona con este componente.
No acepta Directory como string en (Directory(OpenDialog1.Directory)
Seguiré probando y les cuento.
Saludos

[radenf]

Muchas gracias de nuevo ecfisa, pero con el nuevo código por alguna extraña razón me copia todas las subcarpetas del directorio, no importando cúal haya yo seleccionado.
Saludos

[ecfisa]

Hola radenf.

pero con el nuevo código por alguna extraña razón me copia todas las subcarpetas del directorio, no importando cúal haya yo seleccionado.

En realidad no es extraño, copiar las subcarpetas es el comportamiento normal de la función SHFileOperation con el flag que le asigne. Fuí yo quién interpreté mal lo que deseabas.

Como te mencioné, no tengo forma de probar con el componente SelectDirectoryDialog, pero usando un TDirectoryListBox para seleccionar el orígen y de este modo funciona correctamente:

Código Delphi [-]
uses ShellApi;

function MakePath(const Cad: string; const aDate: TDate): string;
begin
  Result := Copy(DateToStr(aDate),7,4) + '-' +
            Copy(DateToStr(aDate),4,2) + '-' +
            Copy(DateToStr(aDate),1,2); // (Invierto fecha para mantener órden en nombres de carpeta)
  Result := ExtractFilePath(Application.ExeName)+'Dicom Data\Archivos Dicom\'+
            Result + '\' + Cad + '\';
end;

procedure SHFileCopy(hWndOwner: HWND; const SourceFile, TargetFile: string);
var
  SHFileOpStruct: TSHFileOpStruct;
  Aborted : Bool;
begin
  Aborted := False;
  with SHFileOpStruct do
  begin
    Wnd    := hWndOwner;
    wFunc  := FO_COPY;
    pFrom  := PChar(SourceFile);
    pTo    := PChar(TargetFile);
    fFlags := FOF_NOCONFIRMMKDIR + FOF_FILESONLY +  FOF_SILENT;
    fAnyOperationsAborted := Aborted;
  end;
  try
    SHFileOperation(SHFileOpStruct);
  except
    raise Exception.Create('Error copiando la carpeta');
  end;
end;

procedure TForm1.btnCopiarClick(Sender: TObject);
var
  Origen, Destino: string;
begin
  Origen := DirectoryListBox1.Directory;
  Destino:= MakePath(Edit1.Text, Date)+
            ExtractFileName(ExcludeTrailingPathDelimiter(Origen));
  CreateDirectory(PChar(Destino),0);
  if GetLastError <> ERROR_ALREADY_EXISTS then
    SHFileCopy(Handle, Origen + '\*.*', Destino)
  else
    raise Exception.Create('Directorio existente');
end;

Quité el parámetro aName de la función MakePath ya que creo entender que todos los archivos deben ser copiados. La carpeta se crea previamente a la copia mediante la función CreateDirectory, y agregué el flag FOF_FILESONLY que copia sólo archivos usando el comodín ('*.*') como nombre de archivo.

Ahora queda probarlo con el SelectDirectoryDialog...

Saludos.

[radenf]

Muchas gracias Daniel por tu paciencia, dedicación y desinterés.
El código funciona perfecto. Hace lo que debe, sin embargo me encontré con una situación que no había considerado y que es cuando un Estudio contiene varias Series, que es lo habitual, en estos casos se crea la carpeta de los estudios y de la primera serie, sin cargar las imágenes ni el resto de las series.

La ruta debiera ser:

Aplicacion\Dicom Data\Archivos Dicom\Estudio\Serie1\Imagenes
\Serie2\Imagenes
\Serie3\Imagenes
\ etc.

Las imágenes pueden ser 1 o miles y se guardan en formto .dcm

¿Es posible arreglarlo?
Saludos y nuevamente gracias

[ecfisa]

Hola Iván.

Te consulto sobre algunos puntos que no me quedaron claros:

• ¿ La fecha ya no estaría en la composición de la ruta ?
• ¿ Si la fecha sigue estando en qué nivel de la ruta se ubica ?
• ¿ La carpeta Estudio es un nombre constante o en su lugar iría el número de estudio/inclusión ?

Estaría buenísimo si pudieses poner un prototipo de como deseas que se arme la ruta completa.

Saludos.

[radenf]

Estimado Daniel:

Agradezco enormemente tu ayuda.
Para que se entienda mejor lo que necesito te envío esta imagen



Respecto a tus preguntas es mejor que la fecha se encuentre en la ruta, porque ordena mejor los registros y debiera encontrase al principio.
Los estudios, las series de cada estudio y las imágenes de cada serie son cadenas de números y puntos que se asignan al generar cada imagen, valores que incluyen el equipo radiológico en que se obtuvieron las imágenes y algunas características técnicas largas de enumerar, que se conocen como atributos dicom.
Los valores de los estudios y de las series se obtienen de un string a partir de los atributos (das1) según el siguiente código:

Código Delphi [-]
with das1 do
Edit2.Text:= das1.GetString($0020, $000D);\\ Estudios
Edit4.Text:= das1.GetString($0020, $000E);\\ Series

Si te interesa el tema los componentes que yo utilizo para desarrollar mi programa tienen una amplia ayuda y su demo se puede descargar desde aquí. Desafortunadamente mis conocimientos de programación en Delphi caben en una servilleta y me cuesta mucho avanzar.
Aún lamento que no pudieras compartir este proyecto conmigo. La invitación sigue en pie.

Saludos y muchas gracias

[ecfisa]

Hola Iván.

Si te entendí bién, la composición de la ruta sería: Aplicación\Dicom Data\Archivos Dicom\Fecha\Estudio\Serie, entonces creo que:

Código Delphi [-]
function MakePath(Estudio: string; const Serie: string; const aDate: TDate): string;
begin
  if Estudio <> '' then
    Estudio := Estudio + '\';
  Result := Copy(DateToStr(aDate),7,4) + '-' +
            Copy(DateToStr(aDate),4,2) + '-' +
            Copy(DateToStr(aDate),1,2) + '\';
  Result := ExtractFilePath(Application.ExeName)+
            'Dicom Data\Archivos Dicom\' + Result + Estudio + Serie;
end;

Llamada:

Código Delphi [-]
  ShowMessage(MakePath(EditEstudio.Text, EditSerie.Text, Date));

Se envían como argumentos los números de estudio, de serie y la fecha.

Si deseas imponer alguna restricción (como que algún o todos los parámetros deban tener valor), decímelo y lo implementamos. Pero creo que en esencia sería de ese modo.

Saludos.

Edito: Iván, en marzo estimo terminar los tres proyectos en que estoy involucrado. A partir de entonces me comprometo a ayudarte con el tuyo en todo lo que esté a mi alcance.

[radenf]

Muchas gracias Daniel.
Probé el código y las capetas Series, cuando son varias, crea sólo una cuyo nombre es la unión de los nombres de las distintas series y en la carpeta Imágenes no copia nada.
Estudiaré el código que me enviaste y veré si logro avanzar.
Saludos

PD: Excelente noticia contar en Marzo con tu apoyo. Pero de ser así me gustaría que este proyecto fuera de ambos.

[radenf]

Estimado Daniel :

Al fin entendí por qué no funcionaba el código que me enviaste y es porque yo llamo a los directorios y no a los archivos.
Utilizé la función para ordenar la fecha, que tú creaste:

Código Delphi [-]
function OrdenarFecha(const aDate: TDate): string;
begin
Result := Copy(DateToStr(aDate),7,4) + '-' + Copy(DateToStr(aDate),4,2) + '-' + Copy(DateToStr(aDate),1,2);
end;

y el siguiente código para armar el path que necesitaba

Código Delphi [-]
Destino:= ExtractFilePath(Application.ExeName)+'Dicom Data\Archivos Dicom\'+ OrdenarFecha(DateEdit2.Date) + '\' + Edit2.Text + '\';
CopyDir(OpenDialog1.Directory, Destino);
Edit3.Text:= Destino;

y de esta manera copia la totalidad de las imágenes en las carpetas de las series que corresponden a un determinado estudio, sin errores.

Muchas gracias Daniel por tu enorme ayuda y por iluminarme en la solución.
Personas como tú hacen que este foro sea lo grande que es.
Saludos