Home

Add

Edit

With Linenumbers

Code in Textfield

Download

    Case TSNEX_CE_FTP
'       Print "NDA:"; V_TSNEID; " >"; V_Data; "<"            '<<<<<<<<<<<<<<<<<<<======================
        If Len(TData) > 100000 Then Mutexlock(G_TSNEX_Mutex): G_TSNEX_CD(XID).T_ErrorCode = TSNEX_Const_TRXE_DataLen: Mutexunlock(G_TSNEX_Mutex): TSNE_Disconnect(V_TSNEID): Exit Sub
        Do
            XPos = Instr(1, TData, XFBCRLF)
            If XPos = 0 Then Mutexlock(G_TSNEX_Mutex): G_TSNEX_CD(XID).T_Data = TData: Mutexunlock(G_TSNEX_Mutex): Exit Sub
            T = Mid(TData, 1, XPos - 1): TData = Mid(TData, XPos + 2)
            If Mid(T, 4, 1) = "-" Then XLCMD = 0 Else XLCMD = 1
            XCMD = Val(Left(T, 3)): T = Mid(T, 5)
            Print "     >"; V_TSNEID; "<___>"; XCMD; "<___>"; T; "<"            '<<<<<<<<<<<<<<<<<<<======================
            If XLCMD = 1 Then
                Print "CMD: >"; V_TSNEID; "<___>"; XCMD; "<___>"; T; "<"            '<<<<<<<<<<<<<<<<<<<======================
                Select Case XCMD
                    Case 150
                        Select Case TCMDE
                            Case TSNEX_ME_FTP_UpLoad