FiveTech Software tech support forums

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()
...

... ,"AVISO") RETURN(.F.) ENDIF RETURN(.T.) PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ASALIDA:=".\"+cNOM hFile := FCreate(asalida) FWrite( hFile, cARCH) FClose( hFile ) RETURN NIL

... variable cPdf this text must taken between two quotes of an italian electronic invoice <Attachment> </Attachment> cFile-> xml file hFile := FOpen( cFile ) nFileLines := FLineCount( cfile ) i := 1 DO WHILE i <= nFileLines HB_FReadLine( hFile, @Linea ) Linea := LTrim( Linea ) cField ...

Hello, I think I found an example: function setfiledate(cFile, dDate) local hFile := FOpen( cFile, FO_READWRITE ) local aInfo SET DATE FRENCH SET CENTURY ON SetFTime( hFile, "13:00:00", dDate ) // MsgInfo( "D o n e !" ) FClose( hFile ) return ...

... </Schs> </Transaction> /********* Sample Code /********* nXmlMax := LEN(aXmlFile) cXmlFile := aXmlFile[nXmlMax,1] cStart := TIME() hFile := FOpen( cSource + cXmlFile ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) WHILE .T. oTagActual = oXmlIter:Next() ...

... me parce muy buena, me refiero a hacer una clase buffer desacoplada de ficheros. Para eso sólo habría que cambiar dos cosas: 1.- El parámetro hFile 2. Y convertir el metodo ::flush() en Virtual y desarrollarlo en las clases heredadas y especializadas. Con esto conseguiríamos una clase TStringBuffer() ...

... break Endif mTekst:="" @ 100,20 SAY oTEKST var mTekst OF oDlg PIXEL SIZE 150,12 dd:=day(date()) mm:=month(date()) rr:=year(date()) // hFile := FOpen( cFileName ) oXmlDoc := TXmlDocument():new() // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE oXmlDoc:read( Memoread( cFileName ) ) // oXmlDoc:read( ...

Luis, lo que recibes es un archivo ZIP en Base64, hay que hacer la operación inversa y después descomprimirlo para leer el contenido.

hFile := FCreate( cResSun, FC_NORMAL )
FWrite( hFile, Base64ToStr( cTxtSun64 ) )
FClose( hFile )

... } } } REQUEST DBFCDX REQUEST DBFFPT //----------------------------------------------------------------------------- function Main( cQuery ) local hFile , ; oXmlDoc , ; oXmlIter , ; oTagActual , ; nItems := 0 , ; cTagName := "" , ; cTagData := "" , ; cMtsn := "" , ...

AntoninoP wrote:The CloseHandle( hFile ); in HB_FUNC( ADDPREVIEWC ) does not allow to pdf previewer to read the file.
It is because you don't view the pdf preview.

In case of pdf, the preview is created from the stream not the file. In that case, why would the previewer require the file to be open?

The CloseHandle( hFile ); in HB_FUNC( ADDPREVIEWC ) does not allow to pdf previewer to read the file.
It is because you don't view the pdf preview.

... recorrer el XML e ir tomando los valores segun cada TAG, aqui lo adjunto, espero te sirva #include "FiveWin.ch" function Main() local hFile := FOpen( "test.xml" ) Local oXmlDoc := TXmlDocument():New( hFile ) Local oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ), oTagActual ...

... := 30 // Set operation support hVar1 := hVar - { dDate => 0 } // removing dDate key For more deails, see doc/hash.txt XML Support: ------------ hFile := FOpen( cFileName ) xmlDoc := TXmlDocument():New( hFile ) xmlNode := xmlDoc:oRoot:oChild cXml := xmlNode:Path() // there are methods to find ...