FiveTech Software tech support forums

... Si se actualiza: oServer:Update("fotos_articulos",{"fotografia"},{uData},cWhere) y luego para recuperarlo, lo descomprimo: nHandle:=FCreate(cTempZip) FWrite(nHandle,bFOTOS:fotografia,Len(bFOTOS:fotografia)) FClose(nHandle) aFiles:=hb_GetFilesInZip(cTempZip,.t.) Hb_UnZipFile(cTempZip,,.T.,,cTemp,aFiles[1],NIL) ...

... //----------------------------------------------------------------------------// FUNCTION Opc_PidoNuevoTA() Local cBat, cOpenSSL,nError Local nHandle Local aRespuesta local cCuitNew := cCuit Local cSource := 'C=AR, O=' + cEmpresa + ', serialNumber=CUIT '+ cCuitNew +', CN='+cRazon Local cDestinationDn ...

... //----------------------------------------------------------------------------// FUNCTION Opc_PidoNuevoTA() Local cBat, cOpenSSL,nError Local nHandle Local aRespuesta local cCuitNew := cCuit Local cSource := 'C=AR, O=' + cEmpresa + ', serialNumber=CUIT '+ cCuitNew +', CN='+cRazon Local cDestinationDn ...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf cDestino:="FastQR.jpg" QRCode(cOrigen,cDestino) ...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf cDestino:="FastQR.jpg" QRCode(cOrigen,cDestino) ...

simply try to open in exclusive mode before
#include "FileIO.ch"

FUNCTION MAIN( cFile )
LOCAL nHandle

nHandle := FOPEN( cFile , FO_EXCLUSIVE )
IF nHandle = -1
? "Error" , FERROR()
ELSE
? "nHandle" , nHandle
FCLOSE( nHandle )
ENDIF

RETURN NIL

... carried out. To add/remove these background tasks the following functions are designed (example of usage see in the harbour/tests/testidle.prg): nHandle := hb_IdleAdd( bAction ) Codeblock bAction is added to the list of background tasks for execition during idle state. The function returns nHandle, ...

... utilizar con Harbour nativo. Cristobal, el código ppo de la opcion que me sugieres, hecha mano de FWCallDLL y GetProcAdd de FW function GetTextW( nHandle,cT,nMax ) ; local _hDLL := If( ValType( "user32.dll" ) == "N", "user32.dll", LoadLibrary( "user32.dll" ...

... fatturaordinaria_v1.2.xsd ">] cRiga += CRLF fWrite( nHandle, Space( 0 ) + cRiga ) dove sta l'errore ? mi dice che manca lo spazio ma dove ? Manca lo spazio obbligatorio. Errore durante l'elaborazione ...

quindi #include "FiveWin.ch" #include "FileIo.ch" FUNCTION FatturazioneElettronica() LOCAL cBuffer LOCAL nHandle nHandle := fCreate( cXmlFile, FC_NORMAL ) fWrite( nHandle, [<?xml version="1.0" encoding="UTF-8" ?>] + CRLF ) fWrite( nHandle, ...

... descargar porque no me funciona correctamente, escribo el ejemplo: cDestino:="c:\archivos\archivo.rtf" cFile:="archivo.rtf" nHandle:=FCreate(cDestino) IF !FError() # 0 FWrite(nHandle,cFile,len(cFile)) FClose(nHandle) *ACÁ COMPARO SI EL TAMAÑO ORIGINAL ES EL MISMO DEL DESCARGADO ...

... #xtranslate nTrim( <x> [,<y>] [,<z>] ) => AllTrim(Str( <x> [,<y>] [,<z>] )) FUNCTION Test( nPort ) local nHandle, nRate, nInit DEFAULT nPort := "3" nPort := Val(nPort) ? "Port", nPort, VersionDLLFiscal() nRate := 9600 nHandle := OpenPort( ...

... Exponent(<nFloat>)->nExponent Fact(<nInteger>)->nFactorial Fahrenheit(<nCelsius>)->nFahrenheit FClose(<nHandle>)->lError FCount()->nFields FCreate(<cFile,[<nAttibute>])->nHandle FErase(<cFile>)->nSuccess FError()->nErrorCode ...

Mario,

> incluí a modo de prueba, FOpen(), devuelve el nHandle, luego hago FClose( nHandle)

Prueba a quitar esas llamadas

... - ejecuto la app, Verifica mediante File(...hash.ini) y por T, antes de ejecutar HB_ReadIni(...), incluí a modo de prueba, FOpen(), devuelve el nHandle, luego hago FClose( nHandle) devuelve T. En la linea siguiente ejecuta HB_ReadIni(...) y zas!! hasta luego sin mas. Lo puse dentro de un TRY ...