Pfad von OpenPictureDialog in *.ini schreiben?

**Tim.exe**

Hallo,

In einem Programm schreibe ich die Stati einiger Edits, RadioButtons und Checkboxen in eine *.ini und lese diese wieder aus. In einem Edit wird der Pfad zu einem Bild welches in einem TImage dargestellt wird angezeigt. Der Pfad wird aber nicht in der *.ini gespeichert geschweige den ausgelesen. Geht des net oder muss man dabei was bestimmtes beachten?

Der code dieses Edits sieht so aus:

markieren

Delphi-Quellcode:

			On Create:

...

Edit1.Text := savestat.ReadString('Icon','Status1',Edit1.Text);

...

##################################

OnDestroy:

...

savestat.WriteString('Icon','Status1',Edit1.Text);

...

[Edit=Sakura]DELPHI-Tags eingefügt.[/Edit]

**APP**

Hallo Tim.exe,

leider beschreibst Du nicht was nicht geht, wenn Du z.B. Probleme mit INI-Dateien hast schau mal hier nach

Lesen von boolschen Werten aus INI-Dateien, oder Poste etwas mehr Code...

BTW:
Edit1.Text := savestat.ReadString('Icon','Status1',Edit1.Text); die Deklaration von ReadString sollte sein: ReadString(Section_in_der_INI-Datei,Key_in_der_INI-Datei, <DEFAULT>), wobei DEFAULT in diesem Fall vom Typ String d.h 'BlaBla' sein sollte;

**Tim.exe**

Hallo,

grundsätzlich habe ich keine Probleme mit *.ini's, wie gesagt schreibe ich mehrere Edits, RadioButtons, Checkboxen in eine *.ini und lese diese wieder aus. Das alles funktioniert wunderbar. Nur eben dieses Edit in dem ich den Pfad zu einem Bild speichern will wird nicht gespeichert.

Meine Frage ist ob man etwas beachten muss wenn man den Pfad eines OpenDialoges bzw. OpenPictureDialoges über eine Edit in ein *.ini speichern will. Der ganze code sieht ungefair so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			...

uses Inifiles, ...

...

OnCreate:

procedure TForm1.FormCreate(Sender: TObject);

var

savestat: TIniFile;

begin

savestat := TIniFile.Create('.\settings.ini');

SpinEdit1.Value := savestat.ReadInteger('Schedule1','Status1',SpinEdit1.Value);

SpinEdit2.Value := savestat.ReadInteger('Schedule2','Status1',SpinEdit2.Value);

edIconHint.Text := savestat.ReadString('IconHint','Status1',edIconHint.Text);

Edit1.Text := savestat.ReadString('Icon','Status1',Edit1.Text); //Dieses Edit will nicht (OpenPictureDialog)

CheckBox2.Checked:=savestat.ReadBool('Aktiv1', 'Status1', CheckBox2.Checked);

CheckBox3.Checked:=savestat.ReadBool('Aktiv2', 'Status1', CheckBox3.Checked);

SUIRadioButton1.Checked:=savestat.ReadBool('Tastaturein', 'Status1', SUIRadioButton1.Checked);

SUIRadioButton2.Checked:=savestat.ReadBool('Tastaturaus', 'Status1', SUIRadioButton2.Checked);

savestat.Free;

end;

####################################################

OnDestroy:

procedure TForm1.FormDestroy(Sender: TObject);

var

savestat: TIniFile;

begin

savestat := TIniFile.Create('.\settings.ini');

savestat.WriteInteger('Schedule1','Status1',SpinEdit1.Value);

savestat.WriteInteger('Schedule2','Status1',SpinEdit2.Value);

savestat.WriteString('IconHint','Status1',edIconHint.Text);

savestat.WriteString('Icon','Status1',Edit1.Text); //Dieses Edit will nicht (OpenPictureDialog)

savestat.WriteBool('Aktiv1', 'Status1', CheckBox2.Checked);

savestat.WriteBool('Aktiv2', 'Status1', CheckBox3.Checked);

savestat.WriteBool('Tastaturein', 'Status1', SUIRadioButton1.Checked);

savestat.WriteBool('Tastaturaus', 'Status1', SUIRadioButton2.Checked);

savestat.Free;

end;

[Edit=Sakura]DELPHI-Tags eingefügt.[/Edit]

**Tom**

Zitat von Tim.exe:

savestat := TIniFile.Create('.\settings.ini');

Ich vermute den Fehler hier: Du schreibst die INI in das aktuelle Verzeichnis. Das aktuelle Verzeichnis ist nicht zwingend Dein Programmverzeichnis! Ändere diese Zeile (auch unabhängig von Deinen konkreten Problem) in

markieren

Delphi-Quellcode:

			savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+

'settings.ini');

Schau mal, ob sich damit auch Dein Problem erledigt.

Am Rande: Du musst angeforderten Speicher immer freigeben. Nutze deshalb try/finally:

markieren

Delphi-Quellcode:

			... := ...Create(...);

try

  ...

finally

  ...free;

end;

Näheres zu try/finally findet sich in der Delphi-Hilfe.

**Tim.exe**

Hi,

es hat geklappt, mit deiner Zeile:

markieren

Delphi-Quellcode:

			{

savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+

'settings.ini');

}

wird dieses Edit endlich gespeichert, vielen Dank  :D 

genügt das nicht um den Speicher frei zugeben:

{

savestat.Free; 

}

[Edit=Sakura]DELPHI-Tags eingefügt.[/Edit]

**Tom**

Zitat von Tim.exe:

es hat geklappt, mit deiner Zeile:

Ein Wunder ... Suche mal in Deinem Bilder-Verzeichnis nach einer Settings.ini. Die kannst Du - glaub ich mal - löschen.

Zitat:

genügt das nicht um den Speicher frei zugeben:

Natürlich. Aber wo steht, dass Free überhaupt ausgeführt wird? Falls irgendwo zwischen Create und Free ein Fehler auftritt, wird bei Deinem Code Free nicht ausgeführt. Der Finally-Teil hingegen wird immer ausgeführt.

Tim.exe Registriert seit: 29. Apr 2003 186 Beiträge	#5 5. Mai 2003, 08:55 Hi, es hat geklappt, mit deiner Zeile: markieren Delphi-Quellcode: { savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+ 'settings.ini'); } wird dieses Edit endlich gespeichert, vielen Dank :D genügt das nicht um den Speicher frei zugeben: { savestat.Free; } [Edit=Sakura]DELPHI-Tags eingefügt.[/Edit] !!! Sigs stinken !!!
	Zitat

Pfad von OpenPictureDialog in *.ini schreiben?

Pfad von OpenPictureDialog in *.ini schreiben?

Forumregeln