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