Überprüfen ob Datei verfügbar

[Zyro]

Ich habe ein Programm geschrieben, welches Daten in eine .csv Datei schreibt. Nun will ich dass das Programm schaut, ob die Datei verfügbar ist oder nicht (zbsp: Wenn noch geöffnet).

In php würde ich das so machen:

if(Rewrite(f)) then ..{ablauf}..; Aber das scheint in Delphi nicht möglich zu sein. Wisst ihr, was da abhilfe schafft?

[Thunderchild]

Probiers mal damit.
FileExists(pfad) Wenn die Datei offen ist, exisitiert sie ja logischerweise auch.

ansonsten:

Delphi-Quellcode:

function dateiVorhanden(pfad:string):boolean;
var datei:file;
begin
  assignFile(datei,pfad);
  filemode:=0;
  {$I-} reset(datei); closefile(datei); {$I+}
  dateiVorhanden:=IOResult=0
end;

mittels {$I-} werden Fehlermeldungen unterdrückt und deren Nummer kann statt dessen mit IOResult abgefragt werden (nur einmal, deswegen in anderer Vari speichern, wenn damit gearbeitet werden soll!).

[Zyro]

hmm....ob sie vorhanden ist, ist ja nicht die frage. Sondern eher, ob sie noch von excell geöffnet ist.
Dein 2tes Beispiel werd ich mal ausprobieren.

[Thunderchild]

Habs grad mal ausprobiert.. reset liefert auch 0, wenn die Datei geöffnet ist. da müssteste dann rewrite benutzen (und Filemode nicht auf 0 setzen). Das jedoch initialisiert die Datei.
Hab das vor kurzem in nem anderen Thread gesehen, da gabs ne API-Funktion, direkt zu checken, ob die Datei von einem Programm geöffnet ist.

[SirThornberry]

die api-funktion kenn ich nicht, aber du kannst mit
TFileStream.Create(Filename, fmShareExclusive)
die Datei öffnen. Wenn die Datei schon geöffnet ist müsste eine exception ausgelöst werden

[Thunderchild]

Ich glaub das war's auch, wenn ich mir diesesm fmShareExclusive angucke.

[Zyro]

Ich bin leider ein totaler neuling und weis nicht, was dieses "fmShareExklusive" ist.

[Thunderchild]

Nur n Konstantenbezeichner. Ich meinte damit eben nur, dass mir der Name davon bekannt vorkommt.

Edit: Juhu! 20. Nachricht

[SirThornberry]

einfach mal in der OH zu TFileStream gucken, da sind die ganzen Share-Dinger erklärt

[Zyro]

Bei mir steht da irgendwie in der OH nix zu dem fmShare dings.