Daniel, te mando un ejemplo abajo para que veas que no tiene nada de raro el procedemiento, bueno, al menos eso digo yo pues.
Lo que no he comentado, es que a veces me falla al primer intento, pero al volver ingresar al sistema, me deja buscar la foto y guardo el dato. Vuelvo a intentar y a veces me deja, pero de repente, se vuelve a colgar el sistema. Ya he llegado a pensar si no es memoria, pero tengo 2Gb. de RAM, en la notebook, pero, he probado con maquinas que tiene Windows XP con 512Mb. de RAM y no hay ningun problema.
- Code: Select all Expand view
//-------------------------------------------------------------------------------------------------------------------
//Tengo una una funcion en donde esta el dialogo en donde se piden unos datos de nomina de empleados, y entre ellos esta la fotografia, por lo que hago la llamada a la funcion __BucaFoto()
//Por lo que para el ejemplo que me pedis, hice esta funcion que llama a la otra funcion, y me da el mismo error con Windos 7
FUNCTION PruebaFoto()
local cFoto
If MsgNoYes( "Desea buscar una fotografia...","Confirme por favor..." )
cFoto := __BuscaFoto( )
? cFoto
End
Return .t.
//-------------------------------------------------------------------------------------------------------------------
FUNCTION __BuscaFoto( )
local cFile
cFile := cGetFile( "BITMAP (*.bmp)| *.bmp|" + ;
"JPG (*.jpg)| *.jpg|" ;
,"Por Favor Seleccione un Archivo de Imágen" )
if ! Empty( cFile ) .and. File( cFile )
Return cFile
End
return ""
Saludos cordiales.
Carlos Sincuir