Ftp服务器

开发平台：
Delphi

Unit1.dfm：源码内容
							object Form1: TForm1
  Left = 410
  Top = 149
  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 = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23458#25143#31471
      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 = 52
        Height = 13
        Caption = #26381#21153#22120'IP  '
      end
      object Label4: TLabel
        Left = 8
        Top = 152
        Width = 66
        Height = 13
        Caption = #26381#21153#22120#31471#21475'  '
      end
      object apply_button: TButton
        Left = 0
        Top = 192
        Width = 75
        Height = 25
        Caption = #36830#25509
        TabOrder = 0
        OnClick = apply_buttonClick
      end
      object locIP_edit: TEdit
        Left = 112
        Top = 24
        Width = 121
        Height = 21
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object locPort_edit: TEdit
        Left = 112
        Top = 66
        Width = 121
        Height = 21
        TabOrder = 2
        Text = '1000'
      end
      object remoteIP_edit: TEdit
        Left = 112
        Top = 109
        Width = 121
        Height = 21
        TabOrder = 3
        Text = '127.0.0.1'
      end
      object remotePort_edit: TEdit
        Left = 112
        Top = 152
        Width = 121
        Height = 21
        TabOrder = 4
        Text = '69'
      end
      object read_button: TButton
        Left = 24
        Top = 280
        Width = 75
        Height = 25
        Caption = #19979#36733#25991#20214' '
        Enabled = False
        TabOrder = 5
        OnClick = read_buttonClick
      end
      object StatusBar: TStatusBar
        Tag = 1
        Left = 0
        Top = 363
        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 = 128
        Top = 280
        Width = 75
        Height = 25
        Caption = #19978#20256#25991#20214
        Enabled = False
        TabOrder = 7
        OnClick = write_buttonClick
      end
      object path_edit: TEdit
        Left = 0
        Top = 240
        Width = 121
        Height = 21
        TabOrder = 8
        Text = #35831#36755#20837#25991#20214#21517
      end
      object browse_button: TButton
        Left = 128
        Top = 240
        Width = 65
        Height = 25
        Caption = #26412#22320#27983#35272
        Enabled = False
        TabOrder = 9
        OnClick = browse_buttonClick
      end
      object cancel_button: TButton
        Left = 200
        Top = 240
        Width = 41
        Height = 25
        Caption = #21462#28040
        Enabled = False
        TabOrder = 10
        OnClick = cancel_buttonClick
      end
      object stop_button: TButton
        Left = 96
        Top = 192
        Width = 75
        Height = 25
        Caption = #26029#24320
        Enabled = False
        TabOrder = 11
        OnClick = stop_buttonClick
      end
      object trace_button: TButton
        Left = 72
        Top = 312
        Width = 81
        Height = 25
        Caption = #36319#36394#20256#36755
        TabOrder = 12
        OnClick = trace_buttonClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535
      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
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 124
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    Left = 148
    Top = 16
  end
  object client: TIdUDPServer
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = clientUDPRead
    Left = 100
    Top = 16
  end
  object IPWatch: TIdIPWatch
    Active = False
    HistoryEnabled = False
    HistoryFilename = 'iphist.dat'
    Left = 172
    Top = 16
  end
end

						