EInifileException Fehler beim Schreiben der Inidatei

[s.h.a.r.k]

@uligerhardt: Wenn er die VCL debuggen will, dann muss er auch noch die Debug DCUs in den Projektoptionen unter dem Punkt Compilieren anschalten.

Des weiteren ist der Fehler auf ein Problem mit WritePrivateProfileString zurückzuführen und diese Methode wird unter EraseSection() bzw. unter WriteString() aufgerufen, was somit die Fehlerquelle schon mal ziemlich einschränkt.

Zitat:

Einen doppelten Zugriff schließe ich mal aus. Die Ini-Datei sollte das doch an sich schon verhindern, oder?

Doppelte Zugriffe im Sinne von Threads? Die VCL ist nicht threadsafe! Somit müsstest du das übernehmen.

[uligerhardt]

Zitat von s.h.a.r.k:

@uligerhardt: Wenn er die VCL debuggen will, dann muss er auch noch die Debug DCUs in den Projektoptionen unter dem Punkt Compilieren anschalten.

Das hat man doch sowieso an, oder?

[EWeiss]

Hatte das problem auch sehr oft allerdings unter Win7
Nachdem ich die Ini Dateien unter USER/..Roaming abgelegt habe hat sich das gegeben.

gruss

[Gustav.R]

AntiVir aktiv?

Siehe http://forum.avira.com/wbb/index.php...hreadID=133224

GG

[himitsu]

Bei Ini := TInifile.Create(Inifilename); // Inifilename enthält einen definitiv gültigen Dateinamen kann definitiv niemals ein solcher Fehler aufteten.
(außer bei OutOfMemory ... also nichtmal mehr 8 Byte frei oder z.B. bei vorherrigen Speicherfehlern)

Wenn aber z.B. gleichzeitig ini.Write..., ini.Read... oder Dergleichen gleichzeitig auf die selbe Datei gehen, dann kann es schonmal knallen.
Genauso wenn keine Zugriffsrechte bestehen oder etwas Anderes den Zugriff blockt.

[DeddyH]

Es wäre vielleicht günstig gewesen, die Art der Exception zu nennen.

[s.h.a.r.k]

Zitat von DeddyH:

Es wäre vielleicht günstig gewesen, die Art der Exception zu nennen.

Meinst du den TE? Denn wenn ja, dann steht die Exception ja im Thread-Titel -> EIniFileException.

[DeddyH]

Jetzt, wo Du es sagst

[Bjoerk]

TIniFile/ TMemIniFile benötigen die Datei exklusiv. Diese wird vermutlich aber von einem anderen Prozess benutzt.

Delphi-Quellcode:

procedure Wait (var N: integer);
var
  fTime: Cardinal;
begin
  fTime:= GetTickCount;
  repeat until (GetTickCount-fTime) > 500;
  N:= N+1;
end;


function IsFileReadyForOpen (const FileName: string): boolean;
var
  N, IO: integer;
  F: TextFile;
begin
  N:= 0;
  AssignFile(F, FileName);
  repeat
    {$I-} Reset(f); {$I+}
    IO:= IOResult;
    if IO <> 0 then Wait(N);
  until ((IO = 0) or (N = 10));
  Result:= (IO = 0);
  if Result then 
    closeFile(f)
  else
    MessageDlg(Application.ExeName+': '+FileName+' ['+SysErrorMessage(IO)+'].', mtWarning, [mbOK], 0);
end;


var
  Ini : TInifile;
begin
  if not IsFileReadyForOpen (Inifilename) then Exit;

[DeddyH]

Wie schon erwähnt wurde ruft WriteString auch nur WritePrivateProfileString auf. Im MSDN findet sich dann Folgendes dazu:

Zitat:

Return Value

If the function successfully copies the string to the initialization file, the return value is nonzero.

If the function fails, or if it flushes the cached version of the most recently accessed initialization file, the return value is zero. To get extended error information, call GetLastError.