On Ereignisse zur Laufzeit hinzufuegen

[m0sch3r]

Hi

Einem Socket werden die On Ereignisse zu Laufzeit hinzugefügt

Delphi-Quellcode:

@FFTPConnections[high(FFTPConnections)].FFTPConnction.OnWorkEnd        := @FTP1WorkEnd;

Klapt ganz gut.Das On Ereignis wird aufgerufen...jedoch
Wenn ich dann versuche in dem OnEreigniss auf das Object zu zugreifen- geht es nicht..

Delphi-Quellcode:

Quellcode: markieren 
procedure FTPWorkEnd(self : TObject; Sender: TObject; AWorkMode: TWorkMode); 
begin 
          TidFTP(Sender).Disconnect; 
end;

Der Sender hat komische Werte...!!!!

Wie kann ich das Problemm umgehen...?

[maximov]

Moin:

Delphi-Quellcode:

Quellcode: markieren
procedure FTPWorkEnd(self : TObject; Sender: TObject; AWorkMode: TWorkMode);
begin
  if sender is TidFtp then TidFTP(Sender).Disconnect;
end;

dann siehst du auch ob es tatsäcjlich ein ftp-ding ist :wink:

// Edit:

moment mal: seh grad du machst das mit ner regulären procedure! Warum das? macht normal keinen sinn?

Aber wenn du die addresse des events ermittelst (@bla) dann musst du aber auch die daten ermitteln, sprich das object angeben, sonst ist self nachher nicht definiert:

Delphi-Quellcode:

var m:TMethod;
..
m.code := @bla;
m.data := das object das später als self übergeben werden soll!
...
FFTPConnections[high(FFTPConnections)].FFTPConnction.OnWorkEnd := TDerEventTyp(m);

sonst kann das imo nur fehlschlagen :wink:

[m0sch3r]

Spasiba Maksimov....:)))

[maximov]

pasalschta!

[m0sch3r]

Delphi-Quellcode:

         OnWorkEndMethod.Code := @FTP1WorkEnd;
         OnWorkEndMethod.Data := @FFTPConnections[high(FFTPConnections)].FFTPConnction;

         @FFTPConnections[high(FFTPConnections)].FFTPConnction.OnWorkEnd        := TWorkEndEvent(OnWorkEndMethod);

soweit das der Richtigkeit entschpricht.....!?

[m0sch3r]

Товарищ Максимов...:)))

Если вы знаете метод упрошяющий ету процедуру обясните пожалуста...

[maximov]

HeT! 3T0 NET Xapascho :stupid:

Delphi-Quellcode:

OnWorkEndMethod.Data := FFTPConnections[high(FFTPConnections)].FFTPConnction; // @ wäre doppelt gemoppelt, da objekte ja schon pointer sind

R idu b skafu *die letzten paar brocken russisch hervor kram*