Asignar path para guardar imágenes

[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