nHandleNuméricoObligatorio
Handle válido de FOpen/FCreate; cero también es válido.
FUNCIóNEn revisión
FSeek
FSeek( nHandle, nOffSet, [nOrigem] ) --> nRetPosiciona puntero de archivo en bytes.
Descripción general
FSeek desplaza desde FS_SET, FS_RELATIVE o FS_END y devuelve posición absoluta desde cero. Ir cero bytes desde final obtiene tamaño y cambia cursor. GitHub usa técnica y vuelve al inicio; adaptación solo lectura, consulta FError y cierra handle propio. Byte no es carácter ni posición de archivo RecNo. (TOTVS, s.f., ref. 1)
Sintaxis
FSeek( nHandle, nOffSet, [nOrigem] ) --> nRetParámetros
nOffSetNuméricoObligatorio
Desplazamiento en bytes.
nOrigemNuméricoOpcional
FS_SET=0, FS_RELATIVE=1, FS_END=2; inicio predeterminado.
Retorno
Nueva posición absoluta en bytes desde inicio.
Ejemplo comentado
#Include "Protheus.ch"
#Include "Fileio.ch"
User Function Ed396()
Local nHandle := -1
Local nError := 0
Local nTamano
// 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
nTamano := FSeek(nHandle, 0, FS_END)
nError := FError()
If nError == 0
ConOut(cValToChar(nTamano))
// Reposicionar antes de eventual lectura posterior.
FSeek(nHandle, 0, FS_SET)
Else
ConOut(cValToChar(nError))
EndIf
If !FClose(nHandle)
ConOut(cValToChar(FError()))
EndIf
EndIf
Return NilResultado esperado
Tamaño del archivo de prueba en bytes o diagnóstico; sin valor fijo supuesto. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
- Comprobar ruta, permisos, plataforma y propiedad del handle. Cerrar solo handles propios, incluido manejo de errores de aplicación completa.
- En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.