Attribute VB_Name = "Module4"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DJLanMon.DLL可以支持通過局域網進行錄音監聽。
'當D081A模擬語音卡上某路通道在錄音時，
'該接口可以提供用戶遠程或本機監聽D081A模擬語音卡上某路通道的錄音?
'頭文件DJLanMon.h , Lib文件DJLanMon.lib, Dll文件DJLanMon.Dll?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'修改時間: 2003-07-21


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'初始化監聽服務端( ServerIp = 服務器IP地址; BuffSize = IP地址字符串長度)
'返回值:
'  0  =  成功,啟動被監聽功能
'  -1 =  不成功，原因：獲取緩沖區大小失敗
'  -2 =  不成功，原因：初始化失敗
'  -3 =  不成功，原因：啟動被監聽失敗
Declare Function DJLM_Svr_Init Lib "DJLanMon.DLL" (ByVal ServerIp As String, ByVal BuffSize As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'初始化監聽客戶端( ServerIp = 服務器IP地址; BuffSize1 = 服務器IP地址字符串長度; ClientIp = 客戶端IP地址; BuffSize = 客戶端IP地址字符串長度; )
'返回值:
'  0  = 成功
'  -1 = 不成功，原因：初始化資源失敗
'  -2 = 不成功，原因：初始化聲卡失敗
Declare Function DJLM_Clt_Init Lib "DJLanMon.DLL" (ByVal ServerIp As String, ByVal BuffSize1 As Long, ByVal ClientIp As String, ByVal BuffSize As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'關閉釋放監聽服務端
Declare Sub DJLM_Svr_Quit Lib "DJLanMon.DLL" ()


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'關閉釋放監聽客戶端
Declare Sub DJLM_Clt_Quit Lib "DJLanMon.DLL" ()


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'監聽端向被監聽端發送某通道的監聽標志。參數sign的值為1表示監聽，0表示取消監聽
'返回值:
'   0  = 成功
'   -1 = 不成功，原因：準備資源失敗
'   -2 = 不成功，原因：向遠端發送命令失敗
'   -3 = 不成功，原因：目前有一條通道正在監聽
'   -4 = 不成功，原因：啟動放音失敗
Declare Function DJLM_Clt_SetMonSign Lib "DJLanMon.DLL" (ByVal Channel As Long, ByVal sign As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'獲得監聽通道Channel的客戶端個數
'返回值:監聽客戶端個數
Declare Function DJLM_Svr_GetMonInfo_MoniterClientCount Lib "DJLanMon.DLL" (ByVal Channel As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'獲得監聽通道Channel的客戶端序列號為ClientIndex的IP地址( ClientIndex 的取值范圍[1~16] )
'返回值:IP地址字符串
Declare Function DJLM_Svr_GetMonInfo_MoniterClientIP Lib "DJLanMon.DLL" (ByVal Channel As Long, ByVal ClientIndex As Long) As String


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'獲得客戶端序列號為ClientIndex的監聽通道Channel開始時間( ClientIndex 的取值范圍[1~16] )
'返回值:監聽開始時間字符串
Declare Function DJLM_Svr_GetMonInfo_MonStartTime Lib "DJLanMon.DLL" (ByVal Channel As Long, ByVal ClientIndex As Long) As String


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'獲得客戶端序列號為ClientIndex的監聽通道Channel的持續時間( ClientIndex 的取值范圍[1~16] )
'返回值:監聽持續時間單位(秒)
Declare Function DJLM_Svr_GetMonInfo_MonDura Lib "DJLanMon.DLL" (ByVal Channel As Long, ByVal ClientIndex As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'獲得序列號為ClientIndex的客戶端是否正在監聽通道Channel( ClientIndex 的取值范圍[1~16] )
'返回值:
'    -1 = 當前此通道無客戶端監聽
'    0  = 序列號為ClientIndex的客戶端沒有監聽此通道
'    1  = 序列號為ClientIndex的客戶端正在監聽此通道
Declare Function DJLM_Svr_GetMonInfo_IsMonStatus Lib "DJLanMon.DLL" (ByVal Channel As Long, ByVal ClientIndex As Long) As Long