Asignar path para guardar imágenes

[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.