gesperrte Datei öffnen

[RavenIV]

servus

auf die Gefahr hin, dass dies schon öfter gefragt wurde:

wie kann man eine Datei öffnen, die von einer anderen Anwendung bereits geöffnet ist?
Mit TstringList.LoadFromFile oder TFileStream.Read können dies ja nicht.

Jedoch öffnet der Windows-Editor diese datei ohne Murren.
Also MUSS es irgendwie gehen...

gruessle

[marabu]

Einfach Öffnen mit LoadFromFile ist keine gute Idee, wenn du um eine file resource konkurrierst. So öffnest du, wenn du kooperativ sein willst:

Delphi-Quellcode:

var
  fs: TFileStream;
begin
  fs := TFileStream.Create(fileName, fmOpenRead, fmShareDenyWrite);
  fs.Read()
  fs.Free;
end;

Grüße vom marabu

[RavenIV]

hatte ich schon versucht mitFileStream := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite); aber es gab wieder ne exception (datei bereits geöffnet).

gruessle

[marabu]

Der Editor kann? Dann versuche fmShareDenyNone.

marabu

[RavenIV]

danke, so funktioniert es.

Delphi-Quellcode:

  if FileExists(Filename) then
  begin
    FileStream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
    try
      Zeilen.LoadFromStream(FileStream);
    finally
      FileStream.Free;
    end;
  end;

und ich habe das File nun doch in einer StringList (Zeilen).

gruessle