FileOpen()

FileOpen() – File Handle

Mit FileOpen können Sie eine Datei öffnen und ihr Windows-Datei-Handle abrufen. Der Zugriffsmodus ergibt sich durch eine ODER-Verknüpfung einer fo_Open-Konstante mit einer der fo_Share-Konstanten. Bei Erfolg gibt FileOpen einen positiven Integer-Wert zurück, der als Handle für die geöffnete Datei verwendet werden kann. Der Rückgabewert -1 gibt an, daß ein Fehler aufgetreten ist.
Wurde mit FileOpen() ein gültiges Handle bezogen, dann MUSS die Datei nach der Bearbeitung über FileClose() geschlossen werden! Deshalb immer StartSeq ... Always ... StopSeq verwenden!

Parameter

Beschreibung

aFileName:C

File + Pfad

aMode:N

Zugriffsmodus (logische OR-Verknüpfung aus fo_Open Konstante und fo_Share Konstante)
Open Konstanten
fo_CreateDatei erzeugen
fo_ReadNur Lesezugriff
fo_WriteNur Schreibzugriff
fo_ReadWriteLese- und Schreibzugriff
Share Konstanten
fo_CompatKompatibel zu dem Verfahren, mit dem FCBs geöffnet werden
fo_ExclusiveKein Lese- und Schreibzugriff
fo_DenyWriteKein Schreibzugriff
fo_DenyReadKein Lesezugriff
fo_Shared Andere haben uneingeschränkten Zugriff

Rückgabewert

Numerisch - FileHandle. Bei Fehler: -1

Beispiel

CODE

| nHandle, dDatum, nDatum, nError |

nHandle := FileOpen('C:\TEMP\U_Zahlung.Pas', _OR(fo_ReadWrite, fo_Shared)),
if nHandle > -1 then
   startseq,
      dDatum := FileDateToDateTime(FileGetDate(nHandle)),
      WriteLn(dDatum),
      nDatum := DateTimeToFileDate(Date() + TimeEx()),
      WriteLn(nDatum),
      nError := FileSetDate(nHandle, nDatum),
      if nError <> 0 then
         WriteLn('Fehlercode ' + Str(nError)),
      else
         WriteLn('Neues Datei-Datum ' + DateTimeToStr(FileDateToDateTime(nDatum))),
      endif,
   always,
      FileClose(nHandle),
   stopseq,
endif,

Weitere Verknüpfungen

FileClose()