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!