Delphi : dinamiclly Create TClientSocket

Question

I am trying to create a Tclientsocket at runtime but I can't assign the events.

I use

var
  cs:TCLIENTSOCKET;

procedure OnReadx;
begin

end;

procedure intsok;
begin
  cs:=Tclientsocket.create(nil);
  cs.OnRead:=OnReadx;
end;

It doesn't work. what is the right way to do this?

Answer 1

The problem is that the TClientSocket class requires that the event handlers for its various events to be method pointers (they must belong to some object), as opposed to regular procedures.

Solved it!

Answer 2

and the event is declared like this

TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;

so you've wrote a function with those parameters, e.g

procedure OnReadx(Sender: TObject; Socket: TCustomWinSocket);

and assign it like in your code:

cs.OnRead:=OnReadx;

best regards,