INI Problem

[Akut-Programming]

Also ich hatte mir ne Prozedur zum speichern meiner Einstellungen geschrieben - leider bekomme ich eine Zugriffsverletzung, wenn ich diese ausführen will.

Meine Prozedur:

Delphi-Quellcode:

procedure Tfrm_main.prcSaveSettings;
var
   ini: TIniFile;
   i: integer;
begin
     ini := ini.Create('settings.ini');
     try
       if s_SaveRes = 1
       then begin
            ini.WriteInteger('Resolution', 'Save', 1);
            ini.WriteInteger('Resolution', 'Height', frm_main.Height);
            ini.WriteInteger('Resolution', 'Width', frm_main.Width);
       end else
       begin
            ini.WriteInteger('Resolution', 'Save', 0);
            ini.WriteInteger('Resolution', 'Height', 466);
            ini.WriteInteger('Resolution', 'Width', 641);
       end;

       if frm_settings.cbStartMax.Checked
       then begin
            ini.WriteInteger('Start', 'StartMax', 1)
       end else
           ini.WriteInteger('Start', 'StartMax', 0);
       begin
       end;

       if frm_settings.rbShowAllTables.Checked
       then begin
            ini.WriteInteger('TableOptions', 'ShowAll', 1);
            ini.WriteInteger('TableOptions', 'ShowSelected', 0);
       end;

       if frm_settings.rbShowThisTables.Checked
       then begin
            ini.WriteInteger('TableOptions', 'ShowAll', 0);
            ini.WriteInteger('TableOptions', 'ShowSelected', 1);
       end;
       frm_settings.lbTables.Items.SaveToFile(APPPATH + TABLEFILE);
     finally
     ini.Free;
     end;
end;

Ich habe sie beim beenden der Anwendung aufgerufen. - Kann mir jemand beim beheben des Fehlers helfen???

Gruß,

[Luckie]

Schon mal in Einzelschritten debuggt und gekuckt wo die Zugriffsverletzung kommt?

BTW:

Delphi-Quellcode:

ini := ini.Create('settings.ini');

Dass er die Ini beim Programm start findet ist reine Glückssache. Gib lieber den genauen Ort der Ini mit einer relativen Pfadangabe an.

[Akut-Programming]

Ich habs jetzt mal so versucht..

Delphi-Quellcode:

..
const INIFILE = 'settings.ini';
..
APPPATH := ExtractFilePath(Application.ExeName);
..
ini := ini.Create(APPPATH+INIFILE); //Beim einzel Debuggen kam hier die Fehlermeldung - weiter kommt er nicht.

Ich hab die Datei jetzt schon manuell angelegt - trotzdem -> der Fehler kommt :gruebel:

[Markus K.]

Hallo Akut-Programming,
versuche es mal so.

Delphi-Quellcode:

ini:=TInifile.Create('Pfad');

Hast du eventuell vergessen bei uses inifiles hinzuzufügen?

Tschüß Markus

[Luckie]

Genauso hat er es doch. Aber ich sehe da auch keinen Fehler.

[Akut-Programming]

Zitat:

Zitat von Markus K.

Hallo Akut-Programming,
versuche es mal so.

Delphi-Quellcode:

ini:=TInifile.Create('Pfad');

Tschüß Markus

Das mach ich doch schon - siehe oberer Beitrag! :gruebel:

Delphi-Quellcode:

ini.Create(APPPATH+INIFILE);// APPPATH Wurde mit dem Pfad zu meiner Anwendung belegt und INIFILE ist ne Konstante, die den Namen enthält!

[Akut-Programming]

Zitat:

Zitat von Luckie

Genauso hat er es doch. Aber ich sehe da auch keinen Fehler.

Deshalb, mir fällt hier auch nichts auf. Zumal - ich habe es in zich Anwendungen nicht anderst.. :wall:

[CalganX]

Hi,
ähm... :gruebel: Was ich gelernt habe, war, dass man Klassen/Objekte immer folgendermaßen initialisieren muss:

Delphi-Quellcode:

var
  aVar: TMeineKlasse;

// ...

aVar := TMeineKlasse.Create({u.U. Parameter})

Folglich müsste es folgendermaßen aussehen:

Delphi-Quellcode:

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

Chris

[Markus K.]

Sorry, bin blind :oops: .
Was bringt er denn für ne Fehlermeldung?

Tschüß Markus

[Akut-Programming]

Zitat:

Zitat von Chakotay1308

Folglich müsste es folgendermaßen aussehen:

Delphi-Quellcode:

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

Chris

Ich habe den Namen der Datei jetzt mal fest angegeben, also TIniFile.Create('settings.ini'); - trotzdem bekomme ich die Zugriffsverletzung! Dazu sei gesagt, das es egal ist, ob ich den Namen über Variablen übergebe oder ihn fest eintrage!

[Luckie]

Hm, wenn ich mich recht entsinne, wird die Ini-Datei ohne Pfadangabe in das Windowsverzeichnis geschrieben. Hast du da Schreibrechte? Aber es kommt mir schon komisch vor, dass du im anwendungsverzeichnis nichts anlegen kannst, denn das sollte ja zur Zeit das Verzeichnis sein in dem dein Projekt liegt und da solltest du Schreibrechte haben. Komisch irgendwie. :gruebel:

