Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1.     Case TSNEX_CE_FTP
    
  2. '       Print "NDA:"; V_TSNEID; " >"; V_Data; "<"            '<<<<<<<<<<<<<<<<<<<======================
    
  3.         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
    
  4.         Do
    
  5.             XPos = Instr(1, TData, XFBCRLF)
    
  6.             If XPos = 0 Then Mutexlock(G_TSNEX_Mutex): G_TSNEX_CD(XID).T_Data = TData: Mutexunlock(G_TSNEX_Mutex): Exit Sub
    
  7.             T = Mid(TData, 1, XPos - 1): TData = Mid(TData, XPos + 2)
    
  8.             If Mid(T, 4, 1) = "-" Then XLCMD = 0 Else XLCMD = 1
    
  9.             XCMD = Val(Left(T, 3)): T = Mid(T, 5)
    
  10.             Print "     >"; V_TSNEID; "<___>"; XCMD; "<___>"; T; "<"            '<<<<<<<<<<<<<<<<<<<======================
    
  11.             If XLCMD = 1 Then
    
  12.                 Print "CMD: >"; V_TSNEID; "<___>"; XCMD; "<___>"; T; "<"            '<<<<<<<<<<<<<<<<<<<======================
    
  13.                 Select Case XCMD
    
  14.                     Case 150
    
  15.                         Select Case TCMDE
    
  16.                             Case TSNEX_ME_FTP_UpLoad