FiveTech Software tech support forums

MI estimado, una salida:

Code: Select all  Expand view

LOCAL hFile
.......
rename(::cfile, "ejemplo.xml")
hFile      := FOpen( ::cFile )
.....
...
..
.
fclose(hfile)

 

#Include "FiveWin.ch"#Include "Fileio.ch"FUNCTION Main()   LOCAL nResult   // LOCAL hFile := FOpen( "TEXTO.txt", FO_READWRITE )   LOCAL hFile := FOpen( "TEXTO.txt" )   IF .NOT. FILE( "TEXTO.txt&...

hfile toma valor, y aunque se cierre con FClose() ese valor permanece.
No hay ningun tipo de ligazón entre hFile y el fichero al que representa más que con el uso de las funciones file

Consulto:

Si abro un archivo con

Code: Select all  Expand view

 LOCAL hFile      := FOpen( ::cFile )
 

y luego lo cierro con

Code: Select all  Expand view

fclose(hFile)
sysrefresh()
 

y hago un fwdbg hFile, el valor de "hfile" debe ser "nil"?

porque me sigue devolvieron un valor numérico.

Prueba a hacer un SysRefresh() antes del rename para darle opción a Windows a procesar tu petición:

fclose(hfile)
SysRefresh()
...

Te comento donde tengo el problema. LOCAL hFile      := FOpen( ::cFile )...fclose(hfile)fwdbg hFile            -------------------- aca hfile siempre me da un numero diferente de cero, ya probe hacer esto hFile:= Nilfrename(::cfile, "ejemplo.xml")  En cambio si hago...

Para este tipo de consultas es muy recomendable preguntar primero a chatgpt y a google Gemini, para tener una primera idea de lo que pueda estar pasando.

Hola.
Cuando quiero usar la función Frename() no me deja renombrar el archivo y me tira un -1, mirando con el FError() me tira el numero 32
que significa? como puedo solucionarlo?

gracias.

bien. gracias.

En un campo tipo text?

Code: Select all  Expand view

cText := MemoRead('miarchivo.txt')
oServer:Execute("UPDATE mitabla SET campotexto = "+Clipvalue2Sql(cText) + " where id= 1")
 

Yo uso Dolphin, tendrias que encontrar el equivalente en la clase nativa

Hola.

Tengo un archivo .txt que a lo sumo puede pesar 200K y quiero almacenarlo en una DB con Mariadb.
tienen algun ejemplo de como subir estos tipos de achvos?
gracias

... tengo otra de terceros que necesito convertir. Es posible convertirla si no se tiene los fuentes? Muchas gracias por la ayuda Solo ajusta este achivo en los fuentes de TDolphin Setenvh.bat @CALL CLEANENV.BAT echo on set path=c:\vc2022\bin32;c:\harbour_msvc\bin set lib=c:\vc2022\lib\win32 set ...

...   ? "vacio"   ENDIF   oInternet:END() en mi ftp dentro de la carpeta "uno" existe un solo achivo "antedecende.pdf" gracias.

... en adofuncs.prg. FW_MSSQL_Backup( oCn, cDb, cFile ) --> lSuccess FW_MSSQL_Restore( oCn, cDb, cFile ) --> lSuccess Nota: Limitado sólo al achivo del disco local. * Mejora: Función StackVars( [lView] ) --> aStackFuncVarsInfo en fwh\source\function\callstac.prg. - Mira el ejemplo: fwh\samples\teststack.prg ...

Estimados listeros no logro crear una achivo plano con las siguientes lineas..Estoy medio viejo,, era eso. function aAl() local linea:=0,cFile:="SITU.KLM" linea1:='<?xml version="1.0" encoding="UTF-8"?>' linea2:='<kml ...