Datei in Benutzung

[SaFu]

Zitat von taaktaak:

Könnte es sein, dass "fmShareExclusive" nur solange eine Wirkung hat, bis die Instanz von FileStream wieder freigegeben wird?

Na das wars glaube ich jetzt muss ich nur noch gucken wie ich die wieder frei bekomme wenn ich in der FileListbox die datei wechsel

[taaktaak]

Eben, aber wer dieses

Zitat:

aber ich kann es Trotzdem noch mit einer neuen Instanz meines Programmes ein Zweites mal Öffnen

schreibt, hat offenbar anders gedacht

[Die Muhkuh]

Darfst halt keine lokale Variable nutzen, sondern ein Feld in der Klasse.

[taaktaak]

Zitat:

wie ich die wieder frei bekomme wenn ich in der FileListbox die datei wechsel

Wieso ist das ein Problem?
Die Sperrung ist doch nur innerhalb der Methode "GridLaden" wirksam

[Die Muhkuh]

Anscheinend will er sie aber so lange offen lassen, bis man eine neue Datei anwählt.

[taaktaak]

Aha, na, dann muss "GridLaden" aber umgebaut werden...

[Die Muhkuh]

Zitat von Die Muhkuh:

Darfst halt keine lokale Variable nutzen, sondern ein Feld in der Klasse.

[SaFu]

Mal blöd gefragt

Ich hab FFileStream1 Global deklariert und im ONClick ereigniss von der Filelistbox vorher

FFileStream1.Free; geschrieben aber irgendwie wird sie nicht mehr freigegeben

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm7.GridLaden;
var x, y, row, col,len :Word;
    Grid :TFileName;
    buff :string;
begin
  if FFileSteam1 <> nil then
    FFileStream1.Free;

  FFileStream1 := TFileStream.Create(FileListbox1.FileName, fmShareExclusive);

  FFileStream1.Read(row, SizeOf(Word));
  FFileStream1.Read(col, SizeOf(Word));

  for x:= 0 to row do
   for y:= 0 to col do
    begin
     FFileStream1.Read(len, SizeOf(Word));
     SetLength(buff, len);
     FFileStream1.Read(buff[1], len);
     StringGrid1.Cells[y,x]:= buff;
    end;
end;

Probiers mal so.

[SaFu]

Irgendwie scheint sie trotzdem nicht richtig Freigegeben zu werden.

Wenn ich mit einer anderen Instanz versuche die Datei nochmal zu öffenen Kommt der Dialog das die Datei in Benutzung ist. soweit so gut.

Nur nach diesem Dialog kann ich garkeine Datei mehr öffnen und ich bekomm folgenden Fehler