_FSeek( ) (Rutina de biblioteca API)
Mueve el puntero de archivo hasta una nueva ubicación tal como especifican position y mode.
long _FSeek(FCHAN chan, long position, int mode)
FCHAN chan; /* File channel. */
long position; /* Position in file. */
int mode; /* How to determine new location */
Observaciones
Si mode es 0 (absoluto), el puntero de archivo se define con el valor de position. Si mode es 1, (relativo al puntero de archivo), el valor de position se suma a la posición actual del puntero de archivo. Si mode es 2 (relativo al final del archivo), _FSeek( ) mueve el puntero de archivo hasta una posición posterior al final del archivo. _FSeek( ) devuelve la nueva posición del puntero de archivo. Por ejemplo, _FSeek(canal, 0L, 2) mueve el puntero de archivo hasta el final del archivo y devuelve la longitud del archivo en bytes.
Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.
Ejemplo
El siguiente ejemplo consta de una rutina API que toma dos parámetros, un nombre de archivo y un entero. Abre el archivo. A continuación, mediante _FSeek( ) con el indicador FS_FROMBOF, mueve el puntero de archivo hasta la posición de desplazamiento especificada por el parámetro int y lee un único byte del archivo en esta posición.
Código Visual FoxPro
SET LIBRARY TO FSEEK
fc = FCREATE("x", 0)
= FPUTS(fc, "abcdefghijklmnopqrstuvwxyz", 26)
= FCLOSE(fc)
? XFSEEK("x", 2) && displays 3rd byte of file x as an integer
? XFSEEK("x", 4) && displays 5th byte of file x as an integer
DELETE FILE x
Código C
#include <pro_ext.h>
FAR Example(ParamBlk FAR *parm)
{
FCHAN fchan;
char x;
// Null terminate file name
if (!_SetHandSize(parm->p[0].val.ev_handle,
parm->p[0].val.ev_length+1))
{
_Error(182); // "Insufficient memory"
}
_HLock(parm->p[0].val.ev_handle);
((char FAR *) _HandToPtr(parm->p[0].val.ev_handle))
[parm->p[0].val.ev_length] = '\0';
if ((fchan=_FOpen((char FAR*)_HandToPtr(parm->p[0].val.ev_handle),
FC_NORMAL)) < 0)
{
_UserError("Could not open file.");
}
_HUnLock(parm->p[0].val.ev_handle);
_FSeek(fchan, parm->p[1].val.ev_long, FS_FROMBOF);
_FRead(fchan, &x, 1);
_RetInt(x, 10);
_FClose(fchan);
}
FoxInfo myFoxInfo[] = {
{"XFSEEK", (FPFI) Example, 2, "C,I"},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};
Vea también
_FCopy( ) (Rutina de biblioteca API) | _FFlush( ) (Rutina de biblioteca API) | _FGets( ) (Rutina de biblioteca API) | _FPuts( ) (Rutina de biblioteca API)