⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 upip.dfm

📁 不错的远程控制程序
💻 DFM
字号:
object UpIpDate: TUpIpDate
  Left = 474
  Top = 218
  AutoScroll = False
  Caption = #33258#21160#19978#32447
  ClientHeight = 290
  ClientWidth = 383
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 277
    Width = 383
    Height = 13
    Align = alBottom
    Caption = #23601#32490
    Color = 15197159
    ParentColor = False
  end
  object Label13: TLabel
    Left = 104
    Top = 8
    Width = 38
    Height = 13
    Caption = 'Label13'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 383
    Height = 277
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = #24076#32593#22495#21517#26356#26032'IP'
      ImageIndex = 1
      object Label10: TLabel
        Left = 208
        Top = 208
        Width = 105
        Height = 12
        Cursor = crHandPoint
        AutoSize = False
        Caption = #31185#36808#22495#21517#26356#26032'IP'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = Label10Click
      end
      object Label12: TLabel
        Left = 88
        Top = 208
        Width = 84
        Height = 12
        Cursor = crHandPoint
        Hint = 'http://my.126.com'
        AutoSize = False
        Caption = #27880#20876#33457#29983#22771#22495#21517
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsUnderline]
        ParentFont = False
        Transparent = True
        OnClick = Label12Click
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 8
        Width = 345
        Height = 177
        TabOrder = 0
        object Label15: TLabel
          Left = 24
          Top = 26
          Width = 36
          Height = 12
          Caption = #22495#21517#65306
        end
        object Label17: TLabel
          Left = 24
          Top = 60
          Width = 48
          Height = 12
          Caption = #29992#25143#21517#65306
        end
        object Label18: TLabel
          Left = 192
          Top = 60
          Width = 36
          Height = 12
          Caption = #23494#30721#65306
        end
        object Label19: TLabel
          Left = 24
          Top = 92
          Width = 72
          Height = 12
          Caption = #26412#26426'IP'#22320#22336#65306
        end
        object Label11: TLabel
          Left = 24
          Top = 128
          Width = 72
          Height = 12
          Cursor = crHandPoint
          Hint = 'http://my.126.com'
          AutoSize = False
          Caption = #27880#20876#24076#32593#22495#21517
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsUnderline]
          ParentFont = False
          Transparent = True
          OnClick = Label11Click
        end
        object XwEdit: TEdit
          Left = 72
          Top = 24
          Width = 249
          Height = 20
          TabOrder = 0
        end
        object Xwuser: TEdit
          Left = 72
          Top = 56
          Width = 105
          Height = 20
          TabOrder = 1
        end
        object Xwpass: TEdit
          Left = 240
          Top = 56
          Width = 81
          Height = 20
          TabOrder = 2
        end
        object XWComboBox: TComboBox
          Left = 96
          Top = 85
          Width = 225
          Height = 20
          ItemHeight = 12
          TabOrder = 3
          Text = '127.0.0.1'
          Items.Strings = (
            '127.0.0.1')
        end
        object XWButton: TBitBtn
          Left = 120
          Top = 120
          Width = 121
          Height = 25
          Caption = #26356#26032'IP'#21040#24076#32593#22495#21517
          TabOrder = 4
          OnClick = XWButtonClick
        end
        object CheckRadioBox1: TCheckBox
          Left = 192
          Top = 152
          Width = 145
          Height = 17
          Caption = #33258#21160#20445#23384#22635#20889#30340#20449#24687#65281
          Checked = True
          State = cbChecked
          TabOrder = 5
          OnClick = CheckRadioBox1Click
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'FTP'#26356#26032'IP'
      object Label2: TLabel
        Left = 24
        Top = 12
        Width = 66
        Height = 12
        Caption = 'FTP'#26381#21153#22120#65306
      end
      object Label3: TLabel
        Left = 280
        Top = 12
        Width = 36
        Height = 12
        Caption = #31471#21475#65306
      end
      object Label4: TLabel
        Left = 24
        Top = 40
        Width = 48
        Height = 12
        Caption = #29992#25143#21517#65306
      end
      object Label5: TLabel
        Left = 24
        Top = 68
        Width = 60
        Height = 12
        Caption = #30331#38470#23494#30721#65306
      end
      object Label6: TLabel
        Left = 200
        Top = 68
        Width = 60
        Height = 12
        Caption = #23494#30721#30830#35748#65306
      end
      object Label7: TLabel
        Left = 16
        Top = 124
        Width = 84
        Height = 12
        Caption = #23384#25918'IP'#30340#25991#20214#65306
      end
      object Label8: TLabel
        Left = 16
        Top = 154
        Width = 72
        Height = 12
        Caption = 'IP'#25991#20214#20869#23481#65306
      end
      object Label9: TLabel
        Left = 16
        Top = 188
        Width = 84
        Height = 12
        Caption = 'Http'#35775#38382#22320#22336#65306
        Visible = False
      end
      object Splitter1: TSplitter
        Left = 8
        Top = 101
        Width = 361
        Height = 2
        Align = alCustom
        Beveled = True
      end
      object FTPAdder: TEdit
        Left = 96
        Top = 8
        Width = 177
        Height = 20
        TabOrder = 0
      end
      object FTPPort: TEdit
        Left = 320
        Top = 8
        Width = 33
        Height = 20
        TabOrder = 1
        Text = '21'
      end
      object FTPUser: TEdit
        Left = 96
        Top = 35
        Width = 257
        Height = 20
        TabOrder = 2
      end
      object FTPPass1: TEdit
        Left = 96
        Top = 64
        Width = 89
        Height = 20
        PasswordChar = '*'
        TabOrder = 3
      end
      object FTPPass2: TEdit
        Left = 264
        Top = 64
        Width = 89
        Height = 20
        PasswordChar = '*'
        TabOrder = 4
      end
      object IpFileEdit: TEdit
        Left = 112
        Top = 120
        Width = 241
        Height = 20
        TabOrder = 5
        Text = 'ip.txt'
      end
      object IPAddEdit: TComboBox
        Left = 112
        Top = 152
        Width = 241
        Height = 20
        ItemHeight = 12
        TabOrder = 6
        Text = 'http://127.0.0.1:8080/wwwroot'
        Items.Strings = (
          'http://127.0.0.1:8080/wwwroot')
      end
      object httpEdit: TEdit
        Left = 288
        Top = 176
        Width = 65
        Height = 20
        TabOrder = 7
        Visible = False
      end
      object RadioBox1: TCheckBox
        Left = 224
        Top = 216
        Width = 137
        Height = 17
        Caption = #33258#21160#20445#23384#22635#20889#30340#20449#24687#65281
        Checked = True
        State = cbChecked
        TabOrder = 8
        OnClick = RadioBox1Click
      end
      object FtpButton1: TBitBtn
        Left = 128
        Top = 184
        Width = 97
        Height = 25
        Caption = #26356'  '#26032
        TabOrder = 9
        OnClick = FtpButton1Click
      end
    end
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 20000
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = 0
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'myclient/1.0 me@null.net'
    HTTPOptions = [hoForceEncodeParams]
    Left = 12
    Top = 216
  end
  object IdHTTP2: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 20000
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = 0
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = True
    Request.UserAgent = 'myclient/1.0 me@null.net'
    HTTPOptions = [hoForceEncodeParams]
    Left = 96
    Top = 224
  end
  object NMFTP1: TNMFTP
    PORT = 21
    ReportLevel = 0
    OnConnect = NMFTP1Connect
    OnStatus = NMFTP1Status
    OnConnectionFailed = NMFTP1ConnectionFailed
    OnError = NMFTP1Error
    OnSuccess = NMFTP1Success
    Vendor = 2411
    ParseList = False
    ProxyPort = 0
    Passive = False
    FirewallType = FTUser
    FWAuthenticate = False
    Left = 69
    Top = 226
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -