Entwickler-Ecke

Dateizugriff - Access Violation bei Programmstart


the-chosen1 - Mo 05.04.10 18:25
Titel: Access Violation bei Programmstart
Hey Leute ;)
Habe folgendes problem. Ich möchte beim Start meines Programmes eine Datei laden. Allerdings bekomme ich immer einen Accessviolation Error.
Was ich eigentlich machen will ist, dass das Programm beim Start eine Ini datei läd.
Wie bekomm ich nun am einfachsten diese Zugriffsverletzung weg?


ALF - Mo 05.04.10 18:29

Welches Windows? Wo liegt die ini? ein bischen mehr infos währe nicht schlecht!
Gruss ALf


Gausi - Mo 05.04.10 18:34

Hallo und :welcome: in der Entwickler-Ecke,

Eine Access-Violation deutet darauf hin, dass du ein Objekt nicht (korrekt) erzeugt hast, bevor du darauf zugreifst. Zeig mal den entsprechenden Code. Ich tippe mal blind auf ein MyInifile.Create, wo ein MyInifile := TIniFile.Create stehen sollte ;-).


the-chosen1 - Mo 05.04.10 18:35

user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:
Welches Windows? Wo liegt die ini? ein bischen mehr infos währe nicht schlecht!
Gruss ALf


Windows XP 32bit
Delphi 7 Personal
Die ini liegt im Programmverzeichnis.
Ansonsten hab ich das problem aber schon immer. Ich kann dateien z.b. In textfelder laden, wenn ich einen Butten drücke, wenn ich aber über Form1.Create die Datei lade, kommt dieser Access violation error.
Auch wenn ich über Form1.Create den Button ausführe
Also
Button10.click; kommt der Error

---Moderiert von user profile iconNarses: Beiträge zusammengefasst---

user profile iconGausi hat folgendes geschrieben Zum zitierten Posting springen:
Hallo und :welcome: in der Entwickler-Ecke,

Eine Access-Violation deutet darauf hin, dass du ein Objekt nicht (korrekt) erzeugt hast, bevor du darauf zugreifst. Zeig mal den entsprechenden Code. Ich tippe mal blind auf ein MyInifile.Create, wo ein MyInifile := TIniFile.Create stehen sollte ;-).


Ja ich habe ein MyInifile.Create da stehen ;)
Wie sieht es denn korekt aus?


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
procedure TForm3.FormCreate(Sender: TObject);
var
  TheMStream : TMemoryStream;
  Zero : char;
  ini: Tinifile;  
begin
 ini:=TIniFile.Create('.\settings.ini');
  form11.HotKey1.HotKey:= TextToShortcut(ini.ReadString('Hotkeys','Play',''));
  form11.HotKey2.HotKey:= TextToShortcut(ini.ReadString('Hotkeys','Next',''));
 ini.free;
end;


ALF - Mo 05.04.10 18:58

was soll der Punkt

Delphi-Quelltext
1:
ini:=TIniFile.Create('.\settings.ini');                    

da drin?
Das ist doch nicht PHPcode :wink:
Und wenn sie im Exe ordner liegt, ist es trotzdem nicht gut, auf verdacht die ini so zu laden!
Besser ist,

Delphi-Quelltext
1:
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\settings.ini');                    

ist da sicherer.
Gruss Alf


the-chosen1 - Mo 05.04.10 19:09

user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:
was soll der Punkt

Delphi-Quelltext
1:
ini:=TIniFile.Create('.\settings.ini');                    

da drin?
Das ist doch nicht PHPcode :wink:
Und wenn sie im Exe ordner liegt, ist es trotzdem nicht gut, auf verdacht die ini so zu laden!
Besser ist,

Delphi-Quelltext
1:
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\settings.ini');                    

ist da sicherer.
Gruss Alf



