Ftp服务器

开发平台：
Delphi

Unit1.~dfm：源码内容
							object Form1: TForm1
  Left = 339
  Top = 102
  Width = 405
  Height = 404
  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 = 397
    Height = 370
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26381#21153#22120#31471
      object Label1: TLabel
        Left = 8
        Top = 32
        Width = 40
        Height = 13
        Caption = #26412#22320'IP  '
      end
      object Label2: TLabel
        Left = 160
        Top = 32
        Width = 54
        Height = 13
        Caption = #26412#22320#31471#21475'  '
      end
      object Label3: TLabel
        Left = 8
        Top = 168
        Width = 66
        Height = 13
        Caption = #20849#20139#30446#24405'      '
      end
      object Label5: TLabel
        Left = 8
        Top = 96
        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 = 160
        Top = 56
        Width = 73
        Height = 21
        TabOrder = 1
        Text = '69'
      end
      object apply_button: TButton
        Left = 248
        Top = 56
        Width = 57
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = apply_buttonClick
      end
      object path_edit: TEdit
        Left = 8
        Top = 192
        Width = 233
        Height = 21
        TabOrder = 3
      end
      object dir_button: TButton
        Left = 264
        Top = 192
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 4
        OnClick = dir_buttonClick
      end
      object start_button: TButton
        Left = 168
        Top = 248
        Width = 89
        Height = 33
        Caption = #21551#21160#26381#21153#22120
        TabOrder = 5
        OnClick = start_buttonClick
      end
      object StatusBar: TStatusBar
        Left = 0
        Top = 323
        Width = 389
        Height = 19
        Panels = <
          item
            Text = #29366#24577
            Width = 100
          end>
      end
      object link_edit: TEdit
        Left = 8
        Top = 120
        Width = 57
        Height = 21
        MaxLength = 2
        TabOrder = 7
        Text = '3'
      end
      object link_button: TButton
        Left = 80
        Top = 120
        Width = 49
        Height = 25
        Caption = #20462#25913
        TabOrder = 8
        OnClick = link_buttonClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535
      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 = 389
        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
  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
    HistoryEnabled = False
    HistoryFilename = 'iphist.dat'
    Left = 220
    Top = 24
  end
end

						