Simultaner Zugriff auf Datei

[himitsu]

Zitat von OH: fmshareexclusive:

Legt eine gemeinsame Dateinutzung fest, die jeglichen Dateizugriff durch andere Anwendungen verhindert.

Zitat:

xml.LoadFromFile('C:\Temp\Test.xml');
Das Problem liegt wohl darin, dass ich mit LoadfromFile das XML nochmal versuche zu öffnen...

Nicht nur vermutlich, sondern bestimmt.

Die Datei nicht exklusiv öffnen, den String auslesen
und dann den XML-"String" an die XML-Komponente übergeben.

Genauso kann man den XML-String erst aus der Komponente rausholen und dann selber in die Datei schreiben.

[kkoe]

Zitat:

Die Datei nicht exklusiv öffnen, den String auslesen
und dann den XML-"String" an die XML-Komponente übergeben.

Jetzt komm ich nicht mit, welcher ist der String und welcher der XML-"String"(=Filename??)?
Und durch das Weglassen der Exklusivrechte können doch wieder andere Programme auf die Datei zugreifen, während dieses Programm am bearbeiten ist, oder? (Das wollte ich ja verhindern)

[Der schöne Günther]

Entweder habe ich gravierende Wissenslücken oder, soweit wir hier fest bei Windows sind, macht keiner eine Datei zum Lesen auf wenn da grade reingeschrieben wird. Nicht einmal der gleiche Prozess.
Willst du die Datei ein weiteres mal (zum Lesen) aufmachen muss der Schreibende entweder ein Mapping für die Datei angelegt haben (siehe MSDN: Sharing Files and Memory) oder der lesende ist ein Kindprozess des Schreibenden und kann das Filehandle erben.

Ansonsten, kein Weg. Das hätte ich jetzt spontan behauptet. Wenn das nicht stimmt freue ich mich

[Bjoerk]

Ich hab' mal ne Zeitlang das verwendet, dann aber wieder verworfen. Weiß aber nicht mehr warum?

Delphi-Quellcode:

function FileInUse(const FileName: string): boolean;
var
  Success: Cardinal;
begin
  Result := false;
  if FileExists(FileName) then
  begin
    Success := CreateFile(PChar(FileName),
      GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    Result := Success = INVALID_HANDLE_VALUE;
    if not Result then
      CloseHandle(Success);
  end;
end;

procedure Wait50;
var
  ATime: Cardinal;
begin
  ATime := GetTickCount;
  repeat
  until GetTickCount - ATime > 50;
  Application.ProcessMessages;
end;

function CanOpenFile(const FileName: string): boolean;
var
  TryCount: integer;
begin
  Result := true;
  if FileInUse(FileName) then
  begin
    TryCount := 0;
    repeat
      Wait50;
      Inc(TryCount);
      Result := not FileInUse(FileName);
    until Result or (TryCount = 20);
  end;
  if not Result then
    MessageDlg('Zugriff auf ' + FileName + ' verweigert.', mtError, [mbOK], 0);
end;

[Der schöne Günther]

Das versucht ja nur, mittels CreateFile die Datei zum Lesen aufzumachen und sagt, ob dabei INVALID_HANDLE_VALUE herauskam oder nicht. Auf so eine Lösung wird es denke ich ja auch hinauslaufen-

Nur würde ich hierbei bemängeln dass die Wahrscheinlichkeit zwar wahrscheinlich hoch, aber nicht garantiert ist dass du deine öffnen kannst nachdem das Prüfen einmal meinte, man könne sie zum Lesen öffnen: Zwischen Prüfen und Aufmachen kann sie sich ja schon wieder jemand anders geschnappt haben- Die Gegenseite könnte beispielsweise wieder anfangen zu schreiben.

[Bjoerk]

Kann sein. Prüfte glaub ich GENERIC_READ or GENERIC_WRITE usw. Weiß nicht mehr so genau?

[EarlyBird]

Eventuell kannst Du die Datei auch kopieren und nach dem Lesen löscht du die Datei wieder.

[samso]

Irgendwie verstehe ich die Diskussion nicht. Selbstverständlich kann man eine Datei zum Lesen öffnen, auch wenn sie gerade geschrieben wird. Es können sogar mehrere Prozesse die Datei zum Schreiben öffnen. Dazu muss man TFilestreams mit den korrekten Parametern erzeugen und schon geht das wunderbar.
Zusätzlich sollte man sich einen Transaktions-Mechanismus ausdenken, der sicher stellt, dass die Daten konsistent sind. Aber das war ja hier nicht gefragt. Natürlich darf die Datei von keinem Prozess mit Exklusiv-Rechten geöffnet sein.

Anbei habe ich eine kleine Demo erzeugt. Dieses Programm kann mehrmals gestartet werden und alle können fröhlich auf der Datei schreiben und lesen.
Hinweis: Bei Delphis älter als Delphi 2010 (vielleicht auch 2009?) hat fmCreate noch keinen Share-Parameter erlaubt. Deshalb gibt es im Demo einen etwas wirren Workaround dafür. D.h. Wenn die Datei noch nicht existiert wird die Datei erzeugt und danach nochmal geschlossen. Ab Delphi 2010 kann man sich das sparen.

[samso]

Aha, dieser Nebensatz scheint entscheidend zu sein.

Zitat von kkoe:

Und durch das Weglassen der Exklusivrechte können doch wieder andere Programme auf die Datei zugreifen, während dieses Programm am bearbeiten ist, oder? (Das wollte ich ja verhindern)

Der TE will vermutlich durch das exklusive öffnen der Datei den Transaktions-Mechanismus realisieren? Aus den anderen Nebenbemerkungen schließe ich, das die Datei in relativ kurzen Zeitabständen aktualisiert wird (da ist von ms die Rede). In einem solchen Fall würde ich denken, dass das besser über einen Masterprozess realisiert wird, der dann die Daten nach außen via Interprozesskommunikation zu Verfügung stellt.