DIOCP之获取在线用户列表
通过获取tcpserver.getonlinecontextlist来得到在线列表
procedure TfrmMain.btn_refreshClick(Sender: TObject);
var
lvList:TList;
i: Integer;
lvClient:TMyClientContext;
lvItem:TListItem;
begin
lstClientINfo.Items.Clear;
lvList:=TList.Create;
try
FTcpServer.getOnlineContextList(lvList);
for i := 0 to lvList.Count - 1 do
begin
lvClient := TMyClientContext(lvList[i]);
lvItem := lstClientINfo.Items.Add;
lvItem.Caption :=IntToStr(i+1);
try
lvItem.SubItems.Add(TChatSession(lvClient.Data).UserID);
except on E: Exception do
lvItem.SubItems.Add('未登录');
end;
try
lvItem.SubItems.Add(TChatSession(lvClient.Data).UserMac);
except on E: Exception do
lvItem.SubItems.Add('未知');
end;
// lvItem.SubItems.Add('');
lvItem.SubItems.Add(lvClient.RemoteAddr);
lvItem.SubItems.Add(IntToStr(lvClient.RemotePort));
// if TChatSession(lvClient.Data).UserID<>'' then
//
// lvItem.SubItems.Add(TChatSession(lvClient.Data).UserID)
// else
// lvItem.SubItems.Add('');
lvItem.SubItems.Add(IntToStr(lvClient.SocketHandle));
lvItem.SubItems.Add(lvClient.StateINfo);
end;
finally
lvList.Free;
end;
end;
最新文章
- 《高性能javascript》 领悟随笔之-------DOM编程篇(二)
- CodeAtlas For Sublime Text
- 使用post方式提交表单如何获取图片数据及其他文本参数[NodeJS]
- 编译可供C#调用的C/C++动态链接库dll文件
- 漫谈java重载与重写
- SQLServer日志无法收缩原因分析及解决
- 有关Azure存储帐号监视器中的度量值
- centos7 rabbitmq系统部署
- HTML块
- （转）分享一个SQLSERVER脚本（计算数据库中各个表的数据量和每行记录所占用空间）
- Sys.WebForms.PageRequestManagerParserErrorException:无法分析从服务器收到的消息
- s3c6410学习笔记-烧写uboot+构建文件系统
- HBase源代码分析
- js小写转实现资本,js数字革命万元
- hdu4059 The Boss on Mars
- JSP EL表达式 获得 request的GET/POST方法
- mysql阅读收录
- bootstrap时间区间设置方法
- C# 反射，通过类名、方法名调用方法
- noip第32课资料