Simultaner Zugriff auf Datei

[kkoe]

Danke Euch beiden, das hat schon mal Hilfe in die richtige Richtung gegeben. Was ich vergessen hatte zu erwähnen, ist dass die Schnittstellen Datei ein XML File ist, und "Rewrite", so schön einfach dieser Ansatz auch aussah, nach meiner Recherche nur bei Textfiles funktioniert?!

Aber ich denke, ich suche genau die Exklusivrechte beim Öffnen einer Datei, die Ihr angesprochen habt. Habe dazu ein kleines Beispiel programmiert, wobei mir diese Exclusivrechte sofort selber auf die Füße gefallen sind. Vlt seht ihr den Fehler.

Delphi-Quellcode:

// Beispiel XML erstellen
procedure TForm1.Button2Click(Sender: TObject);
var
root, c1: IXMLNode;
begin
 count:=0;
 fn:='C:\Temp\Test.xml';
 xml:=TXMLDocument.Create(self);
 xml.Active:=true;
 xml.Version:='1.0';
 xml.Encoding:='UTF-8';
 xml.StandAlone:='no';
 root:=xml.AddChild('ErsterKnoten');
 c1:=root.AddChild('ZweiterKnoten');
 c1.Text:='1';
 xml.XML.Text := FormatXMLData(xml.XML.Text);
 xml.Active:=true;
 xml.SaveToFile(fn);
 xml.Free;
end;

// Timer starten (weil später auch zyklischer Prozess)
procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=true;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(count);
 // Öffnen der zuvor erstellten Datei unter Exklusivrechten
 temp:=FileOpen(fn, fmOpenReadWrite or fmShareExclusive);

 if temp <> -1 then begin

  //hier soll die Datei jetzt bearbeitet werden
  
  xml:=TXMLDocument.Create(self);
  xml.LoadFromFile('C:\Temp\Test.xml');
  xml.ChildNodes.Nodes[1].ChildNodes.Nodes[0].Text:=IntToStr(count);
  Label1.Caption:='Neuer Wert: '+IntToStr(count);
  xml.SaveToFile('C:\Temp\Test.xml');
  xml.Free;
  temp
  FileClose(temp);
 end
 else begin
  Timer1.Enabled:=false;
  ShowMessage('Datei konnte nicht geladen werden');
 end;

end;

end.

Die Fehlermeldung lautet: Datei wird schon von einem anderen Prozess benutzt...
Das Problem liegt wohl darin, dass ich mit LoadfromFile das XML nochmal versuche zu öffnen... aber wie sonst könnte man das XML anderweitig bearbeiten? Danke im Voraus!