Ini Datei wird nicht erstellt...

[Codix32]

Zitat von EWeiss:

Warum wird die INI nicht im richtigen Pfad angelegt?
In dem auch schreib und generelle Zugriffsrechte vorhanden sind?

Das ist sicherlich nicht Paramstr(0).
Siehe CSIDL_APPDATA

Zitat:

P.S.
Du mußt nicht so laut um Hilfe rufen.

Ah jo wäre bei Laut eher HILFE anstelle von Hiiilfe.

gruss

Hm, also der Schreibzugriff hat ja funktioniert, aber das Auslesen geht nicht

Das hier geht:

Delphi-Quellcode:

procedure TForm1.erzeugeIni(IniName:string);
var
  ini:TIniFile;
begin
ini := TIniFile.Create(extractfilepath(paramstr(0))+IniName + '.ini');
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
 try
  ini.WriteString('Sektion1', 'Name', form2.Edit1.text);
  // String in Sektion1 unter Eigenschaft1 abspeichern
  ini.WriteString('Sektion2', 'Gesamtkreditsumme', Gesamtkreditsum);
  ini.WriteString('Sektion2', 'Ratenhoehe', Ratenhöhe);
  ini.WriteString('Sektion2', 'Ratenanzahl', Ratenanzhl);
  ini.WriteString('Sektion3', 'Restsumme', Restsum);
  ini.WriteString('Sektion3', 'Sonderrate', Sonderrat);
 finally
ini.Free;
// Variable ini wieder freigeben
end;
end;

Die Ini Datei wird angelegt, mit den Werten, aber das Auslesen geht nicht:

Delphi-Quellcode:

procedure TForm1.leseIni(IniName:string);
var
  ini:TIniFile;
  filename: String;

begin
filename := extractfilepath(paramstr(0))+IniName + '.ini';
Label5.Caption:=filename;
ini := TIniFile.Create(filename);
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
 try
  Form1.Caption:=ini.ReadString('Sektion1', 'Name','');
  Gesamtkreditsum:=ini.ReadString('Sektion2', 'Gesamtkreditsumme','');
  Ratenhöhe:=ini.ReadString('Sektion2', 'Ratenhoehe', '');
  Ratenanzhl:=ini.ReadString('Sektion2', 'Ratenanzahl', '');
  Restsum:=ini.ReadString('Sektion3', 'Restsumme', '');
  Sonderrat:=ini.ReadString('Sektion3', 'Sonderrate','');
  //
 finally
  ini.Free;
// Variable ini wieder freigeben
end;
end;

und was nun bedeutet 'CSIDL_APPDATA'

[EWeiss]

UAC eingeschaltet?
Mach mal aus und teste noch mal dann verstehst du vielleicht was ich meine

gruss

[Codix32]

Zitat von EWeiss:

UAC eingeschaltet?
Mach mal aus und teste noch mal dann verstehst du vielleicht was ich meine

gruss

Was meinst Du damit?

[EWeiss]

Zitat von Codix32:

Zitat von EWeiss:

UAC eingeschaltet?
Mach mal aus und teste noch mal dann verstehst du vielleicht was ich meine

gruss

Was meinst Du damit?

Sorry wenn du das nicht weist kann ich dir nicht helfen das sind grundlegende Computer Kenntnisse.
Na Ok.. Hier

Dateien mit schreib und lese zugriffe sollten in einem Ordner abgelegt werden
Wo die Zugriffsrechte auch vorhanden sind.

Zitat:

Hm, also der Schreibzugriff hat ja funktioniert, aber das Auslesen geht nicht

Nur weil es Mal funktioniert hat muss es noch lange nicht richtig sein


gruss

[jaenicke]

Hier habe ich zu den Schreibrechten auf den eigenen Ordner mal einen kleinen Artikel geschrieben:
http://www.entwickler-ecke.de/viewtopic.php?p=548600

[Codix32]

Zitat von jaenicke:

Hier habe ich zu den Schreibrechten auf den eigenen Ordner mal einen kleinen Artikel geschrieben:
http://www.entwickler-ecke.de/viewtopic.php?p=548600

Danke jaenicke,

die UAC habe ich ganz runtergefahren. Da gibt's nichts zu bestätigen.

Dann:

Delphi-Quellcode:

filename := extractfilepath(paramstr(0))+IniName + '.ini';
Label5.Caption:= filename;

Da wird dann der komplette Pfad angezeigt:
c:\users\XXXX\Dokuments\Borland Studio-Projekte\My_proggis\Raten-mit-IniFile\MyKreditInif.ini

Die Funktion 'GetSpecialFolder' habe ich mal so getestet:

 MessageDlg (GetSpecialFolder (CSIDL_APPDATA), mtInformation, [mbOK], 0); Da kriege ich den Pfad: C:\users\XXXX\Favorites

Und in der LeseIni:

Delphi-Quellcode:

procedure TForm1.leseIni(IniName:string);
var
  ini:TIniFile;
  filename: String;
begin
filename:=GetSpecialFolder(CSIDL_APPDATA)+'\'+Ininame+ '.ini';
Label5.Caption:=filename;
ini := TIniFile.Create(filename);
...

kriege ich den Pfad: C:\Users\XXXX\AppData\Roaming\MyKreditInif.ini
Aber die Variablen bleiben leer, es wird nichts eingelesen.
Also was mache ich da noch falsch?

[Popov]

Ist zwar schon uralt und ich nutze inzwischen neuere Versionen, aber hier meine alten EasyIniAppExe, EasyIniAppDataExe und EasyRegAppExe. Zu gebrauchen für schnelles speichern. Nachteil, nichts für große Mengen und es gibt immer nur eine Ini pro Unit. Vorteil, man muss sich nicht um den Speicherort kümmern und allein durch den Tausch der Unit kann man entscheiden wo die Infos landen - in der Ini im Programmordner, in Appdata Ordner oder in der Registry.

[p80286]

Zitat von Codix32:

Dann:

Delphi-Quellcode:

filename := extractfilepath(paramstr(0))+IniName + '.ini';
Label5.Caption:= filename;

Da wird dann der komplette Pfad angezeigt:
c:\users\XXXX\Dokuments\Borland Studio-Projekte\My_proggis\Raten-mit-IniFile\MyKreditInif.ini

Die Funktion 'GetSpecialFolder' habe ich mal so getestet:

 MessageDlg (GetSpecialFolder (CSIDL_APPDATA), mtInformation, [mbOK], 0); Da kriege ich den Pfad: C:\users\XXXX\Favorites

Und in der LeseIni:

Delphi-Quellcode:

procedure TForm1.leseIni(IniName:string);
var
  ini:TIniFile;
  filename: String;
begin
filename:=GetSpecialFolder(CSIDL_APPDATA)+'\'+Ininame+ '.ini';
Label5.Caption:=filename;
ini := TIniFile.Create(filename);
...

kriege ich den Pfad: C:\Users\XXXX\AppData\Roaming\MyKreditInif.ini
Aber die Variablen bleiben leer, es wird nichts eingelesen.
Also was mache ich da noch falsch?

Leider ist es mir beim ersten Mal nicht aufgefallen, Du solltest statt GetSpecialFolder
SHGetFolder oder einen seiner engen Verwandten nutzen, dann solltest Du auch vernünftige Ergebnisse bekommen.

Gruß
K-H

[Sir Rufo]

Zitat:

und was nun bedeutet 'CSIDL_APPDATA'

Frag doch mal Tante google ...