Okay, vielen dank für den tipp ;)
Leider hat das nichts an meinem Problem geändert, da der Fehler immer noch kommt :(


Gausi - Mo 05.04.10 19:12

Wann wird der Code denn genau aufgerufen? Wenn das OnCreate einer Form aufgerufen wird, sind möglicherweise einige andere Formen noch nicht erzeugt. Wenn der Fehler beim ButtonClick nicht mehr kommt, könnte das an so etwas liegen...


the-chosen1 - Mo 05.04.10 19:15

user profile iconGausi hat folgendes geschrieben Zum zitierten Posting springen:
Wann wird der Code denn genau aufgerufen? Wenn das OnCreate einer Form aufgerufen wird, sind möglicherweise einige andere Formen noch nicht erzeugt. Wenn der Fehler beim ButtonClick nicht mehr kommt, könnte das an so etwas liegen...

Unmittelbar bei dem Start des Programms.
Ich hab insgesamt 11 formen. Es werden aber nur 2 gezeigt.
Ich füre den Script bei Form1.OnCreate aus. Da Form1 meine MainForm ist also sofort.
Aber wie könnte ich denn das problem umgehen?


Delete - Mo 05.04.10 19:15

user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:
was soll der Punkt

Delphi-Quelltext
1:
ini:=TIniFile.Create('.\settings.ini');                    

da drin?
Das ist doch nicht PHPcode :wink:

Augen auf. Der Punkt gehört zur Zeichenkette und repräsentiert das aktuelle Arbeitsverzeichnis.


Gausi - Mo 05.04.10 19:20

user profile iconthe-chosen1 hat folgendes geschrieben Zum zitierten Posting springen:
Unmittelbar bei dem Start des Programms.
Ich hab insgesamt 11 formen. Es werden aber nur 2 gezeigt.
Ich füre den Script bei Form1.OnCreate aus. Da Form1 meine MainForm ist also sofort.
Aber wie könnte ich denn das problem umgehen?


Greifst du denn auf eine andere Form zu? In dem Code oben, wird im Create von Form3 auf Form11 zugegriffen, die dann wahrscheinlich noch nicht da sein dürfte.

Umgehung des Problems: Z.B. die Ini offen lassen und im Create der anderen Formen auch darauf zugreifen. Oder die Daten aus der Ini in eine geeignete Struktur lesen (die dann auch für einen eventuellen Einstellungsdialog genutzt werden kann) und diese Struktur beim Create der einzelnen Forms verwenden. Oder jede Form holt sich die Daten selbst aus der Inidatei. Oder du packst das ins OnShow der Form und merkst dir danach, dass du das einmal getan hast, damit das nicht nochmal durchgeführt werden. ...


the-chosen1 - Mo 05.04.10 19:29

Moderiert von user profile iconNarses: Komplett-Zitat des letzten Beitrags entfernt.

Ah VIELEN dank!
Ja stimmt... Form11 wird ja auch beim start erstellt, also kann ich einfach den Script in Form11.OnCreate reinschreiben ;)
Aber was meinst du mit die ini einfach offen lassen?
 ini.free;
weg lassen und dafür in jede der verwendeten formen
 ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'settings.ini');
reinschreiben?


Gausi - Mo 05.04.10 19:37

Nein, man könnte die ini als Variable der Form definieren (also nicht lokal in der Create-Methode) und von den späteren Formen auf Form1.Ini zugreifen. Schön ist das aber nicht. ;-)
Besser wäre da schon, wenn du den Code aus Form1.Create einfach auf die einzelnen Formen aufteilst und jeweils nur den passenden Teil aus der Ini liest, also


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
procedure TFormX.FormCreate(Sender: TObject);
var
  ini: Tinifile;  
begin
  ini:=TIniFile.Create('.\settings.ini'); // Verbesserungen aus den anderen Postings hier einfügen ;-)
  try  
     lese Optionen für Form X
  finally
    ini.free;
  end;
end;


the-chosen1 - Mo 05.04.10 19:40

Moderiert von user profile iconNarses: Komplett-Zitat des letzten Beitrags entfernt.

Okay viele dank ;) Schätze so wird das klappen ;)
Nur eine Frage noch: :D
Warum ist es nicht "schön" auf Form1.Ini zuzugreifen?


ALF - Mo 05.04.10 19:41

user profile iconLuckie hat folgendes geschrieben Zum zitierten Posting springen:
Augen auf. Der Punkt gehört zur Zeichenkette und repräsentiert das aktuelle Arbeitsverzeichnis.

Ooops, warum rufe ich das so nie auf :gruebel:
Egal, habe wenigstens was dazugelernt :wink:
Hat aber keine Lösung seines Probs gebracht.

@the-chosen1,
Ich teste auch trotzdem noch, ob die ini überhaupt da ist, bevor ich sie zum lesen öffne.

Delphi-Quelltext
1:
if not FileExists(ExtractFilePath(ParamStr(0)) + '\settings.ini'then                    

Kann ja auch sein das sie mal gelöschht wird.

Gruss Alf


elundril - Mo 05.04.10 19:41

ich würde sagen deswegen: http://de.wikipedia.org/wiki/Datenkapselung_%28Programmierung%29


Delete - Mo 05.04.10 20:48

user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:
user profile iconLuckie hat folgendes geschrieben Zum zitierten Posting springen:
Augen auf. Der Punkt gehört zur Zeichenkette und repräsentiert das aktuelle Arbeitsverzeichnis.

Ooops, warum rufe ich das so nie auf :gruebel:

Weil du nicht weißt, welches das aktuelle Arbeitsverzeichnis ist. Deswegen soll man das auch nicht machen.