nonVCL Fehler mit OnRead von clientsocket

[sirius]

1. Wieso nonVCL?

2. Wenn ich das richtig verstehe, willst du einfach nur das Ereignis OnRead einer Methode zuweisen.
Dazu brauchst du irgendeine Klasse (die sicherlich noch mehr machen wird als nur OnRead) und setzt die property von onRead auf eine Methode mit der entspr. Deklaration:

Delphi-Quellcode:

type TSampleClass=class
        constructor create;
        destructor destroy; override;
        procedure DoOnread(Sender: TObject; Socket: TCustomWinSocket);
       private
        clientSocket:Tclientsocket;
end;

//...
constructor TSampleClass.create;
begin
  inherited;
  clientsocket:=Tclientsocket.create;
  clientsocket.OnRead:=DoOnRead;
end;
destructor TSampleClass.Destroy;
begin
  clientsocket.free;
end;

procedure TSampleClass.Doonread(Sender: TObject; Socket: TCustomWinSocket);
begin
   // hier kannst du jetzt das Ereignis handhaben
end;