FiveTech Software tech support forums

He realizado esta prueba en modo consola y si ubica el archivo dentro de la carpeta de samples #include "fileio.ch" #define CRLF Chr(13)+Chr(10) FUNCTION Main() LOCAL cDir := "C:\Program Files" IF HB_DirExists(cDir) ?cDir + CRLF + CRLF + If(IsDirWritable(cDir), ...

... (no idea what SMB is (look into it) read here about Opportunistic locks (oplocks) https://docs.microsoft.com/en-US/windows/win32/fileio/opportunistic-locks this Paper is about : "What's New in SMB" Applies To: Windows 7, Windows Server 2008 R2 (SMB-2) https://docs.microsoft.com/en-us/previous-versions/windows/it-pro/windows-server-2008-R2-and-2008/ff625695(v=ws.10)?redirectedfrom=MSDN ...

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

... file parts of buildh.bat link items is also important to update into my program folder right ? I include sometimes files like : Include report fileio btnget mail barcode and request DBFCDX DBFNTX DBFFPT DBFDBT Some of these I see in the buildh.bat files, so they are linked in if I put the lines ...

Buenos dias lo que tengo en /go es: /include /include/fileio.ch /include/hbclass.ch /include/hbhash.ch /include/hboo.ch /lib /lib/mercury /lib/mercury/mercury.ch /lib/mercury/mercury.hrb /src /src/controller /src/model /src/view /src/view/hello.view ...

Por favor postea el error que se genera, y disculpa, olvidé comentarte que es una funcion de bajo nivel y usa fileio.ch* Pon al inicio del fichero principal de tu programa #include "fileio.ch", o usalo como variable local. ej local FO_EXCLUSIVE := 16 -------------------------------------------------------------------- ...

Hi,

Don´t write, only read.

Use FileEval() function from https://github.com/ibarrar/clipper/blob/master/CLIPPER5/SOURCE/SAMPLE/FILEIO.PRG

Regards

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

Please include fileio.ch.

EMG

... #include "report.ch" #include "hbcompat.ch" #include 'ord.ch' #include "XBrowse.Ch" #include "fileio.ch" this code give a error. Should I activate some ODBC or so ? function Presta()   local oCn, oRs   local cServer     := "http://www.kaboutersopglabbeek.be/"  ...

Hakan,

In harbour\include\fileio.ch there is a FO_EXCLUSIVE define that can be used as a flag for FOpen().

Here it is explained how to use it:
http://www.fivetechsoft.com/harbour-docs/harbour-reference-guide.htm#FOpen

... in the current directory. <nMode> A numeric value specifying the open mode and access rights for the file. #define constants from the FILEIO.CH file can be used for <nMode> as listed in the table below: File open modes Constant Value Description FO_READ *) 0 Open file for reading ...

... completo que ha sido necesario: Para usar hb_fsOpen() en vez de fopen() además de añadir en los includes #include <hbapifs.h> y #include <fileio.ch>, hay que hacer una conversión de tipo para hb_fsOpen() para evitar otro warning. De modo que si el código original con fopen() era por ...

Antonio, Aunque incluyamos en la parte C ese <fileio.ch> como sigue // Para VSC2013.#include "warningsVSC2013.h"#include "ws2tcpip.h"  //For WinSock 2 library: ws2_32.lib#include "wininet.h"#include "windows.h"#include ...

Paz,

Cambia esta línea:

fichero = hb_fsopen( nombre, "w" );

por

fichero = hb_fsopen( nombre, FO_WRITE );

tienes que añadir este fichero de cabecera:

#include <fileio.ch>