topic-45805

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Un error con cGetFile()
Posted: Wed Jul 16, 2025 03:23 AM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Un error con cGetFile()
Posted: Wed Jul 16, 2025 05:11 AM

Estimado Armando,

Se genera algun fichero log ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Un error con cGetFile()
Posted: Wed Jul 16, 2025 01:19 PM

Estimado Armando, prueba y comente, pls.

Code: Select all Collapse

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

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Un error con cGetFile()
Posted: Thu Jul 17, 2025 03:07 AM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion