Ftp服务器

开发平台：
Delphi

Unit1.~dfm：源码内容
							object Form1: TForm1
  Left = 394
  Top = 160
  Width = 256
  Height = 447
  Caption = 'Tftp client'
  Color = clBtnFace
  Constraints.MaxHeight = 447
  Constraints.MaxWidth = 256
  Constraints.MinHeight = 447
  Constraints.MinWidth = 256
  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 = 248
    Height = 413
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35774#23450'(config)'
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 43
        Height = 13
        Caption = #26412#22320'IP   '
      end
      object Label2: TLabel
        Left = 8
        Top = 66
        Width = 57
        Height = 13
        Caption = #26412#22320#31471#21475'   '
      end
      object Label3: TLabel
        Left = 16
        Top = 109
        Width = 40
        Height = 13
        Caption = #36828#31243'IP  '
      end
      object Label4: TLabel
        Left = 8
        Top = 152
        Width = 54
        Height = 13
        Caption = #36828#31243#31471#21475'  '
      end
      object apply_button: TButton
        Left = 0
        Top = 208
        Width = 75
        Height = 25
        Caption = #24212#29992
        TabOrder = 0
        OnClick = apply_buttonClick
      end
      object locIP_edit: TEdit
        Left = 112
        Top = 24
        Width = 121
        Height = 22
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object locPort_edit: TEdit
        Left = 112
        Top = 66
        Width = 121
        Height = 22
        TabOrder = 2
        Text = '1000'
      end
      object remoteIP_edit: TEdit
        Left = 112
        Top = 109
        Width = 121
        Height = 22
        TabOrder = 3
        Text = '127.0.0.1'
      end
      object remotePort_edit: TEdit
        Left = 112
        Top = 152
        Width = 121
        Height = 22
        TabOrder = 4
        Text = '69'
      end
      object read_button: TButton
        Left = 0
        Top = 248
        Width = 75
        Height = 25
        Caption = #35835#25991#20214' '
        Enabled = False
        TabOrder = 5
        OnClick = read_buttonClick
      end
      object StatusBar: TStatusBar
        Tag = 1
        Left = 0
        Top = 366
        Width = 240
        Height = 19
        Panels = <
          item
            Text = #29366#24577
            Width = 100
          end
          item
            Text = #36895#24230
            Width = 20
          end>
      end
      object write_button: TButton
        Left = 160
        Top = 248
        Width = 75
        Height = 25
        Caption = #20889#25991#20214
        Enabled = False
        TabOrder = 7
        OnClick = write_buttonClick
      end
      object path_edit: TEdit
        Left = 0
        Top = 296
        Width = 121
        Height = 21
        TabOrder = 8
        Text = 'rfc1350.txt'
      end
      object browse_button: TButton
        Left = 136
        Top = 296
        Width = 49
        Height = 25
        Caption = #27983#35272
        Enabled = False
        TabOrder = 9
        OnClick = browse_buttonClick
      end
      object cancel_button: TButton
        Left = 184
        Top = 296
        Width = 49
        Height = 25
        Caption = #21462#28040
        Enabled = False
        TabOrder = 10
        OnClick = cancel_buttonClick
      end
      object stop_button: TButton
        Left = 160
        Top = 208
        Width = 75
        Height = 25
        Caption = #20572#27490
        Enabled = False
        TabOrder = 11
        OnClick = stop_buttonClick
      end
      object trace_button: TButton
        Left = 80
        Top = 232
        Width = 65
        Height = 25
        Caption = #36319#36394
        TabOrder = 12
        OnClick = trace_buttonClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535'(log)'
      ImageIndex = 1
      object logmemo: TMemo
        Left = 0
        Top = 0
        Width = 240
        Height = 345
        Align = alTop
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object clear_Button: TButton
        Left = 16
        Top = 352
        Width = 75
        Height = 25
        Caption = #28165#31354
        TabOrder = 1
        OnClick = clear_ButtonClick
      end
      object save_button: TButton
        Left = 144
        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
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 92
    Top = 208
  end
  object OpenDialog1: TOpenDialog
    Left = 116
    Top = 208
  end
  object client: TIdUDPServer
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = clientUDPRead
    Left = 68
    Top = 208
  end
  object IPWatch: TIdIPWatch
    Active = False
    HistoryEnabled = False
    HistoryFilename = 'iphist.dat'
    Left = 140
    Top = 208
  end
end

						