Cerrar un archivo abierto con GETPICT() FOXPRO
Publicado por Domingo Gonzalez (2 intervenciones) el 20/04/2017 18:14:14
Saludos, tengo una aplicacion en visual foxpro, en dicha aplicacion tengo un formulario donde registro al personal de la empresa. Entre los datos del personal se encuentra una imagen tipo carnet que guardo en un directorio llamado fotos
el problema es el siguiente. Digamos que necesitamos actualizar la foto de PEDRO PEREZ, por que la que tenemos ya es muy vieja, entonces procedo a seleccionar una foto nueva y el sistema va y copia la imagen al directorio FOTOS hasta aqui todo bien, pero si de casualidad deseo de nuevo actualizar la foto sin haber cerrado el sistema el foxpro me manda el Siguiente error. ERROR 3 El archivo ya esta en uso.
Paso 1) ubico al la foto en mi computadora capturo la foto usando la funcion GETPiCT()
Paso 2) creo una variable con la ruta del directorio donde deseo guardar mi foto y con el nombre de la foto como la deseo guardar
Paso 3) Copio la imagen del Paso 1 al directorio del Paso 2
Ejemplo
Paso1: Seleccciono la Imagen desde mis documentos la imagen se llama pedro perez.jpg
Paso2: creo una variable con el nombre del DIrectorio y el nombre de Imagen como deseo que se guarde
Variable ="C:\sistema\Fotos\"+Alltrim(Thisform.TxtIdTrabajador.Value)+".jpg"
Paso3: Copio la Imagen a mi directorio Copy File ("&arichivo1") to &archivo2
este es el codigo
xfoto = GETPICT()
Thisform.TxtFoto.Value = xfoto
Thisform.image1.Picture = xfoto
archivo1 = Thisform.TxtFoto.Value
archivo2 = "C:\Sistema\FOTOS\"+ALLTRIM(Thisform.TxtIdTrabajador.Value)+".jpg"
COPY FILE ("&archivo1") to &archivo2
el problema es el siguiente. Digamos que necesitamos actualizar la foto de PEDRO PEREZ, por que la que tenemos ya es muy vieja, entonces procedo a seleccionar una foto nueva y el sistema va y copia la imagen al directorio FOTOS hasta aqui todo bien, pero si de casualidad deseo de nuevo actualizar la foto sin haber cerrado el sistema el foxpro me manda el Siguiente error. ERROR 3 El archivo ya esta en uso.
Paso 1) ubico al la foto en mi computadora capturo la foto usando la funcion GETPiCT()
Paso 2) creo una variable con la ruta del directorio donde deseo guardar mi foto y con el nombre de la foto como la deseo guardar
Paso 3) Copio la imagen del Paso 1 al directorio del Paso 2
Ejemplo
Paso1: Seleccciono la Imagen desde mis documentos la imagen se llama pedro perez.jpg
Paso2: creo una variable con el nombre del DIrectorio y el nombre de Imagen como deseo que se guarde
Variable ="C:\sistema\Fotos\"+Alltrim(Thisform.TxtIdTrabajador.Value)+".jpg"
Paso3: Copio la Imagen a mi directorio Copy File ("&arichivo1") to &archivo2
este es el codigo
xfoto = GETPICT()
Thisform.TxtFoto.Value = xfoto
Thisform.image1.Picture = xfoto
archivo1 = Thisform.TxtFoto.Value
archivo2 = "C:\Sistema\FOTOS\"+ALLTRIM(Thisform.TxtIdTrabajador.Value)+".jpg"
COPY FILE ("&archivo1") to &archivo2
Valora esta pregunta
0