[Akut-Programming]

Hab mal geguckt, die Datei liegt nirgends. Er speichert sie einfach nicht. Habe alle Rechte - daran sollte es also nicht liegen. :gruebel:

[nTE]

Ich handhabe das Laden und Speichern von Inis immer so:

Delphi-Quellcode:

  if not FileExists(sIniName) then
    begin
      {$I-}
      AssignFile(SettingsIniFile, sIniName);
      Rewrite(SettingsIniFile);
      CloseFile(SettingsIniFile);
      {$I+}
    end; // if not FileExists(sIniName) then

  if IOResult = 0 then
    begin
      // Aufruf mit sIniName = ExtractFilePath(Application.ExeName) + 'name.ini'
      MyIni := TIniFile.Create(sIniName);
      with MyIni do
        begin
          ..
        end; // with MyIni do
    end; // if IOResult = 0 then

Kann sein, dass ich irgendwo mal gelesen habe, dass die TIniFile.Create die Datei nicht erstellt, wenn sie nicht vorhanden ist. Auf jeden Fall habe ich gerade nochmal ein wenig durch die Hilfe geblättert und nirgends gefunden, dass sie erstellt wird.

Naja, jedenfalls verwende ich das immer so, ob das die Endlösung ist sei mal dahingestellt. :P

[fiasko]

Zitat:

Zitat von nTE

Kann sein, dass ich irgendwo mal gelesen habe, dass die TIniFile.Create die Datei nicht erstellt, wenn sie nicht vorhanden ist.

Nein, das ist Quark. Die INI Datei wird angelegt falls sie nicht existiert, ansonsten würdest du ne ordentliche Exception und keine AV bekommen - das beudet ja eigentlich das irgendwo ein nicht/falsch gesetzter Pointer im Spiel ist. Und eine Exception in einem Konstruktor - darf sowas überhaupt sein?

Ansonsten fehlt deinem Code noch die Exception-Behandlung.

@Akut-Programming: Hast du das mal mit einzelschritt mit der Korrigierten ini:=TINIFile.Create(..) gemacht - fliegt er immernoch an der selben stelle raus?

[teebee]

Zitat:

Zitat von fiasko

Zitat:

Zitat von nTE

Kann sein, dass ich irgendwo mal gelesen habe, dass die TIniFile.Create die Datei nicht erstellt, wenn sie nicht vorhanden ist.

Nein, das ist Quark. Die INI Datei wird angelegt falls sie nicht existiert,

Nein, stimmt auch nicht. Die INI-Datei wird, falls noch nicht vorhanden, erst bei einem Schreibzugriff angelegt. (Das auch nur, wenn die gewünschte Verzeichnis-Hierarchie schon besteht. Es werden keine Verzeichnisse angelegt!)
Das Create erzeugt nur ein Objekt, das den Filenamen 'verwaltet', siehe VCL-Source.
Wenn man das INI-Fileobjekt mit "TIniFile.Create('...')" anlegt, kann es, völlig unabhängig vom Dateinamen, eigentlich keine Schutzverletzung geben. Eine Schutzverletzung spricht eher dafür, dass im Sourcecode noch "Ini.Create..." steht, wie schon ganz oben angesprochen.

Gruß, teebee

[Ratte]

Hi,

so mach ich das immer:

Delphi-Quellcode:

 ini := Tinifile.Create(extractfilepath(paramstr(0))+'settings.ini');

Ratte

[Akut-Programming]

Abend

Zitat:

Zitat von fiasko

@Akut-Programming: Hast du das mal mit einzelschritt mit der Korrigierten ini:=TINIFile.Create(..) gemacht - fliegt er immernoch an der selben stelle raus?

Ja das hab ich getan - er fliegt immernoch raus! :?

Zitat:

Zitat von teebee

Nein, stimmt auch nicht. Die INI-Datei wird, falls noch nicht vorhanden, erst bei einem Schreibzugriff angelegt. (Das auch nur, wenn die gewünschte Verzeichnis-Hierarchie schon besteht. Es werden keine Verzeichnisse angelegt!)..

Ich habe den Pfad für die Datei wie schon gesagt über Pfad der Anwendung und den Dateinamen zusammengestellt. Aber will nur einfach nicht funktionieren. Ich werde es einfach nochmal neu aufbauen denk ich mal.

Gruß,

[APP]

Hallo Akut-Programming,
kann sein das ich beim querlesen was übersehen habe, aber
einige haben Dir schon gezeigt, wie das Ini-Objekt erzeugt werden muß:

Code:

ini := ini.Create(<PfadUndDateiname>);     // Falsch
ini := [b][color=red]TIniFile[/color][/b].Create(<PfadUndDateiname>);  // <-- Objekt korrekt erzeugen

Hast Du das in Deinem Code schon angepasst?

[EDIT]
VERGISS ES- ICH HABE BEIM QUERLESEN TATSÄCHLICH WAS ÜBERLESEN, SORRY :oops:
[/EDIT]

[Akut-Programming]

Jetzt fragt mich nich wie ichs gemacht hab, aber zumindest gehts... ich kam grad auf Arbeit, mache den Computer an und starte Delphi und meine Anwendung - aufeinmal funzt es. :gruebel: Muss ich das verstehen??

Gruß,