convertir imagenes de cursor a imagenes archivo fisico

129 views
Skip to first unread message

amls

unread,
Feb 1, 2012, 12:38:24 AM2/1/12
to Comunidad de Visual Foxpro en Español
Hola amigos aqui saludandolos y haciendo una preguntita, resulta que
guardo algunas imagenes en una tabla mysql, las guardo, las puedo
consultar y las puedo ver, todo bien hasta ahi.....hace algun tiempo
alguien compartio la clase FilmStrip muy buena (excelente), la he
estado queriendo adaptar para poder mostrar mis imagenes guardadas en
mysql en la clase, solo que la clase lee archivos fisicos, imagenes
fisicas de el disco y las muestra, entonces ya tengo mis imagenes en
un cursor, pero quiero convertirlas a una imagen fisica para poder
mostrarlas en la clase FilmStrip,

He consultado los temas de mostrar imagenes en grid de mysql, hay
varios ejemplos, y los puede ver y adaptar solo que me gusto la
presentacion de la clase FilmStrip, y por eso deseo ver si me pueden
ayudar a convertir mis imagenes que ya tengo en un cursor , tomarlas y
convertirlas por ejemplo a 1.jpg y asi sucesivamente para despues de
eso mostrarlas en la clase..... se podra????

tambien por ahi en algunos mensajes pasados existe una clase que
compartio victor espina la clase img2str que creo que hace eso, pero
desafortunadamente hacia donde dirigia el enlace ya no existe....

por su colaboracion gracias....

angel

Walter R. Ojeda Valiente

unread,
Feb 1, 2012, 12:42:52 AM2/1/12
to publice...@googlegroups.com
¿Y no te sirve usar la función StrToFile() después de consultar la columna que tiene guardado un archivo gráfico con formato .JPG?

Por supuesto, al nombre del archivo le agregas la extensión .JPG

Saludos.

Walter.



> Date: Tue, 31 Jan 2012 21:38:24 -0800
> Subject: [vfp] convertir imagenes de cursor a imagenes archivo fisico
> From: amls....@gmail.com
> To: publice...@googlegroups.com

Guillermo Gimenez

unread,
Feb 1, 2012, 12:43:59 AM2/1/12
to publice...@googlegroups.com
Hola Angel, revisa la funcion strtofile(), solo que (creo) la extensión del archivo generado debe ser correcta para poder leerlo. Guille

Guillermo Gimenez

unread,
Feb 1, 2012, 12:45:34 AM2/1/12
to publice...@googlegroups.com
juaz! respondimos juntos (la misma cosa)... Saludos estimao "Correli"!!
 
Guille

--- El mié 1-feb-12, Walter R. Ojeda Valiente <wr...@hotmail.com> escribió:

amls

unread,
Feb 1, 2012, 12:45:38 AM2/1/12
to Comunidad de Visual Foxpro en Español

pues tal vez si la verdad estoy algo perdido en el tema lo confieso,
si me pudieran ayudar con algun ejemplito se los agradeceria.....

On 31 ene, 23:42, "Walter R. Ojeda Valiente" <w...@hotmail.com> wrote:
> ¿Y no te sirve usar la función StrToFile() después de consultar la columna que tiene guardado un archivo gráfico con formato .JPG?
>
> Por supuesto, al nombre del archivo le agregas la extensión .JPG
>
> Saludos.
>
> Walter.
>
>
>
>
>
>
>
> > Date: Tue, 31 Jan 2012 21:38:24 -0800
> > Subject: [vfp] convertir imagenes de cursor a imagenes archivo fisico
> > From: amls.mb...@gmail.com

Daniel Sánchez

unread,
Feb 1, 2012, 9:38:12 AM2/1/12
to publice...@googlegroups.com
Yo le realice una modificación para poder adicionar a la clase FilmStrip elementos o imágenes que se encuentren en memoria, te la adjunto para que la pruebes, para no modificar nada de lo que ya trae la clase original adicione un nuevo método addimage2, que adicionalmente permite poner un nombre o un texto de identificación de la imagen adicionada, así que cuando te colocas en esa imagen podrías obtener la referencia de la imagen seleccionada en un label, que lo obtienes desde el método imagenenter de la siguiente manera

LPARAMETERS ctitle as Character, nIndex as Integer 
thisform.label2.Caption=ctitle
thisform.nindex=nIndex

me parece que también modifique el objeto filmstripimage adicionandole la propiedad ctilte donde almaceno el texto o información junto con la imagen a mostrar.

Saludos


--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú
filmstrip.rar

amls

unread,
Feb 1, 2012, 9:22:38 PM2/1/12
to Comunidad de Visual Foxpro en Español

Hola muchas gracias Daniel la verdad la clase esta excelente, te
comento que ya la baje y la estoy estudiando, la verdad no tengo
grandes conocimientos en vfp pero la lucha le hago jejejej,,,,,, si me
pudieras poner un ejemplito de como se manda llamar para que te tome
tomas las imaganes de un cursor te lo agradeceria mucho como quiera le
estoy moviendo a ver si logro dar con ellos

gracias.....
>  filmstrip.rar
> 23 KVerDescargar

Daniel Sánchez

unread,
Feb 1, 2012, 11:22:53 PM2/1/12
to publice...@googlegroups.com
Bueno no olvides que la clase no la hice yo el compañero  Allan R. Acuña  del grupo la compartió, yo solo realice un pequeño cambio para adaptarla a lo que necesitaba aquí te envió un ejemplo de como pasar los datos imagen de tu tabla al filmstrip, recuerda que debes usar el método addimage2 que esta modificado para trabajar con una imagen almacenada en una variable o como en nuestro caso en una tabla, ahora recuerda que el campo debe contener el archivo que anteriormente fue cargado del archivo tipo imagen con filetostr hacia una variable de memoria y de esta variable de memoria almacenada en nuestra tabla en un campo memo, adicionalmente addimage2 permite también pasar un segundo parámetro que puede ser un comentario, nombre de la imagen o lo que deseemos el cual después con el evento imagenenter que se activa cada vez que entremos a una de las imágenes que nos muestra la clase filmstrip nos puede devolver la referencia almacenada sobre dicha variable.

thisform.filmstrip1.removeallimage 
SELECT mitablaconimagenes
SCAN 
nImageId=thisform.filmstrip1.addimage2(mitablaconimagenes.cpicture,mitablaconimagenes.sunombre)
ENDSCAN 
thisform.filmstrip1.SetPosition(.t.)

Hitiel Hernández

unread,
Feb 2, 2012, 8:03:51 AM2/2/12
to publice...@googlegroups.com
Perdón Daniel, me llama mucho la atención la forma en que lo hiciste, pero no se si soy yo (o quién más) el que no logra entender la manera en que lo hiciste. 
me gustaría que compartieras un ejemplo (formulario y sus funciones) para estudiarlo
de antemano te agradezco mucho.
--
Sabiduría ante todo; adquiere sabiduría

Daniel Sánchez

unread,
Feb 2, 2012, 8:13:57 PM2/2/12
to publice...@googlegroups.com
El amigo Allan R. Acuña al compartir la clase le coloco un par de formularios de ejemplo de ahí lo tome, pero bueno te explico el código que te envíe lo puedes poner en el ini del formulario o en un botón para que se carguen los datos en tu clase filmstrip.
En todo caso mejor envíame tu tabla con tus campos y te devuelvo un formulario para que veas como debe quedar, obviamente envíame una tabla pequeña con unos 10 elementos con sus imágenes, recuerda que las imágenes deben estar grabadas en un campo memo, usando el filetostr para pasarlo a memoria y de ahí al campo memo.
Reply all
Reply to author
Forward
0 new messages