Ftp服务器

开发平台：
Delphi

Unit1.~dfm：源码内容
							object Form1: TForm1
  Left = 303
  Top = 115
  Width = 279
  Height = 449
  Caption = 'Tftp server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 271
    Height = 415
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35774#23450'(config)'
      object Label1: TLabel
        Left = 8
        Top = 32
        Width = 40
        Height = 13
        Caption = #26412#22320'IP  '
      end
      object Label2: TLabel
        Left = 8
        Top = 96
        Width = 54
        Height = 13
        Caption = #26412#22320#31471#21475'  '
      end
      object Label3: TLabel
        Left = 8
        Top = 168
        Width = 66
        Height = 13
        Caption = #30446#24405#35774#23450'      '
      end
      object Label5: TLabel
        Left = 8
        Top = 240
        Width = 69
        Height = 13
        Caption = #26368#22823#36830#25509#25968'   '
      end
      object locIP_edit: TEdit
        Left = 8
        Top = 56
        Width = 121
        Height = 21
        Enabled = False
        ReadOnly = True
        TabOrder = 0
      end
      object locPort_edit: TEdit
        Left = 8
        Top = 120
        Width = 121
        Height = 21
        TabOrder = 1
        Text = '69'
      end
      object apply_button: TButton
        Left = 144
        Top = 120
        Width = 75
        Height = 25
        Caption = #24212#29992
        TabOrder = 2
        OnClick = apply_buttonClick
      end
      object path_edit: TEdit
        Left = 8
        Top = 200
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object dir_button: TButton
        Left = 144
        Top = 200
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 4
        OnClick = dir_buttonClick
      end
      object start_button: TButton
        Left = 16
        Top = 328
        Width = 75
        Height = 25
        Caption = #21551#21160'server'
        TabOrder = 5
        OnClick = start_buttonClick
      end
      object StatusBar: TStatusBar
        Left = 0
        Top = 368
        Width = 263
        Height = 19
        Panels = <
          item
            Text = #29366#24577
            Width = 100
          end>
      end
      object link_edit: TEdit
        Left = 8
        Top = 264
        Width = 121
        Height = 21
        MaxLength = 2
        TabOrder = 7
        Text = '5'
      end
      object link_button: TButton
        Left = 144
        Top = 264
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 8
        OnClick = link_buttonClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535'(log)'
      ImageIndex = 1
      object Label4: TLabel
        Left = 0
        Top = 8
        Width = 66
        Height = 13
        Caption = #26381#21153#22120#26085#24535'  '
      end
      object logmemo: TMemo
        Left = 0
        Top = 0
        Width = 263
        Height = 345
        Align = alTop
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object clear_Button: TButton
        Left = 24
        Top = 352
        Width = 75
        Height = 25
        Caption = #28165#31354
        TabOrder = 1
        OnClick = clear_ButtonClick
      end
      object save_button: TButton
        Left = 160
        Top = 352
        Width = 75
        Height = 25
        Caption = #20445#23384
        TabOrder = 2
        OnClick = save_buttonClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20316#32773'(creator)'
      ImageIndex = 2
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 263
        Height = 387
        Align = alClient
        TabOrder = 0
      end
    end
  end
  object Server: TIdUDPServer
    Bindings = <>
    DefaultPort = 69
    OnUDPRead = ServerUDPRead
    Left = 192
    Top = 24
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 156
    Top = 24
  end
  object IPWatch: TIdIPWatch
    Active = False
    HistoryFilename = 'iphist.dat'
    Left = 220
    Top = 24
  end
end

						