Z
zuoc
Unregistered / Unconfirmed
GUEST, unregistred user!
如题,在DELPHI中怎么表示?
B
baiduan
Unregistered / Unconfirmed
GUEST, unregistred user!
这是强制转换。类似于delphi
Byte(@LicInfo)
Byte(@LicInfo)
Z
zuoc
Unregistered / Unconfirmed
GUEST, unregistred user!
VC有这样一个函数HRESULT RC_GetLicenseInfo(ULONG DogHandle, USHORT usDirID, USHORT usFileID, UCHAR * pLicInfo);转成DELPHI就是type UCHAR = Byte
PUCHAR = ^Byte;function RC_GetLicenseInfo(DogHandle: Longword
usDirID: USHORT
usFileID: USHORT
pLicInfo: PUCHAR): Longword
执行函数后返回pLicInfo,pLicInfo存储的是一个记录类型的地址RC_LICENSE_INFO=record usLimit: USHORT
ulCount:ULONG
ulRunTime:ULONG
ulEndTime:word
ulBeginTime:word
end
PRC_LICENSE_INFO = ^RC_LICENSE_INFO;LicInfo: PRC_LICENSE_INFO;怎么样取出这个记录类型数据?愿意再加分.
PUCHAR = ^Byte;function RC_GetLicenseInfo(DogHandle: Longword
usDirID: USHORT
usFileID: USHORT
pLicInfo: PUCHAR): Longword
执行函数后返回pLicInfo,pLicInfo存储的是一个记录类型的地址RC_LICENSE_INFO=record usLimit: USHORT
ulCount:ULONG
ulRunTime:ULONG
ulEndTime:word
ulBeginTime:word
end
PRC_LICENSE_INFO = ^RC_LICENSE_INFO;LicInfo: PRC_LICENSE_INFO;怎么样取出这个记录类型数据?愿意再加分.
D
dark_power
Unregistered / Unconfirmed
GUEST, unregistred user!
RC_LICENSE_INFO=record usLimit: USHORT
ulCount:ULONG
ulRunTime:ULONG
ulEndTime:word
ulBeginTime:word
end
PRC_LICENSE_INFO = ^RC_LICENSE_INFO;LicInfo: PRC_LICENSE_INFO;感觉这像个软件试用限制的保护函数及其相关数据结构。m_LI: LicInfo;m_LI:= LicInfo(pLicInfo);强制类型转换。或者Pointer(m_LI):= Ptr(Integer(pLicInfo));- -!这也叫带套作业——安全。
ulCount:ULONG
ulRunTime:ULONG
ulEndTime:word
ulBeginTime:word
end
PRC_LICENSE_INFO = ^RC_LICENSE_INFO;LicInfo: PRC_LICENSE_INFO;感觉这像个软件试用限制的保护函数及其相关数据结构。m_LI: LicInfo;m_LI:= LicInfo(pLicInfo);强制类型转换。或者Pointer(m_LI):= Ptr(Integer(pLicInfo));- -!这也叫带套作业——安全。
Z
zuoc
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。