Como puedo grabar una imagen que tengo en un campo "General" a un "Archivo" (Ej: mi_imagen.jpg)
NY
Recurro nuevamente a uds. porque no doy con la solución;
tengo una tabla con varios campos de tipo general, los que contienen distintas imagenes
necesito guardar esas imagenes en archivos (.jpg) en el Disco Duro, las que despues seran visualizadas por los usuario
con algun editor de imagenes.
(Trabajo en VisualFoxPro 7,0, Windos XP y/o Windos 7)
Si me pueden ayudar, Gracias y si no Tambien
Saludos
José Enrique Llopis
** Puedes grabar un campo general de la siguiente forma
x = FILETOSTR(GETFILE())
REPLACE template WITH x
*** Haciendo un append blank previamente, claro
*** Y recuperarlo es muy sencillo
SELECT ;
Template ;
FROM ;
CATemplates ;
WHERE ;
RefTemplate = 1 ;
INTO ;
CURSOR csrCATemplates
Y después con, por ejemplo, un strtofile las puedes grabar a disco y tratarlas.
Ahora bien, si lo que pretendes es guardar imágenes en tablas VFP, en mi opinión, eso no es una buena idea, lo que pasa es que cuando guardas muchas imágenes las tablas pesan muchísimo y todo se vuelve muy, muy lento.
Lo que yo hago, no digo que sea lo mejor, solo lo que yo hago, es guardar el nombre del archivo de imagen en un campo de texto y recuperar la foto en dinámico.
Ten en cuenta de no grabar la ruta, solo el nombre, de esa forma puedes parametrizar el sitio donde vas a almacenar las imágenes y cambiarlo rápidamente, sin tener que hacer un proceso que modifique toda la tabla.
Un saludo,
Pepe Llopis
NY
* PRIMERA PARTE *
* ------------- *
CLOSE DATABASES
SELECT 0
IF !FILE('c:\paso_2\imagenes.dbf')
CREATE CURSOR imagenes( folio n(2), imagen g)
else
USE c:\paso_2\imagenes
ENDIF
x = FILETOSTR(GETFILE())
APPEND BLANK
REPLACE imagenes.folio WITH RECNO()
REPLACE imagenes.imagen WITH x && Aqui da error TIPO DE DATO NO CORRESPONDE (Ignoro para seguir)
&& Si uso esta instruccion
APPEND GENERAL imagenes.imagen data getfile() && No da error, agrega folio = 1 pero no agrega la imagen
browse
*copy to c:\paso_2\imagenes_2.dbf && Para probar la segunda parte
CLOSE DATABASES
* SEGUNDA PARTE * && Aqui abro el cursor (imagenes_2)y agrego a mano la imagen con copy paste
* ------------- * && Lo que no seria necesario si la 1ra. parte funcionara
SELECT imagen FROM c:\paso_2\imagenes_2 WHERE folio = 1 INTO CURSOR cursor_imagen
STRTOFILE(cursor_imagen->imagen,'c:\paso_2\Mi_imagen.jpg') && Aqui da error TIPO DE DATO NO CORRESPONDE
ZeRoberto
APPEND BLANK && Add a blank record
APPEND GENERAL imagen FROM lcArchivo
ManVas
NY
Por otro lado mi requerimiento dice claramente deseo guardar un archivo tipo "xxx.JPG" a partir de una imagen guardada en un campo general. El GETFILE()obtiene el archivo del DD. y no del campo genera.
El martes, 4 de noviembre de 2014 23:57:21 UTC-3, Ze Roberto escribió:
ZeRoberto
José Enrique Llopis
Dependiendo del escenario puedes simular tú mismo la funcionalidad que deseas, por ejemplo imaginemos que estás mostrando la foto en un campo de imagen, puedes en el evento clic hacer lo siguiente:
Obtienes con un select o como quieras el stream de la imagen
Lo grabas a un archivo de trabajo con strtofile y sys(2023) para obtener el path temporal, realmente si lo estás mostrando ya tendrás este paso hecho.
A continuación lo editas con tu programa favorito, lo más sencillo es con macrosustitución, por ejemplo imagina que usas el paint:
lcComand = "RUN /n mspaint "+CHR(34)+lcNombrearchivoTemporalFoto+CHR(34)
&lcComando
También puedes codificar esto en un commandbutton o donde mejor te apañe.
En fin, soluciones hay, solo es cuestión de darle un par de vueltas al tema.
Un abrazo,
Pepe Llopis
