Zugriffsverletzung bei Adresse 00000000 bei TImage

[SuperSeb]

@DeddyH: O, stimmt. Tut mir Leid, hab oben das falsch geschrieben. Ist natürlich im Original-Code richtig mit Parameter.

@3_of_8: Bin dran...

[himitsu]

muß man TImage nicht beim .Create einen Owner übergeben?

Zitat:

Zitat von SuperSeb

@DeddyH: O, stimmt. Tut mir Leid, hab oben das falsch geschrieben. Ist natürlich im Original-Code richtig mit Parameter.

und welches Objekt hast du da als Owner übergeben?

[SuperSeb]

@3_of_8: Also, bin jetzt Zeile für Zeile durchgesprungen - läuft ohne Probleme. Der Fehler tritt erst auf, wenn man die Form schließt.

@himitsu: Also den AOwner habe ich durchgeschleift, d.h. das ist der des Klassen-Konstructors. Wahrscheinlich liegt hier der Hase im Pfeffer. Beim Erzeugen eines Objekts hatte ich dem Constructor schon mal Application mitgegeben, dann auch mal den eigenen Objektnamen. Es machte bisher keinen Unterschied und funktionierte Einwandfrei - habe auch schon gegooglet, aber so richtig schlau geworden, wo der Unterschied liegt, bin ich nicht.

Vielleicht sollte ich noch dazu sagen (jetzt werde ich wahrscheinlich gesteinigt), dass ich das Objekt unter initialization instanziere, denn wenn ich das erst bei FormCreate einbaue (habs mal getestet), kommt ein schöner Fehler.

[DeddyH]

Dann zeig doch mal die relevanten Quellcode-Stellen, bevor wir hier weiter in einer Blackbox herumstochern.

[3_of_8]

Gibst du das Bild auch wieder irgendwann frei?

[DeddyH]

Nur im Destruktor, hat er weiter oben gesagt.

[SuperSeb]

@ 3_of_8:

Zitat:

[...] einmal im destructor.

@DeddyH: bitteschön:

Delphi-Quellcode:

initialization
  Klasse := TKlasse.Create(Klasse); //Ob das wohl so stimmt???
end.

Delphi-Quellcode:

//Klassendefinition habt ihr ja schon oben

constructor TKlasse.Create(AOwner: TComponent);
var
begin
  inherited Create(AOwner);
  Bild := TImage.Create(AOwner);
  with Bild do
  begin
    Parent := Self;
    Transparent := true;
    //usw. - alles, was man hier tun will, geht, ohne dass es beim Schließen einen Fehler erzeugt
  end;
end;

destructor TKlasse.Destroy;
begin
  Bild.Free; //da wirds gekillt
end;

Wenn ich jetzt in irgendwelche "hauseigenen" Prozeduren (z.B. wie oben procedure TKlasse.MachWas;) z.B. Bild.Top := 5; reinschreibe, dann gibts beim Schließen n Fehler

Was mich ja am Meisten fuchst, ist, dass - wenn ich die Passage aus der Prozedur rausnehme - sowohl "Bild" als auch das andere TImage-Objekt funktioniert

[3_of_8]

Okay. Du übergibst also dem Image einen Owner und gibst das Image frei, wenn deine Klasse freigegeben wird. Jetzt wird der Owner selbst freigegeben und hat noch das Image, um das er sich ja kümmern soll, und versucht es freizugeben. Was passiert, wenn man ein bereits freigegebenes Objekt nochmal freigeben will? Richtig, es kracht. :mrgreen:

Also: Übergib nil als Owner.

[SuperSeb]

Danke für deine Antwort.

Habe jetzt folgendes im Konstruktor stehn:

Delphi-Quellcode:

//...
Bild := TImage.Create(nil);
//...

...aber es kracht immer noch. Diemal sagt er (mal etwas konkreter): Exception der Klasse EInvalidPointer Meldung: "Ungültige Zeigeroperation"

Hmmm... Mist.

Was nu?

:glaskugel:

[mkinzler]

Hast du mal durch schrittweises Ausführen im Debugger versucht herauszufinden in welcher Zeile der Fehler auftritt?