Zitat von
Pseudemys Nelsoni:
heisst das ich muss extra ein object erzeugen um eine methode umzuleiten?
Hi,
es geht auch anders:
Delphi-Quellcode:
procedure sockConnect(Self, Sender: TObject; Socket: TCustomWinSocket);
begin
//code
end;
var
FOnConnect: TSocketNotifyEvent;
begin
sock := TClientSocket.Create(nil);
sock.Address := '213.39.196.118';
sock.Port := 1234;
TMethod(FOnConnect).Code := @sockConnect;
TMethod(FOnConnect).Data := nil; // die Variable Self ist dann in sockConnect = nil
sock.OnConnect := FOnConnect;
sock.Open;
end.
Edit: Die Deklaration von "OnConnect" sieht so aus, die Prozedur von dir war falsch :-\
procedure (Sender: TObject; Socket: TCustomWinSocket) of object
mfG
mirage228