Delphi：动态创建TClientSocket

我用

var
  cs:TCLIENTSOCKET;

procedure OnReadx;
begin

end;

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

它不起作用.这样做的正确方法是什么？

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

所以你用这些参数写了一个函数,例如

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

并在代码中分配它：

cs.OnRead:=OnReadx;

最好的祝福,