cGetFile32 no me funciona en Windows 7

[Daniel Garcia-Gil]

Carlos

Por favor proporciona un ejemplo que no te funcione para hacer pruebas

gracias

[csincuir]

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

[Daniel Garcia-Gil]

Carlos

Te dejo este link para que descarges el ejemplo contruido,

http://www.sitasoft.com/fivewin/test/getfile.zip

Code: Select all  Expand view

#include "fivewin.ch"



function main
   
   local oWnd

   define window oWnd
   
   activate window oWnd;
            ON CLICK PruebaFoto()
   
return nil


//-------------------------------------------------------------------------------------------------------------------
//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 ""
 

[csincuir]

Gracias Daniel por tu ayuda.
Con tu ejemplo, no tengo ningun problema, levanta la ventana de busqueda de archivos sin salirse dle sistema.
Por lo que entonces mi problema es la version de FWH Dic/2007 y xHarbour 1.0.0 que estoy utilizado.

Que versiones estas utilizaste para construir el ejemplo que me enviaste?

Saludos cordiales.

Carlos Sincuir

[Daniel Garcia-Gil]

Carlos

uso el ultimo build de fivewin / harbour

no lo probe con xharbour, pero lo hago de inmediato

[Daniel Garcia-Gil]

Carlos

probado con FWH 7.12 y xharbour 1.1.0, pero veo que pusiste 1.0.0

link del ejemplo: http://www.sitasoft.com/fivewin/test/getfile.zip

link xHarbour 1.1.0 (version distribuida por Fivetech): http://www.sitasoft.com/fivewin/files/xharbour1.1.0/xharbour.exe

[csincuir]

Daniel, es correcta la version de xharbour 1.0.0, es la que estoy utilizando.

Hice las pruebas con el nuevo ejemplo, y no tengo ningun problema tampoco.

Voy a recompilar todo mi sistema con la version del xHarbour 1.1.0 que me estas enviando, y te comento como me va.

Gracias de nuevo por tu ayuda.

Saludos cordiales.

Carlos Sincuir