FRead

Visão geral

O retorno de FRead é numérico; os dados chegam ao buffer pré-alocado passado por referência. O texto do buffer não deve ser substituído pela quantidade retornada. Tanto o exemplo oficial antigo quanto o comunitário contêm trechos que não respeitam integralmente essa preparação: a adaptação usa Space(64), @cBuffer e nLidos separado. Uma leitura curta pode ser EOF ou erro; capture FError antes de fechar. O fragmento não imprime conteúdo de arquivo e não pressupõe 64 bytes disponíveis. (TOTVS, s.d., ref. 1)

Sintaxe

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

Parâmetros

Exemplo comentado

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

User Function Ed393()
    Local nHandle := -1
    Local nErro := 0
    Local cBuffer := Space(64)
    Local nLidos
    // Arquivo ficticio existente no contexto de teste; leitura compartilhada.
    nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
    If nHandle < 0
        nErro := FError()
        ConOut(cValToChar(nErro))
    Else
        // Buffer e tamanho separados do retorno numerico.
        nLidos := FRead(nHandle, @cBuffer, 64)
        nErro := FError()
        ConOut(cValToChar(nLidos))
        If nErro <> 0
            ConOut(cValToChar(nErro))
        EndIf
        If !FClose(nHandle)
            ConOut(cValToChar(FError()))
        EndIf
    EndIf
Return Nil

Conteúdos relacionados