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