Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi EAccessViolation nach Ende des Constructors (https://www.delphipraxis.net/125417-eaccessviolation-nach-ende-des-constructors.html)

Desmulator 5. Dez 2008 19:38


EAccessViolation nach Ende des Constructors
 
Erstmal guten Abend,
ich habe mir, mit Aussichten auf eine 3D-Simulation, vorgenommen, eigene Fensterklassen zu schreiben. Das Prinzip ist einfach.
Application -> WindowClass -> Window, alles schön und gut. Jedoch, nachdem der Constructor des TWindow abgelaufen ist, kommt es zu einer Zugriffsverletzung die ich mir beim besten Willen nicht erklären kann. Es werden weder Speicherbereiche gelöscht, beschrieben. Auch alle dynamischen Arrays wurden vorzeitig verlängert.

Delphi-Quellcode:
{ Constructor TWindow's }
constructor TWindow.Create(WindowClass : TWindowClass; Title : String; Width, Height, X, Y : Integer; Parent : HWnd = 0; Style : TWindowStyles = [Overlapped, Caption, SystemMenu, SizeableBox, MinimizeButton, MaximizeButton]);
begin
  inherited Create;
  self.FTitle := Title;
  self.FWidth := Width;
  self.FHeight := Height;
  self.FPositionX := X;
  self.FPositionY := Y;
  self.FWindowClass := WindowClass;
  self.FStyle := Style;
  self.FParent := Parent;
  self.CreateHandle;

  { Würde ich hier weitern Code einfügen, so würde dieser ebenfalls korrekt ausgeführt werden. }
  { Somit kann CreateHandle ausgeschlossen werden. }

end;

{ Aufruf des Constructors }
function TWindowClass.NewWindow(Title : String; Width, Height, X, Y : Integer; Parent : HWnd = 0; Style : TWindowStyles = [Overlapped, Caption, SystemMenu, SizeableBox, MinimizeButton, MaximizeButton]) : TWindow;
begin
  SetLength(self.FWindows, Length(FWindows) + 1);
  { Hier wird aufgerufen. }
  Result := TWindow.Create(self, Title, Width, Height, X, Y, Parent, Style);
  FWindows[High(FWindows)] := Result;
end;
Ich habe sogar auf eventuelle Fehler in der WindowProcedure geprüft, doch diese besteht atm. nur aus eine Weitergabe an DefWindowProc.

Ich bin echt Rahtlos.
MfG
Desmu

mkinzler 5. Dez 2008 19:42

Re: EAccessViolation nach Ende des Constructors
 
Was macht den CreateHandle genau?

Fussball-Robby 5. Dez 2008 19:55

Re: EAccessViolation nach Ende des Constructors
 
Hey,
zunächst mal: Soweit ich weiß, sind die ganzen self.XXX in einer Methode unnötig. Dadurch wird die AV aber wahrscheinlich nicht hervorgerufen. Welche Speicheradresse wird denn angegeben?

sirius 5. Dez 2008 20:02

Re: EAccessViolation nach Ende des Constructors
 
Von Welcher Klasse leitest du ab?
Hast du die Methode AfterConstruction überschrieben?

Desmulator 5. Dez 2008 20:08

Re: EAccessViolation nach Ende des Constructors
 
Zitat:

Zugriffsverletzung bei Adresse 00403674 ... Lesen von Adresse 00000020.
CreateHandle löst nur die Styleenumeration in die Windowsflags auf. Also nicht wildes. Das ganze geschieht in einem Block von if's. Dabei wird eine Variable ge"or"t, die ich zuvor auch 0 gesetzt habe.

Ich leite jeder dieser Klassen von TObject ab und AfterConstruction nicht überschrieben.

Das ganze self. gezeugs mach ich nur, weil ich finde, dass es einfach schöner, aufgeräumter aussieht. Angewohnheit aus PHP. ( $this->xxx muss man ja immer notieren. )


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz