Rewrite(f) findet File nicht...

[calibra301]

Komisches Verhalten...

In einem Programm werden regelmässig nach schliessen eines Settings - Dialoges
Daten weggespeichert.
Die Prüfung ob File offen oder existiert schlägt nicht an.
Nur die Rewrite - Exception kommt mit einem "EIOnOutError, Datei nicht gefunden.." und ein 0Kb File bleibt.

Mal geht's X mal gut, dann wieder nicht.

Delphi-Quellcode:

function  CDevice.storeSettings(name: string) : integer;
var i:integer;
    f: file of TSettingsFile;
    s: TSettingsFile;
begin
  storeSettings := -1;
   try
    if IsFileInUse (name) then
    Begin
      MessageDlg('File '+name+' is open !!', mtInformation,  [mbOk], 0);
    end;
     AssignFile(f, name);

    if not fileexists (name) then
    Begin
      MessageDlg(' Gibts nicht !!', mtInformation,  [mbOk], 0);
    end;

     rewrite(f);
  except
    exit;
  end;
  //...diverses Speichern
  Closefile(f)

Suche seit Tagen einen sicher eigenen Fehler und sehe meinen eigenen Blödsinn nicht.
Kann es mit der typisierten Datei zusammen hängen ?

[zeras]

Wenn du schon merkst, dass das File in Benutzung ist, dann darft du nicht einfach weitermachen. Du musst erst warten, bis das File nicht mehr in Benutzung ist.

Delphi-Quellcode:

 if IsFileInUse (name) then
    Begin
      MessageDlg('File '+name+' is open !!', mtInformation, [mbOk], 0);
    end;
     AssignFile(f, name);

sondern so:

Delphi-Quellcode:

 if IsFileInUse (name) then
    Begin
      MessageDlg('File '+name+' is open !!', mtInformation, [mbOk], 0);
      Exit;
    end;

und dann später neu versuchen.

[Sir Rufo]

Warum so kompliziert? Kurz, knapp, erläuternd, auswertbar, ...

Delphi-Quellcode:

if not FileExists( name ) then
  raise EInOutError.CreateFmt( 'File %s does not exists!', [name] );
if IsFileInUse( name ) then
  raise EInOutError.CreateFmt( 'File %s is open!', [name] );

AssignFile( f, name );
RewriteFile( f );

Und im Ganzen

Delphi-Quellcode:

function CDevice.storeSettings(name: string): Integer;
var i:integer;
    f: file of TSettingsFile;
    s: TSettingsFile;
begin
  if not FileExists( name ) then
    raise EInOutError.CreateFmt( 'File %s does not exists!', [name] );
  if IsFileInUse( name ) then
    raise EInOutError.CreateFmt( 'File %s is open!', [name] );
  AssignFile(f, name);
  try
    rewrite(f);
    //...diverses Speichern
    Result := ...
  finally
    Closefile(f)
  end;
end;

[calibra301]

Hi,

danke fürs schnelle Feedback. Habs mal so weit umgebaut.
Des weiteren Breakpoints beim CloseFile und bei jedem Assignfile was das Projekt hat
gesetzt um sicher zu gehen das das File nicht an anderer Stelle geöffnet wird.

Das erste mal läuft sauber durch , auch das CloseFile wird angesprungen.
Beim nächstem mal geht's in das "File is open.."
Was nun tun...nach Filenamen Zwangsschliessen ??

Delphi-Quellcode:

function  CDevice.storerSettings(name: string) : integer;
var i:integer;
    f: file of TPSettingsFile;
    s: TSettingsFile;
begin
  storerSettings := -1;

  if not FileExists( name ) then
     raise EInOutError.CreateFmt( 'File %s does not exists!', [name] );
  if IsFileInUse( name ) then
  Begin
     raise EInOutError.CreateFmt( 'File %s is open!', [name] );
     exit;
  end;
  AssignFile(f, name);
  rewrite(f);

  try
   s.magic := $537916;
   //...usw.
   write(f, s);

  except
   exit;
 end;

 Closefile(f);
 storeSettings := 0;
end;

Danke und schönen Sonntach
Cali

[Sir Rufo]

Wenn du eine Exception wirfst, dann wird der Code danach nicht mehr ausgeführt. Ein Exit dahinter ist überflüssig.

Delphi-Quellcode:

try

except
  Exit;
end;

ist so mit das Schlimmste, was man machen kann. Das geht in Richtung Quanten-Computer => ja, nein, eventuell vielleicht (warum auch immer oder nicht)

Warum hast du mein Code-Gerüst so verunstaltet? Damit würdest du wissen ob etwas falsch läuft und die Datei würde immer korrekt geschlossen werden.

[calibra301]

Hallo,

habs mit deinem "Gerüst" versucht.

Hat die Funktion bei FileIsopen per Exception verlassen
so wie er es wohl auch sollte.

Nur hab ich damit das Problem nicht vom Tisch..

Wie gesagt, beim erstem mal Klappts , incl. Closefile
Beim zweitem Mal knallt ab Rewrite(f), File is open wurde also NICHT detektiert und ASsignfile ist durchgelaufen.
Beim allen folgenden geht's in deine Exception "File is open"

[Sir Rufo]

Jupp, das try war mir eine Zeile zu tief gerutscht
Hab es im Beitrag korrigiert.

[calibra301]

@Rufo...Stadthagen ??
Da brauche ich ja nur mal laut ausm Fenster zu rufen...bin aus Rosenhagen, hinter Wiedensahl

[Sir Rufo]

Zitat von calibra301:

@Rufo...Stadthagen ??
Da brauche ich ja nur mal laut ausm Fenster zu rufen...bin aus Rosenhagen, hinter Wiedensahl

Wenn der Kanal da mal nicht das Rufen verschluckt ... ich höre hier nix

[calibra301]

Welche Chancen hab ich denn das als offen detektierte File zu schliessen
und zu löschen ?

Nicht das sich rausstellt das das alte D6 und W7 bei irgendwelchen Fileoperationen nicht das machen
was sie sollen...

Eim "Umzug" mit diesem Projekt (DLL, incl . Alphatools ) wird bestimmt auch nicht ganz ohne sein.