Prog lesst sich nich complimieren!

hanibal · Beiträge: 157 Win xp d7 eterprise

wenn ich mein prog starte, kommt volgender fehler:
"Zugriffs verletzung bei Adresse 00402b2. Lesen von Adresse 00402b2"

woran liegt das?

und wie kann ich das beheben?

mkinzler · Verfasst: Mo 19.06.06 15:05

Beim Starten oder beim Compilieren? Führe es mal im debugger aus, um zu sehen, bei welchem Befehl der Fehler auftritt.

_________________
Markus Kinzler.

jasocul · Verfasst: Mo 19.06.06 15:09

So kann dir wohl niemand helfen.
Du schreibst im Titel, dass du nicht kompilieren kannst. Im Text kommt dann die Info, dass du eine Fehlermeldung beim Start des Programms bekommst.
Bei den restlichen Infos kann ich nur sagen, dass das ein Zugriffsfehler ist. Das kann 1000e von Ursachen haben.
Vielleicht solltest du dein Programm debuggen, um die Fehlerstelle einzugrenzen und dann den entsprechenden Source hier reinstellen.

hanibal · Beiträge: 157 Win xp d7 eterprise

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

play_i:= none;
STOP_i:= none;
Next_i:= none;
Last_i:= none;
Load_i:= none;

da bleibt der cusor stehen

Moderiert von jasocul: Delphi-Tags hinzugefügt

Gausi · Verfasst: Mo 19.06.06 15:30

Daran kann man immer noch nichts erkennen. Voll ins Blaue geraten würde ich mal das None durch Nil ersetzen, aber sonst...

Was ist play_i usw? Was soll die Zuweisung bewirken? Was ist None?

_________________
We are, we were and will not be.

hanibal · Beiträge: 157 Win xp d7 eterprise

das is n eigener type

hab ich schon erstetzt durch ein anderen

geht jetz, aber jetz is der fehler da:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.Run;
end.   <----- da bleibt der cusor stehen

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

man, wie soll dir denn jemand bei diesen fetzen helfen können :roll:

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

mkinzler · Verfasst: Mo 19.06.06 15:57

Poste mal dei ganze Projekt-Datei.

_________________
Markus Kinzler.

hanibal · Beiträge: 157 Win xp d7 eterprise

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  UltimaTag in 'UltimaTag.pas',
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {option},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit11 in 'Unit11.pas' {Form11},
  Unit12 in 'Unit12.pas' {Form12},
  Unit13 in 'Unit13.pas' {Form13},
  Unit14 in 'Unit14.pas' {Form14},
  Unit15 in 'Unit15.pas' {Form15},
  circle_vis in 'circle_vis.pas',
  CommonTypes in 'CommonTypes.pas',
  osc_vis in 'osc_vis.pas',
  spectrum_vis in 'spectrum_vis.pas',
  bass in 'bass.pas',
  sysadmin in 'sysadmin.pas',
  ulinkfile in 'ulinkfile.pas',
  Unit16 in 'Unit16.pas' {Form16};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'MPlayer';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(Toption, option);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.Run;
end.

Moderiert von Christian S.: Delphi-Tags hinzugefügt

mkinzler · Verfasst: Mo 19.06.06 16:05

Also so sieht man keinen Fehler. Ich würde das Projekt mal auf weniger Formulare beschränken und so sehen, wo der Fehler im Detail auftritt.

-Werden wirklich alle 16 Formulare von Anfang an/gleichzeitig benötigt oder wäre es vielleicht sinnvoll dynamisch zu erzeugen.

BTW. Das Setzen des Delphi-Tags würde die lesbarkeit hier ungemein erleichtern.

Ich vermute mal ohne den kompletten Source wird die hier niemnad helfen können, da dein Projekt sehr umfangreich zu sein scheint und der Fehler sich möglicherweise im Detail versteckt.

_________________
Markus Kinzler.

hanibal · Beiträge: 157 Win xp d7 eterprise

ja, ist sehr umfangreich(5MB)

ich glaube ich habe schon einen hinweis gefunden, immer wenn ich eine bestimmte zeile entfehrne, kann ich starten, bein nectsten mal starten, kommt wieder der fehler.

wenn ich die zeile wieder einfüge, startet er wieder, und beim zweiten mal nich, usw...

AXMD · Verfasst: Mo 19.06.06 16:51

Vielleicht wäre es nicht schlecht, wenn du diese Zeile dann hier posten würdest

AXMD

hanibal · Beiträge: 157 Win xp d7 eterprise

markieren

Delphi-Quelltext

1:	erst_start := true;

crowley · Verfasst: Di 20.06.06 13:36

hanibal hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

{...}
begin
  Application.Initialize;
  Application.Title := 'MPlayer'; { setz mal bitte hier hin einen breakpoint}
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(Toption, option);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.Run;
end.

setz da mal einen breakpoint hin und geh mal die einzelnen createform mit F7 durch... und wenn du beim run bist... auch weiter mit F7... und die funktion bzw. prozedur, in der der fehler auftaucht, kopierst du mal bitte komplett hier rein, ja?

alias5000 · Verfasst: Di 20.06.06 13:55

Oder du schaust, was ausgeführt wird, wenn erst_start = true ist! In diesem Abschnitt wird die Exception dann vermutlich auftreten

_________________
Programmers never die, they just GOSUB without RETURN

hanibal · Beiträge: 157 Win xp d7 eterprise

wie setzt man einen breakpoint?

hanibal · Beiträge: 157 Win xp d7 eterprise

hab das problem gefunden!

lag an einenm timer, der etwas laden sollte, was nicht exestiert.

hab das entfehrtn :oops:

daher auch die verzögerung...

und danke für den tipp mit dem F7! hat geklappt, in der zeile stehen geblieben!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme