filecreate produziert e/a-32

[Nikolas]

Ich habe ein recht simples Problem bei dem einfach nicht weiterkomme:

Ich will einfach nur an eine Datei (die es vielleicht nicht gibt) eine Zeile anhängen.

Wenn ich mit

Delphi-Quellcode:

if fileexists('Termine.txt')= false then
filecreate('Termine.txt');

sicher gehen will, dass die Datei existiert und dann mit

Delphi-Quellcode:

assignfile(Datei, 'Termine.txt');
append(Datei); 
writeln(datei,'Uhrzeit:  '+datetimetostr(now));
closefile(Datei);

versuche, was uz schreiben bekomme ich E/A 32. :drunken:

Ich seh einfach nicht den Fehler :wall:

Kann mir da vielleicht jemand einen Tipp geben?? :roll:

[Chewie]

Es ist auch nicht dein Fehler:

Zitat:

Error 32:
The process cannot access the file because it is being used by another process.

[Nikolas]

Dieser andere Prozess kann ja nur das filecreate sein, oder? Aber wie soll ich das denn sonst machen?

Tox

[Stanlay Hanks]

Ich glaube, was Chewie meint, ist, dass das File von einem anderen Prozess (Programm) verwendet wird :gruebel:

[MikeS]

probiere es doch mal so!

Delphi-Quellcode:

assignfile(Datei, 'Termine.txt');  //assignfile geht auch wenn die datei nicht existiert!
if fileexists('Termine.txt') then
  append(Datei)
else  
  reset(Datei);

  

writeln(datei,'Uhrzeit:  '+datetimetostr(now));
closefile(Datei);

[Nikolas]

Wenn ich aber das ganze ein zweites mal mache, und somit nicht das filecreate aufrufe, habe ich keine Probleme;
Die Termine.txt, kann ja beim ersten mal nicht von einem anderen Programm bearbeitet werden, einfach weil es sie dann noch nicht gibt. Denn wenn ein anderes Programm sie bearbeiten würde, hätte ich ja ein positives Fileexists;

Danke
Toxman

[MikeS]

hast du meinen Beitrag gesehen?

[Nikolas]

Den hab ich grad ausprobiert:

Fehlermeldung, dass die Datei nicht gefunden wurde.

Hast du ihn mal ausprobiert? Ich weiss langsam nicht mehr wo ich suchen soll
Danke

[MikeS]

probiere mal statt reset -> rewrite

näheres kannst du in der OH nachlesen!

mit rewrite funktionierts! :wink:

[Nikolas]

Danke, so funzts. Ich weiss aber immer noch nicht genau, warum meine erste Idee nicht funktioniert. Bei append finde ich keinen HInweis darauf, dass schon was in der Datei stehen muss, o.Ä.
Hast du da eine Idee?

Toxman

[dizzy]

Evtl. wartet Delphi bei "FileCreate" nicht auf dessen Fertigstellung (ist ne API-Fkt.), und geht einfach wieter im Code, und die Datei ist noch nicht "ganz fertig" wenn du schon reinschreiben willst. Aber bei "rewrite" wartet er schon. Klingt zumindest danach!

[Luckie]

Zitat:

Zitat von Toxman

sicher gehen will, dass die Datei existiert und dann mit [..]

Also, ich löse das immer so:

Delphi-Quellcode:

constructor TTypedFile.Create(Filename : string);
var
  Data : TRecord;
begin
  AssignFile(f, Filename);
  { if exits open it }
  if FileExists(Filename) then
  begin
    //FileMode := fmShareExclusive;
    Reset(f);
  end
  { if not rewrite it }
  else
  begin
{$I-}
    Rewrite(f);
    if IOResult <> 0 then
    begin
      RaiseLastOSError;
{$I+}
      CloseFile(f);
      exit;
    end;
    FillChar(Data, sizeof(Data), #0);
    Data.Index := 0;
    { write the first emtpy record with the MaxID-Value }
    write(f, Data);
  end;
  { get the number of records }
  FRecordsCount := FileSize(f);
end;

[th3lol]

was hälst du von FileClose?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var k: integer;
begin
  k:=filecreate('Termine.txt');
  FileClose(k);
end;

filecreate(); übergibt das handle der erstellten datei und mit fileclose kannste dann die spezielle datei schließen. :-D

antwort kommt ein bisschen spät, aber ich hatte das selbe prob und deswegen hier mal für alle meine mitstreiter :P