Auf eine Datei mit 2 Programmen gleichzeitig zugreifen

[clf50811]

Hallo alle zusammen

Ich hab ein kleines Problem.

Ich will mit zwei nebeneinander laufenden Programmen auf eine Datei zugreifen.
Das eine schreibt Information mit

Delphi-Quellcode:

seek(file, Zeile);
write(file, info);

hinein, das andere Programm liest diese mit

Delphi-Quellcode:

seek(file, Zeile);
read(file, info);

heraus.
Die Befehle werden die ganze Zeit mit einem Timer(Intervall=10) wiederholt

Daraus ergibt sich natürlich ein Problem:
Sie überschneiden sich und es kommt zum E/A Fehler 32.

Darum wollte ich wissen ob jemand einen Weg weiß dieses Problem zu umgehen.

Danke

[DelphiFreund]

Du könntest die Timer ja asyncron einstellen, und jedes programm öffnet die Datei, schreibt und schließt sie wieder.

Oder du könntest Streams verwenden, beim zugriff auf die Datei kannst du die rechte einstellen, die Werte dafür findest du in der Delphihilfe.



Gruß DelphiFreund