StringList und LoadFromFile()

[sharkx]

Hallo,

Kann man mit StringList LoadFromFile eine Text Datei im ReadOnly Modus öffnen?

Die Text Datei ist ein mIRC Logdatei die aber ständig neu beschrieben wird, sprich: mIRC hält die für sich offen.

[Chewie]

LoadFromFile öffnet die Datei, liest die Daten und schließt die Datei wieder. Geschrieben wird dabei nicht, also nehm ich mal stark an, die Datei wird nur-lesend geöffnet.

[sharkx]

komisch .. denn ich bekomm folgende Meldung:

Zitat:

Meldung: Exception in der Klasse EFOpenError aufgetreten. Meldung Datei xxxx kann nicht geöffnet werden. Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird

Die meldung kommt bei

Delphi-Quellcode:

var list: StringList;
.....

list.LoadFromfile(datei);

[LoL]

du hast die aber schon vorher createt oder?

[sharkx]

Ja sicher, deshalb auch die ...

[APP]

Hallo Sharx,

hast Du einmal versucht die Datei mit dem Editor zu öffnen,
oder ob Du sie mit

Delphi-Quellcode:

FileOpen(aFileName, fmOpenRead)

öffnen kannst?

Geht das, oder gibt es da auch Fehlermeldungen?

[LoL]

also ich habs grad mal getestet und bei mir funzt des!
(ich hab delphi entprise, 2k)

[sharkx]

APP: Ja, ich kann sie mit UltraEdit öffnen.
[Edit]
Wenn ich die Datei mit FileOpen(aFileName, fmOpenRead) öffne, bekomm ich als rückgabewert -1, also fehler
[/Edit]

[Chewie]

Dann werd ich ein wenig in den Sourcen rumgraben....

Die Datei wird so geöffnet:

Delphi-Quellcode:

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

Also Schreibzugriff und Schreibschutz. Vielleicht verursacht zweiteres den Fehler, denn die Datei ist ja schon mit Schreibzugriff geöffnet, und ich kann ja nicht nachträglich die Schreiberrlaubnis entziehen!
Also gibts die Möglichkeit, die Datei selber einzulesen oder die entspr. Unit abzuändern und neu kompilieren (sofern du die Sourcen hast) oder eine Klasse von TStringList abzuleiten, die eine Methode zum Lesen eines Streams implementiert, die ohne Schreibschutz öffnet.

[Chewie]

Zitat:

Zitat von sharkx

Wenn ich die Datei mit FileOpen(aFileName, fmOpenRead) öffne, bekomm ich als rückgabewert -1, also fehler

Funktioniert

Delphi-Quellcode:

TFileStream.Create(aFileName, fmOpenRead or fmShareDenyNone)

?