Texdatei öffen

[carknue]

Hallo,

ich möchte eine vorhandene Textdatei nur zum lesen öffen, gleichzeitig soll aber ein anderes Programm in die Datei schreiben dürfen. Wie ich es jetzt mache, funktioniert es nicht, weil das andere Programm nicht in die Datei schreiben kann.

Delphi-Quellcode:

OpenDialog1.Filter := 'DRM Log Files|*.log;*.txt;*.bak|All Files|*.*';
 if not OpenDialog1.Execute then
 Exit;
 Filemode:= fmOpenRead or fmShareCompat;
 
 {$I-}
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
 {$I+}

Was mache ich falsch?

[mr47]

Tag

Erstmal: Garnicht

-> Du kannst eine Datei nicht mit zwei Programmen gleichzeitig bearbeiten.
Frage: Wozu soll dass den gut sein? Bei sowas kommt meistens (Un)Kraut hinten raus. Du könntest evt. eine Art "Buffer" dazwischen schieben. Jedes Programm bearbeitet die Datei(ohne direkt in die Datei zu schreiben!) und am schluss wird gespeichert...

mfg

edit(2):

[ot]

Delphi-Quellcode:

{$I-} 
{$I+}

vofür sind diese Befehele?

[/ot]

[Luckie]

Zitat von mr47:

[ot]

Delphi-Quellcode:

{$I-} 
{$I+}

vofür sind diese Befehele?

Das sind Kompilerschalter und die findest du alle in der Hilfe.

[carknue]

Es sollen ja nicht beide Programme reinschreiben. Also nochmal: Ich will nur lesen. Das andere Programm soll aber reinschreiben dürfen, währen die Datei von meinem Programm geöffnet ist. Was das andere Programm dann neu reinschreibt, interessiert mich nicht. Das Problem ist nur, dass mein Programm die Datei als Erstes öffnet.

[Pr0g]

Warum liest du die Datei nicht ein und schließt sie danach wieder, bspw. mit einer StringList, oder einem FileStream?

MfG Pr0g

[carknue]

Ich könnte auch ne kopie erstellen und die dann auslesen, möchte ich aber nicht, da dies zu lange dauern würde. Die text Datei kann schonmal 5-10Mb groß werden.

Also nochmal mein Problem: Filemode scheint nicht für Textdateien zu gelten. Wie öffne ich eine Textdatei readonly und das sie von anderen gleichzeitig beschrieben werden kann? Ich hätte gedacht, dass das ganz einfach mit Filemode geht.

[marabu]

Hallo carknue,

fmShareCompat wird heute nur noch in den seltensten Fällen gebraucht (compatible bezieht sich auf DOS und SHARE.EXE). Mach es besser so:

Delphi-Quellcode:

var
  fTExt: TextFile;

begin
  AssignFile(fText, '');
  TTextRec(fText).Mode := fmOpenRead or fmShareDenyNone;
  TTextRec(fText).Mode := fmOpenWrite or fmShareDenyWrite;
  Reset(fText);
  CloseFile(fText);
end.

Grüße vom marabu

[carknue]

So kriege ich die Datei überhaupt nicht auf. Error 102 Datei wird schon benutzt?!?

[mr47]

Hast du auch zwischen die > '' < den Dateinamen geschrieben?

mfg

[carknue]

Ja klar. Die error Abfang routine spricht bei jedem Versuch die Datei zu öffen an, obwohl sie von keinem anderen Programm geöffnet ist. Code sieht so aus:

Delphi-Quellcode:

OpenDialog1.Filter := 'DRM Log Files|*.log;*.txt;*.bak|All Files|*.*';
 if not OpenDialog1.Execute then
 Exit;
 ListBox1.Clear;
 paint;
 //Filemode:= fmOpenRead or fmShareCompat;
 Button1.Enabled := False;
 Button3.Enabled := False;
 Button5.Enabled := False;
 {$I-}
 AssignFile(f, OpenDialog1.FileName);
 TTextRec(f).Mode := fmOpenRead or fmShareDenyNone;
 TTextRec(f).Mode := fmOpenWrite or fmShareDenyWrite;
 Reset(f);
 {$I+}
 if IOResult = 0 then FileIsThere := true
 else FileIsThere := false;
 if FileIsThere then
 begin
.
.
.

IOResult ist <>0
Mit filemode läßt sich die Datei wenigstens öffnen...