Favor Ayuda Subir Imagen a un Get de Dialogo

[remtec]

Buen dia Amigos.

Necesito ayuda.

Estoy creando un dialogo con datos de un usuario:

- Codigo
- Nombre:
- Firma: En este GET debo subir una imagen BMP o JPG, que esta en una carpeta cualquiera y guardarla en una DBF.

El guardar la imagen en un campo Memo Imagen, lo realizo sin problemas, solo que aqui al momento crear un nuevo usario, debo tener un GET, que permita ir a buscar la imagen BMP o JPG desde una caroeta y luego grabar todos los dartos en el archivo DBF.

Muchas gracias.

Saludos
Antonio

[cmsoft]

Una forma podría ser con con un preview de la imagen, y que al hacer click en ella se pueda cambiar, de esta manera

Code: Select all | Expand

mfoto := "c:\miprograma\firmas\nofoto.jpg"
DEFINE DIALOG oForm TITLE "Alta de Usuario"  FROM 05,15 TO 17,95 OF oWnd1
   
   @ 07, 05 SAY "Codigo:"                OF oForm PIXEL SIZE 50,20 RIGHT
   @ 22, 05 SAY "Nombre:"                OF oForm PIXEL SIZE 50,20 RIGHT
     
   @ 05, 60 GET oGet[1] VAR mcodigo PICTURE "99999" OF oForm PIXEL RIGHT 
   @ 20, 60 GET oGet[2] VAR mnombre PICTURE "@!"    OF oForm PIXEL 
   @ 05, 210 IMAGE oGet[6] FILE mfoto OF oForm ON CLICK CambiaImagen(oGet[6],@mfoto);
     ADJUST SIZE 60,60 PIXEL
ACTIVATE DIALOG oForm CENTER 

****************************************
** Cambiar foto 
STATIC FUNCTION CambiaImagen(oImg,mfoto)
LOCAL cFile
cFile := cGetFile( "Foto de firma (*.png)|*.png", "Elija la foto",, ".\FIRMAS", .f. )
IF EMPTY(cFile)
   RETURN nil 
ENDIF
mfoto := cFile 
oImg:LoadImage( , cFile )
oImg:Refresh()
RETURN nil
 

Luego en mfoto te va a quedar el nombre del archivo a subir
Otra manera seria con un valid del get

Code: Select all | Expand

mfoto := "c:\miprograma\firmas\nofoto.jpg"
DEFINE DIALOG oForm TITLE "Alta de Usuario"  FROM 05,15 TO 17,95 OF oWnd1
   
   @ 07, 05 SAY "Codigo:"                OF oForm PIXEL SIZE 50,20 RIGHT
   @ 22, 05 SAY "Nombre:"                OF oForm PIXEL SIZE 50,20 RIGHT
   @ 37, 05 SAY "Archivo:"                OF oForm PIXEL SIZE 50,20 RIGHT
     
   @ 05, 60 GET oGet[1] VAR mcodigo PICTURE "99999" OF oForm PIXEL RIGHT 
   @ 20, 60 GET oGet[2] VAR mnombre PICTURE "@!"    OF oForm PIXEL 
   @ 35, 60 GET oGet[6] VAR mfoto ;
   ACTION (oGet[6]:cText := cGetFile( "Archivos JPG (*.jpg)|*.jpg|Todos los Archivos (*.*)|*.*", "Seleccione archivo de foto",, ".\firmas", .f. ));
   OF oForm PICTURE "@S20" PIXEL SIZE 70,12 BITMAP "BUSC1"
ACTIVATE DIALOG oForm CENTER 
 

[remtec]

Hola Amigo Cesar.

Como estas?

Muchas gracias por responder como siempre.

Probare que tal me va y comento.

Muchas gracias.

Saludos

Antonio