Eigenes Event aus Eventprozedur aufrufen -> Fehler

peeage · Beiträge: 50

Hallo zusammen !

Ich nutze in meiner Klasse eine Komponente, deren ich den Pointer zu einer Prozedur in meiner Klasse bekanntgebe. Die Komponente ruft dann regelmäßig meine Prozedur auf ( Callback / Event ). Das klappt alles perfekt. Nun bietet meine Klasse auch eigene Events / CallBacks an, so das andere Klassen - die meine Klasse nutzen - auch bei bestimmten Ereignissen informiert werden. Dies klappt auch wunderbar... NUR wenn ich MEINE CallBackprozedur ( sprich: Die Prozedur in der Klasse welche bei Ereignissen aus meiner Klasse informiert werden möchte) innerhalb der CallBackprozedur aufrufe, die in meiner Klasse durch die Komponente ausgelöst wurde, kommt es zu einer Zugriffsverletzung.

Ist jemand auch schonmal über das Problem gestoßen?

Gruß

jaenicke · Verfasst: Fr 23.01.09 18:54

Ohne etwas Code ist es schwer dazu etwas zu sagen...
Wie sieht der Aufruf aus, wie die Deklaration?

Kommt die Zugriffsverletzung an Adresse 0 oder einer anderen?

peeage · Beiträge: 50

Mir ist gerade aufgefallen das ich von einer Callback- Prozedur allgemein auf keine Variablen aus der eigenen Klasse zugreifen kann ( sei es privat, public ... )

Hier ein Beispiel:

Klasse die das Ereignis bekannt gibt:

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:

unit Unit2;

interface

type TMyEvent = procedure of object;

     TMyClass = Class
      private
        FMyEvent : TMyEvent;
      public
        constructor Create;
        procedure doEvent;
        property MyEvent : TMyEvent read FMyEvent write FMyEvent;
      end;

implementation

constructor TMyClass.Create;
Begin
  inherited Create;
end;

procedure TMyClass.doEvent;
Begin
  if Assigned( FMyEvent ) then
    FMyEvent;
end;

end.

Klasse deren Callback- Prozedur aufgerufen wird ( Hier als Beispiel eine TForm- Klasse ):

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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    str : String;
    procedure MyEvent;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1   : TForm1;
  MyClass : TMyClass;

implementation

{$R *.dfm}

procedure TForm1.MyEvent;
Begin
  ShowMessage(str);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyClass := TMyClass.Create;
  @MyClass.MyEvent := @TForm1.MyEvent;
  MyClass.doEvent;
end;

end.

TForm1.MyEvent wird aufgerufen. Hier soll der String "str" ausgegeben werden, nur leider kommt es hier zu einer Fehlermeldung.

jaenicke · Verfasst: Fr 23.01.09 20:41

peeage hat folgendes geschrieben :

TForm1.MyEvent wird aufgerufen. Hier soll der String "str" ausgegeben werden, nur leider kommt es hier zu einer Fehlermeldung.

Weil das Event nicht im Kontext des Formulars aufgerufen wird sozusagen. Versteckt wird glaube ich die Instanz mitgeliefert, und die ist in dem Fall nil.
(Werte einfach mal Self aus mit Strg + F7.)

Warum nicht einfach so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.MyEvent;
Begin
  ShowMessage(Form1.str);
end;

peeage · Beiträge: 50

Hmmm.. stimmt. So geht es in meinem Beispiel.

Nur habe ich in meiner Klasse ( nicht das Beispiel mit der TForm- Klasse ) keine Referenz auf die aktuelle Instanz meiner Klasse ( wie im Beispiel "Form1" ). Die Referenz auf die Instanz meiner Klasse besitzt nur die Klasse, die meine Klasse Instantiert.
Ich kann innerhalb der instantiierten Klasse nur mittels "self" auf die aktuelle Instanz der Klasse zugreifen, oder? Nur wenn ich das nun so mache -> ShowMessage( self.str ) ... Dann bekomm ich auch wieder diesen Fehler.

jaenicke · Verfasst: Fr 23.01.09 21:20

jaenicke hat folgendes geschrieben :

und die ist in dem Fall nil.
(Werte einfach mal Self aus mit Strg + F7.)

Ich sagte ja, dass genau das Self das Problem ist. Du darfst den Eventhandler nicht als Teil der Klasse sehen und das entsprechend programmieren.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Verwende:

markieren

Delphi-Quelltext

1:	MyClass.MyEvent := MyEvent;

statt

markieren

Delphi-Quelltext

1:	@MyClass.MyEvent := @TForm1.MyEvent;

Und wenn die eigentliche Instanz unwichtig ist, dann mit class procedures arbeiten, dann heisst es:

markieren

Delphi-Quelltext

1:	MyClass.MyEvent := TForm1.MyEvent; // in TForm1: class procedure MyEvent;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme