Datei öffnen die von anderen Programm verwendet wird

[Andreas L.]

Hi,
ich habe hier eine Ini-Datei die von einen anderen Programm verwendet wird. Wenn ich die Datei nun mit TMemIniFile öffnen will, bekomme ich die Meldung das die Datei derzeit genutzt wird. Öffne ich die Datei mit Notepad oder einen anderen Programm gehts. Wieso? Benötigt TMemIniFile denn exklusiven Zugriff oder woran liegts?

[Apollonius]

TMemIniFile verwendet TStrings.LoadFromFile, was mit fmShareDenyWrite arbeitet.

[Andreas L.]

Zitat:

Zitat von Apollonius

TMemIniFile verwendet TStrings.LoadFromFile, was mit fmShareDenyWrite arbeitet.

Und wie kann ich das Problem nun lösen?

[Progman]

statt TMemIniFile nur TIniFile verwenden?

[Andreas L.]

Zitat:

Zitat von Progman

statt TMemIniFile nur TIniFile verwenden?

Verwendet denn TIniFile denn nicht die selbe LoadFromFile-Routine? Außerdem kann ich dann große Ini-Dateien wieder nicht öffnen wegen den Größenbeschränkung oder gibts die in Delphi 2006 nicht mehr?

[DeddyH]

Über einen Umweg über TFileStream könnte es auch gehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TFileStream;
    List: TStringList;
    Ini: TMemIniFile;
begin
  try
    Stream := TFileStream.Create('C:\boot.ini',fmOpenRead);
    List := TStringList.Create;
    Ini := TMemIniFile.Create('');
    try
      List.LoadFromStream(Stream);
      Ini.SetStrings(List);
      ShowMessage(Ini.ReadString('boot loader','timeout','nix'));
    finally
      FreeAndNil(Stream);
      FreeAndNil(List);
      FreeAndNil(Ini);
    end;
  except
    ShowMessage('Erzeugen von FileStream fehlgeschlagen');
  end;
end;

[Progman]

über Größenbeschränkung ist mir nichts bekannt, ich weiß nur, dass ich mit TIniFile eine Ini-Datei beliebig oft öffnen konnte, auch von unterschiedlichen Programmen aus. Kommt aber auch darauf an, auf welche Art andere Programme darauf zugreifen. Es gibt ja Programme, die ihre Ini- und Log-Dateien sperren.

[marabu]

Hallo Deddy,

du willst die Datei im compatibility mode öffnen? Das ist in der Praxis das Gleiche wie fmShareExclusive - besser so:

Delphi-Quellcode:

// ...
Stream := TFileStream.Create('C:\boot.ini', fmOpenRead or fmShareDenyNone);
// ...

Grüße vom marabu

[DeddyH]

Hallo marabu,

sorry, hast Recht ;)

[Andreas L.]

ich verwende jetzt die normale TIniFile-Klasse. Es kommt zwar keine Meldung, aber die Datei wird anscheinend nicht geladen.

Delphi-Quellcode:

 fIniFile := TIniFile.Create(FileName);
 Sections := TStringList.Create;
 fIniFile.ReadSections(Sections);

Meine StringList bleibt leer. Noch 'ne Idee?

[Andreas L.]

Ich hab' jetzt nochmal rumprobiert. In meiner StringList sind trotzdem die Sektionen drin. Trotzdem funktioniert mein Code nicht und ich habe keinen Plan wo der Wurm steckt:

Delphi-Quellcode:

constructor TWindowsSidebarNotes.Create(FileName: String = '');
var
 iGadget, iNotes: Integer;
 NewGadget: TWindowsSideBarNotesGadget;
 Sections: TStringList;
begin

 inherited Create;

 fNotesGadgets := TObjectList.Create;

 if FileName = '' then
  Filename := IncludeTrailingPathDelimiter(GetShellFolder(CSIDL_LOCAL_APPDATA)) + 'Microsoft\Windows Sidebar\Settings.ini';

 fIniFile := TIniFile.Create(FileName);
 Sections := TStringList.Create;
 fIniFile.ReadSections(Sections);

 for iGadget := 0 to Sections.Count -1 do
  begin

   if fIniFile.ReadString('[' + Sections.Strings[iGadget] + ']', 'NoteCount', '') <> '' then
    begin

     NewGadget := TWindowsSidebarNotesGadget.Create;
     NewGadget.SectionName := Sections.Strings[iGadget];
     for iNotes := 0 to StrToInt(StringReplace(fIniFile.ReadString('[' + Sections.Strings[iGadget] + ']', 'NoteCount', '0'), '"', '', [rfReplaceAll])) -1 do
      begin

       NewGadget.Add(fIniFile.ReadString('[' + Sections.Strings[iGadget] + ']', IntToStr(iNotes), ''));

      end;

     fNotesGadgets.Add(NewGadget);

    end;

  end;

 Sections.Free; 

end;

//zum auslesen der einzelnen "Notizen"
function TWindowsSidebarNotes.ReadNote(Gadget, Index: Integer):String;
begin

 Result := (fNotesGadgets.Items[Gadget] as TWindowsSidebarNotesGadget).Strings[Index];

end;

[Progman]

IniFile.ReadString erfordert nur den String in Section, keine eckigen Klammern!

[Andreas L.]

Ich Idiot. Sollte mehr schlafen :nerd: