Attribute VB_Name = "spcp"

'*************************************************
'消息幀數(shù)據(jù)格式:
'   1   0   A   B   X   X
'其中 10 為消息標(biāo)識,
'           AB表示文本長度,L=A*100+B
'               XX為配位字符,任意

'控制幀數(shù)據(jù)格式
'   0   1   A   B   M   N
'其中 01為控制標(biāo)識,
'           AB為請求標(biāo)識
'               MN為附加標(biāo)識
'           11表示請求對方接收文件,M表示描述字串中文件名子串的長度
'                                   N表示描述字串中文件大小子串的長度
'           10通知對方放棄傳輸
'           00通知文件傳輸完畢
'           01請求對方發(fā)送數(shù)據(jù),  MN為10請求發(fā)送下一個
'                               MN為00請求重發(fā)
                                
'數(shù)據(jù)幀數(shù)據(jù)格式
'   0   0   A   B   M   N
'其中 00 為數(shù)據(jù)標(biāo)識,
'           AB表示數(shù)據(jù)長度,L=A*100+B
'           MN為校驗,M*100+N=A+B
'*************************************************

'*************************************************
Public intCommFlag  As Long
'intCommFlag 是comm控件工作的標(biāo)志,其意義如下:
'0  已經(jīng)關(guān)閉
'1  打開,等待
'2  正在發(fā)送二進制數(shù)據(jù)
'4  正在發(fā)送文本
'8  正在發(fā)送控制符
'16 正在接收數(shù)據(jù)
'*************************************************


Public blnFileTransFlag As Boolean      '文件傳輸方式標(biāo)志
'true 為發(fā)送
'false 為接收

Public strFileDirectary As String   '文件路徑

Public strFileName As String        '文件名
Public intFileLenth As Long         '文件長度

Dim intFileNumber As Long           '文件號

'*************************************************

Dim intDataLenth As Long            '數(shù)據(jù)幀長度
Dim intDataCount As Long            '數(shù)據(jù)幀總計數(shù)
Dim intDataNumber As Long           '已經(jīng)發(fā)送數(shù)據(jù)幀數(shù)

'*************************************************
Dim strSendFile As String           '"請求接收新文件"幀負載
Dim bytSendFile() As Byte           '數(shù)據(jù)幀負載


Dim bytFileBuffer() As Byte         '文件緩沖區(qū)

Dim intFileReceiveLenth As Long     '已經(jīng)接收文件的字節(jié)數(shù)

Dim intReceiveLen As Long           '每次讀入數(shù)據(jù)的字節(jié)數(shù)

Dim bytReceive() As Byte            '接收到的數(shù)據(jù)幀負載
'*************************************************


'****************************************************
'串口輸入管理
'串行口接收到數(shù)據(jù)后即調(diào)用該過程進行處理
'****************************************************

Public Sub InputManager()
    intCommFlag = 16
    
    Dim bytTest() As Byte
    Dim strReceive As String
    
    
    Dim intTest As Long
    
    Dim strTemp As String
    
    frmMain.ctrMSComm.InputMode = comInputModeBinary
    frmMain.ctrMSComm.InputLen = 6
    
    bytTest = frmMain.ctrMSComm.Input
    ReDim Preserve bytTest(5)                                           '獲取幀頭
    
    If bytTest(0) = 1 And bytTest(1) = 0 Then                           '收到信息幀
        intReceiveLen = bytTest(2) * 100 + bytTest(3)
        frmMain.ctrMSComm.InputMode = comInputModeText
        frmMain.ctrMSComm.InputLen = 0
        For n = 1 To 1000000                                            '延時
        Next n
        strReceive = frmMain.ctrMSComm.Input
        strTemp = "接收:" + strReceive
        Call frmMain.ReceiveDisplay(strTemp, 2)                         '調(diào)用信息顯示
        
    ElseIf bytTest(0) = 0 And bytTest(1) = 1 Then                       '收到控制幀
        intTest = bytTest(2) * 100 + bytTest(3)                         '控制幀分析
        
        Select Case intTest
            Case 101                                                    '對方請求接收新文件
                intReceiveLen = bytTest(4)
                frmMain.ctrMSComm.InputMode = comInputModeText
                frmMain.ctrMSComm.InputLen = intReceiveLen
                Do
                Loop While frmMain.ctrMSComm.InBufferCount < intReceiveLen
                strFileName = frmMain.ctrMSComm.Input                   '接收文件名信息
                
                intReceiveLen = bytTest(5)
                frmMain.ctrMSComm.InputLen = intReceiveLen
                Do
                Loop While frmMain.ctrMSComm.InBufferCount < intReceiveLen
                strReceive = frmMain.ctrMSComm.Input                    '接收文件長度信息
                
                strReceive = LTrim(strReceive)
                intFileLenth = Val(strReceive)                          '文件長度
                
                If MsgBox("對方發(fā)送文件" + strFileName + "," + Chr(13) + "文件大小為 " + Str(intFileLenth) + "字節(jié)" + Chr(13) + "是否接收?", vbOKCancel) = vbOK Then
                    Call FileReceiveManager(0)
                End If
                intCommFlag = 1
                
            Case 100                                                    '對方通知放棄傳輸
                
            Case 1                                                      '對方請求發(fā)送數(shù)據(jù)
                If bytTest(4) = 1 Then                                  '請求發(fā)送數(shù)據(jù)包
                    intDataNumber = intDataNumber + 1
                    If intDataNumber > intDataCount Then
                        Call FileSendManager(4)                         '發(fā)送完成信號
                    Else
                        Call FileSendManager(1)                         '發(fā)送新一幀數(shù)據(jù)
                    End If
                Else
                    Call FileSendManager(2)                             '重發(fā)上一幀數(shù)據(jù)
                End If
                intCommFlag = 1
            Case 0                                                      '接收到傳輸完畢信號
                Call FileReceiveManager(4)
                intCommFlag = 1
                
            Case Else
            
        
        
        End Select
        
    ElseIf bytTest(0) = 0 And bytTest(1) = 0 Then                       '收到數(shù)據(jù)幀
        intCommFlag = 16
        intTest = bytTest(4) * 100 + bytTest(5)
        intReceiveLen = bytTest(2) * 100 + bytTest(3)                   '數(shù)據(jù)字節(jié)數(shù)
        frmMain.ctrMSComm.InputMode = comInputModeBinary
        frmMain.ctrMSComm.InputLen = intReceiveLen
        ReDim bytReceive(intReceiveLen - 1)
        Do
        Loop While frmMain.ctrMSComm.InBufferCount < intReceiveLen
        bytReceive = frmMain.ctrMSComm.Input
        
        If intTest = bytTest(2) + bytTest(3) Then                       '根據(jù)校驗和作出響應(yīng)
            
            Call FileReceiveManager(1)                                  '校驗和正確請求發(fā)送新數(shù)據(jù)
        Else
            Call FileReceiveManager(2)                                  '校驗和錯請求重新發(fā)送
        End If
            
        intCommFlag = 1
        
    Else
        intCommFlag = 1
    End If
    
    
    
    intCommFlag = 1
End Sub

'************************************************************
'文件發(fā)送管理
'根據(jù)接收端的請求發(fā)送文件
'************************************************************



Public Sub FileSendManager(intFlag As Long)
    Dim bytTest(5) As Byte
    Dim bytSend() As Byte
    Dim intSendLen As Long
    
    Dim intProgress
   
    Select Case intFlag
        Case 0                                                          '發(fā)送新文件
            intCommFlag = 8
            
            intFileNumber = FreeFile
            Open strFileDirectary For Binary As #intFileNumber          '打開文件
            
            intFileLenth = LOF(intFileNumber)                           '獲得文件長度
            
            
            ReDim bytFileBuffer(intFileLenth - 1)
            Get #intFileNumber, , bytFileBuffer                         '將文件讀入緩沖區(qū)
            
            bytTest(0) = 0                                              '組織幀頭