FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour cGetFile Problema en Windows Vista
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM
cGetFile Problema en Windows Vista
Posted: Thu Feb 28, 2008 06:54 PM

Amigos:

Tengo problemas en cGetFile con Windows Vista.

Vea mi post anterior npor favor.

Saludos

Ruben Fernandez

Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: cGetFile Problema en Windows Vista
Posted: Thu Feb 28, 2008 07:38 PM
Ruben D. Fernandez wrote:Tengo problemas en cGetFile con Windows Vista.

Y si usas cGetFile32

Sintaxis:
cGetFile32( <cFileMask>, <cTitle>, [<nDefaultMask>], [<cInitialDirectory>], [lSave], [nFlags], [cInitialFile] ) --> cFileName
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM
cGetFile Problema en Windows Vista
Posted: Thu Feb 28, 2008 09:30 PM

JM:

Segun tengo entendido cGetFile32 es para 16 bits,
de todas forma ya lo probe y tampoco funciona.

Muchas gracias.

Ruben Fernandez

Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
cGetFile Problema en Windows Vista
Posted: Thu Feb 28, 2008 09:38 PM
Este codigo me funciona muy bien en XP

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



habria que ejecutarlo en Vista :-)
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
cGetFile Problema en Windows Vista
Posted: Thu Feb 28, 2008 09:40 PM
Ruben D. Fernandez wrote:Segun tengo entendido cGetFile32 es para 16 bits...

Anda... pues ahora me entero.
Como vi el 32 pense que era de 32bits... :-)

Yo uso esto (pero en XP):
cFichXLS:=cGetFile32("Excel (*.xls)|*.xls|Todos (*.*)|*.*",;
          "Escoja fichero Excel (XLS)",1,;           // N煤mero del filtro 1=*.xls, 2=*.*, etc...
          alltrim(cDirectorioLOCAL),.T.,2,cFichXLS) // El ".T.,2" es para si existe pedir confirmaci贸n
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM
cGetFile Problema en Windows Vista
Posted: Fri Feb 29, 2008 01:09 AM

Amigos:

En xp funciona cualquiera de las 2 formas, pero, en Windows Vista
no logro hacerlo andar, la aplicaci贸n se cierra.

Muchas gracias y saludos
(seguire buscando y preguntando)

Ruben Fernandez

Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
cGetFile Problema en Windows Vista
Posted: Fri Feb 29, 2008 02:57 PM
cArch := cGetFile32("JPEG  | *.jpg |" , "Seleccione una imagen",1,,,.T. )


Este c贸digo funciona bien en Windows VISTA HOME PREMIUN

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 199
Joined: Thu Oct 06, 2005 09:07 PM
cGetFile Problema en Windows Vista
Posted: Tue May 27, 2008 07:11 AM

Ruben,

Lograste hacer funcionar cGetFile32 en Vista?

Ahora se me esta presentando ese error, sobre todo cuando la variable esta vacia.

cVariable := cGetFile32( .......)

Se cierra la aplicacion sin decir .. agua va

Saludos,
Mauricio

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
cGetFile Problema en Windows Vista
Posted: Tue May 27, 2008 10:27 AM

cGetFile32() es para 16 bits

Para 32 bits usad cGetFile()

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 234
Joined: Tue Oct 25, 2005 12:39 AM
asi
Posted: Tue May 27, 2008 11:18 AM

Yo siempre lo he usado asi y funciona en Windows vista y XP.
aPub[5] := cFilePath( GetModuleFileName( GetInstance() ) ) // Path donde est谩 instalado el Exe

local cFile := ""

cFile := cGetFile( "*.xls", "Selecciona un archivo", 1, aPub[5] )

if empty( cFile )
return FALSE
endif

cSay := cFile

Continue the discussion