' GCalCommonShareDevice developments software package. '
' GCalCommonShareDevice开发软件包 '
' GCalCommonShareDevice秨祇硁ン '
' Includes:
' GCalCommonShareDevice.DLL User interface DLL
' GCalCommonShareDevice.h Header file for C
' GCalCommonShareDevice.lib lib file for C
' GCalCommonShareDevice.pas Unit file for Delphi
' GCalCommonShareDevice.bas Module file for Visual Basic
' Some protocol processing DLLs
'
'
' 这里的说明使用了英文、简体中文、繁体中文等。
' 如果您的系统不支持其中的某种语言,显示可能会是乱码。
' 处理数据的回调过程的原型。
' 接收到数据时回调过程将被调用。
' ID就是OpenDevice时返回的非0值,每个不同的ID代表一个连接到不同端口的设备。
' Channel是多通道设备的通道索引号码,使用单通道设备时Channel为0。
' Value是该通道的数值
' KeyPressed=TRUE则表示按下了采样键
Global Const GCAL_MAX_LEN_OF_PORTNAME_STRING = 80
Global Const GCAL_MAX_LEN_OF_PRODUCTID_STRING = 80
' 设置回调过程的地址。
' 在一个程序中只需设置一次就行。
' 如果返回FALSE则表示发生了错误。
Public Declare Function GCal_SetCallBackProc Lib "GCalCommonShareDevice" (ByVal CallBackProc As Long) As Byte
' 打开设备。
' PortName就是设备所连接的端口名称,比如"COM1"或"USB"。
' DeviceDescription可以是产品ID或协议名称,如果是USB口ProtocolName可以为空,这时自动选择连接到USB口的设备。 1
' BaudrateValue是波特率值,0表示使用默认值。
' 如果成功则返回非0的设备ID,否则返回0。 '
Public Declare Function GCal_OpenDevice Lib "GCalCommonShareDevice" (ByVal PortName As String, ByVal DeviceDescription As String, ByVal BaudrateValue As Long) As Long
' 允许或禁止设备通道。
' ID就是欲设置的设备ID。
' Channel就是欲设置的通道号。
' Enabled为TRUE则该通道被允许,否则禁止。
' 如果返回FALSE则表示发生了错误。 '
Public Declare Function GCal_SetChannel Lib "GCalCommonShareDevice" (ByVal ID As Long, ByVal Channel As Long, ByVal Enabled As Byte) As Byte
' 清0。
' ID就是欲清0的设备ID。
' Channel就是欲清0的通道号。
' 如果返回FALSE则表示发生了错误。
Public Declare Function GCal_ZeroChannel Lib "GCalCommonShareDevice" (ByVal ID As Long, ByVal Channel As Long) As Byte
' 所有通道清0。
' ID就是欲清0的设备ID。
' 如果返回FALSE则表示发生了错误。
Public Declare Function GCal_ZeroAllChannels Lib "GCalCommonShareDevice" (ByVal ID As Long) As Byte
' 所有设备的所有通道清0。
' 如果返回FALSE则表示发生了错误。
'Public Declare Function GCal_ZeroAllDeviceChannels Lib "GCalCommonShareDevice" () As Byte
' 关闭设备。
' ID就是欲关闭设备ID。
' 如果返回FALSE则表示发生了错误。 '
Public Declare Function GCal_CloseDevice Lib "GCalCommonShareDevice" (ByVal ID As Long) As Byte
' 关闭所有打开的设备。
' 如果返回FALSE则表示发生了错误。
Public Declare Function GCal_CloseAllDevices Lib "GCalCommonShareDevice" () As Byte
' 设置使用无线连接的起始通道号及无线连接的最大延迟时间。
' ID就是欲设置的设备ID。
' Channel是使用无线连接的起始通道号。 2
' Delay是无线连接的最大延迟时间。
' 如果返回FALSE则表示发生了错误。
Public Declare Function GCal_SetWirelessChannel Lib "GCalCommonShareDevice" (ByVal ID As Long, ByVal Channel As Long, ByVal Delay As Long) As Byte
' 获取可用的第一个端口名称。
' Buf用于保存名称。
' BufSize是Buf的大小。
' 如果返回FALSE则表示没有端口或发生了错误。
Public Declare Function GCal_GetFirstPortName Lib "GCalCommonShareDevice" (ByVal Buf As String, ByVal BufSize As Long) As Byte
' 获取可用的下一个端口名称。
' Buf用于保存名称。
' BufSize是Buf的大小。
' 如果返回FALSE则表示已经没有下一个端口或发生了错误。
Public Declare Function GCal_GetNextPortName Lib "GCalCommonShareDevice" (ByVal Buf As String, ByVal BufSize As Long) As Byte
' 获取第一个USB设备的产品ID。
' Buf用于保存产品ID。
' BufSize是Buf的大小。
' 如果返回FALSE则表示没有USB设备或发生了错误。
Public Declare Function GCal_GetFirstUsbProductID Lib "GCalCommonShareDevice" (ByVal Buf As String, ByVal BufSize As Long) As Byte
' 获取下一个USB设备的产品ID。
' Buf用于保存产品ID。
' BufSize是Buf的大小。
' 如果返回FALSE则表示已经没有下一个USB设备或发生了错误。
Public Declare Function GCal_GetNextUsbProductID Lib "GCalCommonShareDevice" (ByVal Buf As String, ByVal BufSize As Long) As Byte
3