Ini-Writes global abfangen?

[Daniel]

Naja, mehrere Wege führen nach Rom.
Eine weitere Option wäre ein sog. "Virtual Method Interceptor". Damit kannst Du eine Art Benachrichtigungs-Mechanismus implementieren, der auf Methoden anderer Klassen reagiert.

http://docwiki.embarcadero.com/CodeE...eptor_(Delphi)

Je nachdem, was Dein eigentliches Ziel ist, setzt Du dies auf .UpdateFile oder gleich auf die WriteXX-Methoden an. Diese Lösung ist dahingehend sehr mächtig, Du kannst die Werte der an die eigentliche Methode zu übergebenen Parameter abfragen und ändern oder den Aufruf gänzlich unterbinden.

[a.def]

Um euch aufzuklären:
wenn eine bestimmte Situation im Programm gegeben ist, sollte UpdateFile nichts schreiben dürfen.
Das war mein Hintergedanke. Ich könnte auch vor jedes UpdateFile einfach ein Abfrage schreiben aber das wäre eine echte 0815-Lösung.

[Fritzew]

Warum nicht einfach eine Kopie der System.Inifiles Unit im das Projekt aufnehmen
und die gewünschten Änderungen dort einpflegen?
Dann sind keine Änderungen ansonsten im Code notwendig

[a.def]

Daran habe ich auch schon gedacht. Aber darf ich das so einfach machen?
Leider habe ich "AutoSave" noch nicht (ab Berlin). Das würde ich mir dann in der eigenen Unit nachrüsten.

[Fritzew]

Zitat von a.def:

Daran habe ich auch schon gedacht. Aber darf ich das so einfach machen?
Leider habe ich "AutoSave" noch nicht (ab Berlin). Das würde ich mir dann in der eigenen Unit nachrüsten.

Klar kannst Du das machen. Solange Du es nicht als Source weitergibst ist das kein Problem

[a.def]

Meine Lösung für alle die es interessiert:

Delphi-Quellcode:

unit classIni;

interface

uses
 SysUtils, IniFiles;

type
 TMemIniFile_ = class(TMemIniFile)

 private
  FAutoSave: Boolean;
 public
  constructor Create(const FileName: string; const AutoSave: Boolean = True); overload;
  constructor Create(const FileName: string; const Encoding: TEncoding; const AutoSave: Boolean = True); overload;
  destructor Destroy; override;
 end;

implementation

{TMemIniFile}

constructor TMemIniFile_.Create(const FileName: string; const Encoding: TEncoding; const AutoSave: Boolean = True);
begin
 inherited Create(FileName, Encoding);
 FAutoSave := AutoSave;
end;

constructor TMemIniFile_.Create(const FileName: string; const AutoSave: Boolean = True);
begin
 inherited Create(FileName);

 FAutoSave := AutoSave;
end;

destructor TMemIniFile_.Destroy;
begin
 if FAutoSave then
  UpdateFile;

 inherited;
end;

end.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 IniF: TCustomIniFile;
begin
 IniF := TMemIniFile_.Create('.....', False);

 try
  IniF.WriteString('section', 'ident', 'value');
 finally
  IniF.Free;
 end;

Info zum Parameter False:
da sollte natürlich nicht einfach nur False stehen, da es nicht wirklich Sinn ergibt.
Mein Problem bestand darin, dass mein Programm keine Ini-Dateien schreiben soll, wenn es im aktuellen Verzeichnis keine Schreibrechte hat.
Das prüft mein Programm beim start und setzt ggf. eine globale Variable (eigene Unit, Record) auf False. Diese Variable übergebe ich dann als zweiten "AutoSave"-Parameter.
Wer mindestens Berlin hat, braucht das nicht.

Gefunden hier: http://www.delphipraxis.net/1352811-post18.html, von Fritzew

[stahli]

Mal eine Konkretisierung von Daniels Vorschlag:

Du könntest eine Unit uMyIniFiles erstellen und TIniFiles "überschreiben".

Delphi-Quellcode:

  TIniFile = class(IniFiles.TIniFile)
  public
    Blocking: Boolean;
    procedure UpdateFile; override;
  end;

...
procedure TIniFile.UpdateFile; 
begin
  if not Blocking then
    inherited;
end;

Wenn Du jetzt in allen uses-Blöcken deines Projektes IniFiles durch uMyIniFiles ersetzt kannst Du nun Blocking verwenden und damit UpdateFiles beeinflussen.

Du kannst so eine bestehende Klasse verändern (bei Beibehaltung des Klassennamens), wenn die betreffende Funktionalität überschreibbar ist.

[a.def]

Bei dieser Umsetzung habe ich jedoch eine Frage.
Wie sieht die konkrete Unit aus, wenn ich TMemIniFile benutzen möchte?
Denn eine Deklaration wie myIniFile: TCustomIniFile; funktioniert mit der Unit ja dann nicht mehr.

[himitsu]

PS: UpdateFile hilft nur bei der MemIni.
Die normale INI-API ändert die Datei immer sofort, mit jedem einzelnem WriteXyz-Befehl.

[a.def]

Zitat von himitsu:

PS: UpdateFile hilft nur bei der MemIni.
Die normale INI-API ändert die Datei immer sofort, mit jedem einzelnem WriteXyz-Befehl.

Das weiß ich. Deswegen benutze ich ja MemIniFile
Aber ich glaube ich sollte überall TCustomIniFile durch TMemIniFile ersetzen. Weil ich benutze TIniFile ja eh nicht.