www.pudn.com > VBFTPServer.rar > MainApp.cls

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "MainApp" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = True 
Option Explicit 
 
Public Enum eState 
  Log_In_Out = 0 
  Transfer_Parameters = 1 
  Service_Commands = 2 
  Busy = 3 
End Enum 
 
Public Type Privtyp 
  Path As String 
  Accs As String '[R]ead,[W]rite,[D]elete,e[X]ecute > Files 
                 '[L]ist,[M]ake,[K]ill,[S]ubs       > Dirs 
End Type 
 
Public Type UserInfo 
  Name As String 'list of the users which can access to server file-system 
  Pass As String 'list of passwords of each user which can access to server file-system 
  Pcnt As Integer 
  Priv(20) As Privtyp 
  Home As String 'default directory of each user 
End Type 
  
Public Type User 
  'indexes user name and password inside 
  ' and  arrays 
  list_index As Integer 
  control_slot As Long 'slot number used by client to send commands to server. On this slot also travel the replies of server. 
  data_slot As Long    'slot number used by server to send data to client 
  IP_Address As String 'client IP address 
  Port As Integer      'number of client data port 
  'representation type to use for data 
  'encoding (ex. ASCII o EBCDIC), default type is A (= ASCII) 
  data_representation As String 
  'type of vertical format control 
  '(ie. line-feed, form-feed), default 
  'value is N (No print = no command) 
  data_format_ctrls As String 
  'file structure (ex. File-structure, Record-structure), 
  'default value is F (File-structure = no internal 
  'structure) 
  data_structure As String 
  'indicates if the data are processing before 
  'transmission (ex. Stream-mode, Block-mode), 
  'default value is S (Stream-mode = no 
  'processing) 
  data_tx_mode As String 
  'current working directory 
  cur_dir As String 
  'user state: 
  'in state 0 the user sends access control commands; 
  'in state 1 the user sends transfer parameter commands; 
  'in state 2 the user sends FTP service commands. 
  State As eState 
  full As Integer  'if true the record is already in use 
  temp_data As String  'contains temporary data 
  Jenny As Balk 
End Type 
 
Private frmFTP As New frmFTP 
 
 
Private Sub Class_Initialize() 
   Set frmFTP.MainApp = Me 
   frmFTP.Caption = frmFTP.Caption 
   frmFTP.Show 
   FTP_Init Me 
End Sub 
 
Friend Sub Closing() 
   Unload frmFTP 
   Set frmFTP = Nothing 
   Call FreeProcessWindow 
End Sub 
 
Public Sub SvrLogToScreen(ByVal str As String) 
  frmFTP.LogWnd.AddItem str 
  frmFTP.LogWnd.Selected(frmFTP.LogWnd.ListCount - 1) = True 
End Sub 
 
Public Sub UsrCnt(ByVal users As Integer) 
  frmFTP.UsrCnt.Text = users 
End Sub