' ---------------------------------------------------------------------------------------------------------------------------------------
' Special Messages
' ---------------------------------------------------------------------------------------------------------------------------------------
'Private Declare Function Lx_Nack_Msg Lib "dti_sg_api" (ByRef pNack As sNACK) As eReturnValueLX
' ---------------------------------------------------------------------------------------------------------------------------------------
' General Functions
' ---------------------------------------------------------------------------------------------------------------------------------------
Private Declare Function Lx_Get_API_Version Lib "DTI_SG_API" (ByRef pGetAPIVersion As sGETAPIVER) As eReturnValueLX
Private Declare Function Lx_GetDeviceDataStatus Lib "DTI_SG_API" (pGetDeviceDataStatus As sGETDEVICEDATASTATUS) As eReturnValueLX
' Special Messages
' ---------------------------------------------------------------------------------------------------------------------------------------
'Private Declare Function Lx_Nack_Msg Lib "dti_sg_api" (ByRef pNack As sNACK) As eReturnValueLX
' ---------------------------------------------------------------------------------------------------------------------------------------
' General Functions
' ---------------------------------------------------------------------------------------------------------------------------------------
Private Declare Function Lx_Get_API_Version Lib "DTI_SG_API" (ByRef pGetAPIVersion As sGETAPIVER) As eReturnValueLX
Private Declare Function Lx_GetDeviceDataStatus Lib "DTI_SG_API" (pGetDeviceDataStatus As sGETDEVICEDATASTATUS) As eReturnValueLX
DTI_SG_API.LIB, DTI_SG_API.H 说明是C写的API,
请问上面的VB如何改乘 用DELPHI调用,谢谢Private Declare Function Lx_Get_API_Version Lib "DTI_SG_API" (ByRef pGetAPIVersion As sGETAPIVER) As eReturnValueLX Private Declare Function Lx_GetDeviceDataStatus Lib "DTI_SG_API" (pGetDeviceDataStatus As sGETDEVICEDATASTATUS) As eReturnValueLX