属性原型:PAgentsInWorkGroupInfo(Delphi)
类型:Integer
说明: 使用该属性时,应先强制转换成指针类型,指针指向类型为TDBCCC_AGENT_WORKGROUP_INFO的结构体数组,存储一个工作组所有座席的状态信息(不包括班长),在调用方法QueryWorkGroupStatus后可以和属性WorkGroupAgentNum配合使用。 举例: 以下代码访问第i个座席信息,i为0~WorkGroupAgentNum-1: TDBCCC_AGENT_WORKGROUP_INFO(Pointer(Phone.PAgentsInWorkGroupInfo+i*SizeOf(TDBCCC_AGENT_WORKGROUP_INFO))^); 我用VB的方法:
Dim MyWork As TDBCCC_AGENT_WORKGROUP_INFO
Dim MyObj As GCHandle
Dim MyT As IntPtr For i = 0 To j - 1 MyObj = GCHandle.Alloc(MyPhone.PAgentsInWorkGroupInfo + i * Marshal.SizeOf(MyWork), GCHandleType.Pinned)
MyT = MyObj.AddrOfPinnedObject MyWork = CType(Marshal.PtrToStructure(MyT, GetType(TDBCCC_AGENT_WORKGROUP_INFO)), TDBCCC_AGENT_WORKGROUP_INFO)
Console.WriteLine("工号:" + MyWork.usAgentNo.ToString + "电路号:" + MyWork.usAgentDsn.ToString + "状态:" + MyWork.ucAgentStatus.ToString)
'Console.WriteLine(MyT.ToString) Next为什么我获取的MyWork结构体值不对,是不是哪里出错了,请大家多多帮忙
类型:Integer
说明: 使用该属性时,应先强制转换成指针类型,指针指向类型为TDBCCC_AGENT_WORKGROUP_INFO的结构体数组,存储一个工作组所有座席的状态信息(不包括班长),在调用方法QueryWorkGroupStatus后可以和属性WorkGroupAgentNum配合使用。 举例: 以下代码访问第i个座席信息,i为0~WorkGroupAgentNum-1: TDBCCC_AGENT_WORKGROUP_INFO(Pointer(Phone.PAgentsInWorkGroupInfo+i*SizeOf(TDBCCC_AGENT_WORKGROUP_INFO))^); 我用VB的方法:
Dim MyWork As TDBCCC_AGENT_WORKGROUP_INFO
Dim MyObj As GCHandle
Dim MyT As IntPtr For i = 0 To j - 1 MyObj = GCHandle.Alloc(MyPhone.PAgentsInWorkGroupInfo + i * Marshal.SizeOf(MyWork), GCHandleType.Pinned)
MyT = MyObj.AddrOfPinnedObject MyWork = CType(Marshal.PtrToStructure(MyT, GetType(TDBCCC_AGENT_WORKGROUP_INFO)), TDBCCC_AGENT_WORKGROUP_INFO)
Console.WriteLine("工号:" + MyWork.usAgentNo.ToString + "电路号:" + MyWork.usAgentDsn.ToString + "状态:" + MyWork.ucAgentStatus.ToString)
'Console.WriteLine(MyT.ToString) Next为什么我获取的MyWork结构体值不对,是不是哪里出错了,请大家多多帮忙
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货