FWrite

Grava em um arquivo binário.

Sintaxe

FWRITE( nHandle , cBuffer , [ nQtdBytes ]) –> Numérico

Descrição

FWRITE() grava em um arquivo aberto, através de FCLOSE(), FCREATE(), FOPENPORT(), os dados do buffer informado. FWRITE() grava normalmente caracteres de controle ( ASC 128, ASC 0, etc. ).

FWRITE() gravará até o número de bytes informado em nQtdBytes; caso aconteça algum erro, retornará um número menor que o nQtdBytes.

FWRITE() grava a partir da posição atual do ponteiro, que pode ser ajustado pelo FSEEK() ou por FREAD(), FREADSTR().

Exemplos

Este exemplo copia um arquivo para outro.

#include “Fileio.ch”

#define F_BLOCK 512

//

cBuffer := SPACE(F_BLOCK)

nInfile := FOPEN(“Temp.txt”, FO_READ)

nOutfile := FCREATE(“Newfile.txt”, FC_NORMAL)

lDone := .F.

//

DO WHILE !lDone

nBytesRead := FREAD(nInfile, @cBuffer, F_BLOCK)

IF FWRITE(nOutfile, cBuffer, nBytesRead) < ;

nBytesRead

? “Erro gravando: “, FERROR()

lDone := .T.

ELSE

lDone := (nBytesRead == 0)

ENDIF

ENDDO

//

FCLOSE(nInfile)

FCLOSE(nOutfile)