Delphi：动态创建TClientSocket

发布时间：2020-12-15 09:06:21 所属栏目：大数据来源：网络整理

导读：我试图在运行时创建一个TClientsocket但我无法分配事件. 我用 var cs:TCLIENTSOCKET;procedure OnReadx;beginend;procedure intsok;begin cs:=Tclientsocket.create(nil); cs.OnRead:=OnReadx;end; 它不起作用.这样做的正确方法是什么？解决方法并且事件是

我试图在运行时创建一个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;

最好的祝福,

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!