cGetFile32 no me funciona en Windows 7

[csincuir]

Hola a todos.
He estado probando obtener archivos con la funcion cGetFile32() en windows 7 pero tengo el inconveniente que cuando levanta la ventana para buscar los archivos de repente se bloquea el sistema y luego me da el error normal de windows que la aplicacion ha dejado de funcionar, he probado con la funcion cGetfile() y tengo el mismo problema. Esto no sucede con Windows XP.
Alguien habra tenido este mismo problema?
Habra alguna otra forma de buscar archivos que no sea con esta funcion?

Agradeceria mucho me pudieran ayuda con este problema.
Estoy utilizando FWH Dic/2007 y xHarbour 1.0.0

Saludos cordiales.

Carlos Sincuir.

[jll-fwh]

Hola Sincuir:

Yo estoy usando cGetFile() con Windows 7 y no tengo problemas.

cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|"+;
"DIB (*.dib)| *.dib|"+;
"PCX (*.pcx)| *.pcx|"+;
"JPEG (*.jpg)| *.jpg|"+;
"GIF (*.gif)| *.gif|"+;
"TARGA (*.tga)| *.tga|"+;
"RLE (*.rle)| *.rle|"+;
"All Files (*.*)| *.*";
,"IMAGES\", 4 )

Un saludo
JLL

[carlos vargas]

umm...

Si no estoy mal, cGetFile32 es una funcion que hace uso de una dll o un exe externo para mostrar el dialogo de apertura de archivo, era usado por efecto de compatibilidad, lo correcto es usar cGetFile en entorno de 32 y 64 bits.

Code: Select all  Expand view

cGetFile32( <cFileMask>, <cTitle>, [<nDefaultMask>], [<cInitialDirectory>], [lSave], [nFlags], [cInitialFile] )  --> cFileName  
 
This function invokes the 32 bits Windows default select a file DialogBox.  

This function only works on Win 95/98 and NT machines. The file RunDlg32.exe must be present on every PC in the \windows or \windows\system directory.  
 

salu2
carlos vargas

[csincuir]

Gracias JLL y Carlos por sus comentarios.
Realmente no se que puede estar pasando, pero a mi me funciona 1 vez, ya sea cGetFile() o cGetFile32(), pero luego ya no, siempre se bloquea el sistema y sale el mesaje que les comente, "que el sistema dejo de funcionar", y a afuera.

No lo entiendo, porque que el mismo sistema en Windows XP trabaja sin ningun problema, pero en Windows 7 no trabaja bien, bueno al menos a mi pues, y ya ni se como darle esta funcionalidad al cliente en mi sistema, ya que es muy tedioso que se escriba el path o direccion de un archivo, trabajando con Windows.

Al menos para mi, este es un problema no resuelto con FWH + xHarbour, que si encuentro el problema no duden en que lo pondre en el foro.

Saludos cordiales.

Carlos Sincuir

[Patricio Avalos Aguirre]

Hola

Prueba con correo GMail insertando archivos adjunto a un correo, si se bloque puede sea el windows 7

yo utilizo windows 7 y no tengo ningun problema..

[jll-fwh]

Hola Sincuir:

Copia y pega la funcion que te puse y a ver si tambien te da ese error, pq yo no tengo ese problema.

Un saludo
JLL

[csincuir]

Hola JLL.
Copie tu funcion como la enviaste, pero igual, me da el mismo error.

Gracias por tu ayuda e interes.

Saludos cordiales.

Carlos Sincuir.

[Daniel Garcia-Gil]

Saludos Carlos...

Podrias copiar aca como haces uso de la funcion, si pudieras colocar exactamente las lineas de la llamada que produce el error mejor

[csincuir]

Daniel.
Gracias por contestar.

Utilizo la funcion de esta forma:

Code: Select all  Expand view

 gcFile := cGetFile(    "BITMAP   (*.bmp)| *.bmp|" +  ;
                           "JPG (*.jpg)| *.jpg|"   ;
                            ,"Por Favor Seleccione un Archivo de Imágen" )

Y una lista de lineas de llamadas de error no hay, ya que no se produce ningun error de ese tipo, el error es que cuando levanta la ventana para buscar los archivos, cambia el color de la pantalla, empieza a funcionar el ciruclo en movimiento de windows 7, y por ultimo el mensaje de que la aplicacion ha dejado de funciona, o si no, otras veces, simplemente la aplicacion se sale, sin decir nada.

Pero este mismo sistema en Windows XP y Vista, funciona correctamente.

Saludos cordiales.

Carlos Sincuir

[Patricio Avalos Aguirre]

Carlos

Yo lo utilizo de la siguiente manera

Code: Select all  Expand view

cArch := cGetFile32("JPEG  | *.jpg |" , "Seleccione una imagen",1,,,.T. )

espero qu ete sirva

[Daniel Garcia-Gil]

Carlos...


he probado la funcion tal cual como la usas, yo uso windows 7 ultimate, no me genera ningun error, la aplicacion continua normalmente

en la carpeta SAMPLES tienes muchos ejemplos donde se usa cGetFile,

samples\testgfil.prg
samples\testbrus.prg
samples\testbmp1.prg
...

he construido varios, con la misma version que usas junto con win7 y funcionan correctamente

intenta publicar un ejemplo que logre reproducir ese comportamiento

[karinha]

Code: Select all  Expand view

   LOCAL cFile


   //-> Busqueda en RED
   cFile := SubStr( cGetFile( "*.BMP", "Seleccione un Archivo Bitmap (.BMP)" ), 3 )

   IF Empty( cFile )
      Return Nil
   ENDIF
 

[csincuir]

Agradezco a todos los que me han contestado.
He hecho las pruebas con las opciones que me envian, pero igual, siempre tengo el mismo problema.
Creo que el problema estara en la instalacion del Windows 7 Ultimate, que tengo en mi notebook. Voy a tener que hacer pruebas con otra computadora con Windows 7, y les comento si me da el mismo error.

Saludos cordiales.

Carlos Sincuir

[carlos vargas]

estimado, no esta usando en esa pc win7 64bits?

salu2
carlos vargas

[csincuir]

Pues no Carlos, el Windows 7 que tengo instalado no es de 64 Bits.
Es una Notebook HP Probook 4515s
http://h10010.www1.hp.com/wwpc/ec/es/sm/WF05a/321957-321957-64295-3955552-3955552-3935146.html

Saludos cordiales.

Carlos Sincuir.