FRead

Descripción general

FRead devuelve número; datos llegan a buffer preasignado por referencia. No sustituir buffer por cantidad. Ejemplos antiguo oficial y comunitario no respetan toda preparación; adaptación usa Space(64), @cBuffer y nLeidos separado. Lectura corta puede ser EOF o error; capturar FError antes de cerrar. No imprime contenido ni supone 64 bytes disponibles. (TOTVS, s.f., ref. 1)

Sintaxis

FRead( nHandle, @cBufferVar, nQtdBytes ) --> nRet

Parámetros

Ejemplo comentado

#Include "Protheus.ch"
#Include "Fileio.ch"

User Function Ed393()
    Local nHandle := -1
    Local nError := 0
    Local cBuffer := Space(64)
    Local nLeidos
    // Archivo ficticio existente en contexto de prueba; lectura compartida.
    nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
    If nHandle < 0
        nError := FError()
        ConOut(cValToChar(nError))
    Else
        // Buffer y tamano separados del retorno numerico.
        nLeidos := FRead(nHandle, @cBuffer, 64)
        nError := FError()
        ConOut(cValToChar(nLeidos))
        If nError <> 0
            ConOut(cValToChar(nError))
        EndIf
        If !FClose(nHandle)
            ConOut(cValToChar(FError()))
        EndIf
    EndIf
Return Nil

Contenido relacionado