Funcion: FpOpen()
Sintaxis:

function FpOpen(
 
  path: pChar;
 
  flags: cInt;
 
  Mode: TMode
 
):cInt;
 
function FpOpen(

Descripcion: Abre un archivo en Path con las banderas flags y en modo Mode uno de los siguientes:

O_RdOnly
Archivo abierto en modo Read-only (Solo lectura)
O_WrOnly
Archivo abierto en modo Write-only (Modo solo escritura)
O_RdWr
Archivo abierto en modo Read-Write (Lectura escritura)


Las banderas deber ser con las siguientes constantes:

O_Creat
Archivo es creado si este no existe
O_Excl
Si el archivo es abierto con O_creat y este ya existe, la llamada fallará
O_NoCtty
Si el archivo es un dispositivo terminal, este no recibirá procesos, controlando terminal.
O_Trunc
Si el archivo existe, este sera truncado.
O_Append
El archivo es abierto en append mode. Después de cada escritura, el archivo apuntador es posicionado al final de el archivo.
O_NonBlock
El Archivo es abierto en non-blocking modo. No operaciones sobre el archivo causaran la llamada al proceso espera hasta.
O_NDelay
Idem como O_NonBlock
O_Sync
El archivo es abierto por sincronía IO. Cualesquiera escriban la operación sobre el archivo no retornara hasta que la informacion sea físicamente escrita en el disco
O_NoFollow
Si el archivo es un link simbólico, la apertura fallara. (Linux 2.1.126 y mas mas actual only)
O_Directory
Si el archivo no es un directorio, la apertura falla. (Linux 2.1.126 y mas nuevo only)


Path puede ser de tipo PChar o String. El argumento opcional mode especifica el permiso que se definirá cuando se este abriendo el archivo. Este es modificado por el umask setting. El permiso real es Mode and not umask. El valor retornado por la funcion es el apuntador de archivo, o un valor negativo si ha sucedido un error.

ERRORES:
Mas informacion acerca de los errores puede ser obtenida usando la funcion fpGetErrno

Vea también:
fpClose
FpRead
FpWrite
FpFTruncate
FpLSeek
Ejemplo:

Program Example19;
 
{ Program to demonstrate the fdOpen, fdwrite and fdCLose functions. }
 
Uses BaseUnix;
 
Const Line : String[80] = 'This is easy writing !';
 
Var FD : Cint;
 
begin
  FD:=fpOpen ('Test.dat',O_WrOnly or O_Creat);
  if FD>0 then
    begin
    if length(Line)<>fpwrite (FD,Line[1],Length(Line)) then
      Writeln ('Error when writing to file !');
    fpClose(FD);
    end;
end.