易语言 如查通过对象调用DLL里有数据类型!
对象.查看 代码如下 调用SyCDChangCard 函数 里面有个sICUserInfo 数据类型 这个数据类型在易语言 怎么为对象
方法调用格式: 〈逻辑型〉 对象.逻辑方法 ("SyCDChangeCard",sICUserInfo,CardPhyNo,SecNo,sKey)参数<1>的名称为“sICUserInfo”,类型为“对象(ICUserInfo_Struct)”。 参数<2>的名称为“CardPhyNo”,类型为“文本型”。 参数<3>的名称为“SecNo”,类型为“字节型”。 参数<4>的名称为“sKey”,类型为“文本型”。
以下是VB 可以直接调用数据API里的数据类型!
VB源码:
Dim UserInfo As ECardAPI.ICUserInfo_Struct, Var As String, CardPhyNo As String
UserInfo.CardLevel = cmbCardType.ListIndex UserInfo.CardNo = txtCardNo.Text UserInfo.CardPersonPWD = txtCardPass.Text UserInfo.CustomerCode = txtCustomersCode.Text UserInfo.DistributorCode = txtDealersCode.Text UserInfo.EmpName = txtEmpName.Text UserInfo.EmpNo = txtEmpNo.Text UserInfo.LastUseDateTime = Now UserInfo.PersonalBag = 0 UserInfo.SubsidyBag = 0 UserInfo.SubsidyFlag = 0 UserInfo.VaildEndDate = dtpCardEndDate.Value UserInfo.VaildStarDate = dtpCardStartDate.Value
If .objComm.SyCDAccessCard(UserInfo, CardPhyNo, txtBegBlockNo.Text, Trim(txtCardKey.Text)) = False Then .strMsg = "IC卡发卡失败。错误信息:" & GetSFErrorString(.objComm.ErrCode) Else .strMsg = "IC卡发卡成功" End If
在易语言里我用自定义数据类型 运行的时候.会提示 参数数据类型错误!
.版本 2
.数据类型 ICUserInfo_Struct, 公开 .成员 CardLevel, 文本型, , , 卡类级别 .成员 CardNo, 整数型, , , 卡号 .成员 CardPersonPWD, BSTR, , , 个人密码 .成员 CustomerCode, 整数型, , , 客户代码 .成员 DistributorCode, 整数型, , , 供应商代码 .成员 EmpName, BSTR, , , 姓名 .成员 EmpNo, BSTR, , , 工号 .成员 LastUseDateTime, 日期时间型, , , 最后操作卡时间 .成员 PersonalBag, 整数型, , , 个人钱包 .成员 SubsidyBag, 整数型, , , 补贴钱包 .成员 SubsidyFlag, 整数型, , , 补贴标志 .成员 VaildEndDate, BSTR, , , 卡有效期结束 .成员 VaildStarDate, BSTR, , , 卡有效期开始 .成员 CardUseTimes, 整数型, , , 刷卡次数 .成员 GiveBag, 整数型
头有些大了!请大虾们看看
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课