Un error con cGetFile()

[Armando]

Amigos del foro:

Aquí yo, con otro error, tengo una aplicación instalada dos veces en un mismo servidor, desde luego una con
un nombre y otra con otro nombre diferente atacando tablas MySql con nombre de base de datos diferente,
el problema se presenta cuando la aplicación abre el dialogo de cGetFile() para que el usuario elija un
fichero a archivo en otra ubicación, cual es el problema?:

1.- Se abre el dialogo en la ubicación que se le especifica en uno de los parámetros de la función cGetFile()
2.- Cuando el usuario da un clic en otro ubicación para buscar el fichero en otra carpeta, SIMPLEMENTE
el sistema se queda "pensando" y el famoso circulo girando y de ahí no sale.
3.- Lo que me tiene loco es que uno de los .EXE no presenta el problema pero el otro sí, ya sustituí el "malo"
por el .EXE que no da problema pero el error persiste

Que puede ser?, a alguien le ha pasado?, cómo lo solucionó?

Saludos

[Antonio Linares]

Estimado Armando,

Se genera algun fichero log ?

[karinha]

Estimado Armando, prueba y comente, pls.

Code: Select all | Expand

// C:\FWH\SAMPLES\CGETFIL.PRG

#Include "FiveWin.ch"

MEMVAR cDirArma

FUNCTION Main()

   LOCAL cFile, cPathArma

   cDirArma := GETCURDIR()

   IF SUBS( cDirArma, LEN( ALLTRIM(cDirArma ) ) , 1 ) = "\"

      cDirArma := SUBS( cDirArma, 1 , LEN( ALLTRIM(cDirArma ) ) - 1 )

   ENDIF

   LCHDIR( cDirArma )

   cPathArma := cDirArma + "\"+ "*.BMP"

   cFile := cGetFile( "*.bmp|*.bmp|", "Selecione um Arquivo Bitmap (.BMP)",,"cPathArma" )

   IF .NOT. EMPTY( cFile )

      XImage( cFile )

   ENDIF

RETURN NIL

// END / END

Code: Select all | Expand

// C:\FWH\SAMPLES\CGETFIL3.PRG

#include "FiveWin.ch"

#define OFN_ENABLESIZING 0x00800000

FUNCTION Main()

   LOCAL cNomFich := "*.TXT"
   LOCAL cDir  := "..\samples\"
   LOCAL cFiles

   cFiles := cNomFich

   cGetFile( cNomFich + "|" + cNomFich, "Elija el fichero.", 1, cDir, .F., .T. )

RETURN NIL

// FIM / END

Regards, saludos.

[Armando]

Maestro y colegas:

El usuario me reporta que así como llego el error se fue, no sabemos la razón
pero, lo bueno es que ya está solucionado.

Muchas gracias