?? djlanmon.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -