德尔福: dynamically Create TClientSocket

Question

我正在尝试在运行时创建 TClientsocket，但无法分配事件。

我用

var
  cs:TCLIENTSOCKET;

procedure OnReadx;
begin

end;

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

这不起作用。正确的方法是什么？

Answer 1

事件是这样声明的

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

所以你已经编写了一个带有这些参数的函数，例如

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

并像在代码中一样分配它:

cs.OnRead:=OnReadx;

致以诚挚的问候，