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
ALF hat folgendes geschrieben : |
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 Narses: Beiträge zusammengefasst---
Gausi hat folgendes geschrieben : |
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
ALF hat folgendes geschrieben : |
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
Gausi hat folgendes geschrieben : |
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
ALF hat folgendes geschrieben : |
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
the-chosen1 hat folgendes geschrieben : |
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 Narses: 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'); try lese Optionen für Form X finally ini.free; end; end; |
the-chosen1 - Mo 05.04.10 19:40
Moderiert von Narses: 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
Luckie hat folgendes geschrieben : |
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
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!