Quellcode wird nicht compiliert. Compiler meldet keinen Fehler.

[FriendOfDelphi]

Zitat von Luckie:

Zitat von FriendOfDelphi:

Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

Was müssen wir tun, damit du ihn uns zeigst?

Lach
Gar nichts, außer vielleicht zu sagen, in welcher Art und weise ich ihn senden soll.
Möchte mir nicht wieder einen "Rüffel" holen, dass ich irgendetwas falsch gemacht habe und unwissentlich gegen irgendwelche Forumsregeln verstoßen habe.
Dafür ist mir das hier zu wichtig. Hier im Forum herrscht ein gewisses Niveau vor, das woanders nicht so ist und ich daher nicht missen möchte.
Das Programm besteht, wie gesagt aus zwei Units.
Soll ich es als ZIP-Datei anhängen, oder beide Quellcodes als Text senden?

[Luckie]

Zitat von FriendOfDelphi:

Zitat von Luckie:

Zitat von FriendOfDelphi:

Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

Was müssen wir tun, damit du ihn uns zeigst?

Lach
Gar nichts, außer vielleicht zu sagen, in welcher Art und weise ich ihn senden soll.

Wie wäre es mit posten des relevanten Codeteiles?

[FriendOfDelphi]

Hier Teile der "Test-Unit":

Delphi-Quellcode:

[...schnipp...]

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  UNotifikationen;                                                         //<-- die verwendete, eigene Unit

[...schnipp...]

var
  Form1: TForm1;
  Test: TNotifikationen; //<-- die verwendete Klasse aus eigenen Unit

[...schnipp...]

procedure TForm1.FormCreate(Sender: TObject); //<-- und die beiden Methoden aus der Klasse
begin
  Test.Create(self);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Test.Destroy;
end;

end.

Hier Teile der eigenen Unit:

Delphi-Quellcode:

[...schnipp...]

type
  TNotifikationen = class(TWinControl)
    procedure WMAdsDeviceNotificationSRr( var Message: TMessage );
    message WM_ADSDEVICENOTIFICATIONSRr;
  private
    { Private-Deklarationen }
    LocalAddr      : TAmsAddr;
    procedure AdsOpen();
    procedure AdsClose();
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy;
  end;

[...schnipp...]
procedure TNotifikationen.AdsOpen();
var
  VarName : PChar;
begin
[...tue irgendwas ...]
end;

[...schnipp...]

procedure TNotifikationen.AdsClose();
begin
[...tue irgendwas ...]
end;

[...schnipp...]

constructor TNotifikationen.Create;
begin
  AdsOpen();
end;

destructor TNotifikationen.Destroy;
begin
  AdsClose();
end;

[...schnipp...]

Ist das so nachvollziehbar und ein Fehler erkennar?

[Luckie]

Eine Instanz einer Klasse erstellt man so:
obj := TMyClass.Create;

[FriendOfDelphi]

Zitat von Luckie:

Eine Instanz einer Klasse erstellt man so:
obj := TMyClass.Create;

Das war der entscheidende Hinweis.
Die Quellcode in der Unit wird jetzt vollständig mitkompiliert und die "blauen Punkte" sind da!

[stahli]

Die Instanz einer Klasse weist man so zu:
Test := TTest.Create(Self);

Im Create und Destroy Deiner Komponente fehlen das inherited.
Sie wird also nicht erzeugt und nicht aufgelöst.

Hinter Deinem Destructor fehlt das override.

Die Freigabe der Komponente (im FormDestroy) sollte man über Test.Free veranlassen.
(Bzw. kann diese Freigabe an der Stelle entfallen, da das Formular Deine Komponente als deren Eigentümer automatisch frei gibt.)

Schau mal, ob Dich das schon weiter bringt...

[FriendOfDelphi]

Zitat von stahli:

Die Instanz einer Klasse weist man so zu:
Test := TTest.Create(Self); Im Create und Destroy Deiner Komponente fehlen das inherited.
Sie wird also nicht erzeugt und nicht aufgelöst.

Ich habe die fehlenden "inherited" ergänzt. Aber auch mit Hilfe der Delphi-Hilfe nicht genau verstanden, was das macht.

Zitat von stahli:

Hinter Deinem Destructor fehlt das override.

Habe ich ebenfalls ergänzt.

Zitat von stahli:

Die Freigabe der Komponente (im FormDestroy) sollte man über Test.Free veranlassen.
(Bzw. kann diese Freigabe an der Stelle entfallen, da das Formular Deine Komponente als deren Eigentümer automatisch frei gibt.)

Schau mal, ob Dich das schon weiter bringt...

Die Methode "Free" scheint ja auch ohne mein Zutun zu existieren.
Heißt das, dass ich gar keinen Destruktor selber machen muss?

[DeddyH]

inherited ruft die gleichnamige Methode der Vorfahrklasse auf. Und den Destruktor musst Du nur überschreiben, wenn Du selbst Speicher anforderst (z.B. indem Du Instanzen von Klassen erzeugst) und diesen beim Zerstören wieder freigeben musst. Aber Vorsicht: im Destruktor gehört das inherited immer in die letzte Zeile.

[stahli]

Free ruft intern Destroy auf. Destroy sollte man nicht direkt aufrufen.