SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: egarmorales en Jueves 14 de Septiembre de 2006, 18:17

Título: Botón Examinar
Publicado por: egarmorales en Jueves 14 de Septiembre de 2006, 18:17
Que tal a todos!!!! soy nuevo por aqui y en el lenguaje de Visual foxpro y pues necesito ayuda como muchos de nosotros, y claro si yo puedo ayudar en algo lo hare.

Mi pregunta es la siguiente:

Estoy haciendo una aplicacion en visual foxpro 6, tengo que dar de alta a usuarios en el cual le tengo que agragar su foto, lo que tengo pensado hacer es crear un boton Examinar en el cual busque la ruta de la foto y la guarde en una carpeta especifica con un nombre especifico y la ruta guardarla en la base de datos para poder llamarla cuando la necesite.

Ahora, mi problema es, Cómo hago el botón Examinar, eh buscado y no eh encontrado nada.

Gracias de antemano
Título: Re: Botón Examinar
Publicado por: arielb en Jueves 14 de Septiembre de 2006, 19:02
hola que tal bienvenido al foro. Bueno para lo que necesitas puedes utilizar la funcion getfile()

Código: Text
  1. vImag = GETFILE("jpg;bmp;gif")
  2. if !empty(vImag)
  3.    Guardar la ubicacion de la foto
  4. else
  5.    messagebox("No se ha seleccionado una foto")
  6. endif
  7.  

y para guardar un archivo podrias tomarlo asi

Código: Text
  1. vGuarda = PUTFILE("Nombre",vImag,"jpg;bmp;gif")
  2.  

Esta seria una funcion para guardar la direccion de la foto
Título: Re: Botón Examinar
Publicado por: egarmorales en Jueves 14 de Septiembre de 2006, 19:20
Muchas gracias, me has ayudado mucho.

Seguimos en contacto.

Saludos