Unit1.dfm
上传用户:hc3721
上传日期:2021-06-05
资源大小:197k
文件大小:4k
源码类别:

扫描程序

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 256
  3.   Top = 150
  4.   Width = 690
  5.   Height = 448
  6.   Caption = #31471#21475#25195#25551#24037#20855
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   OnKeyDown = FormKeyDown
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label1: TLabel
  19.     Left = 320
  20.     Top = 48
  21.     Width = 65
  22.     Height = 20
  23.     AutoSize = False
  24.     Caption = #25195#25551'IP'
  25.     Font.Charset = DEFAULT_CHARSET
  26.     Font.Color = clWindowText
  27.     Font.Height = -16
  28.     Font.Name = 'MS Sans Serif'
  29.     Font.Style = [fsBold]
  30.     ParentFont = False
  31.   end
  32.   object Label2: TLabel
  33.     Left = 328
  34.     Top = 120
  35.     Width = 41
  36.     Height = 20
  37.     AutoSize = False
  38.     Caption = #24320#22987
  39.     Font.Charset = DEFAULT_CHARSET
  40.     Font.Color = clWindowText
  41.     Font.Height = -16
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = [fsBold]
  44.     ParentFont = False
  45.   end
  46.   object Label3: TLabel
  47.     Left = 496
  48.     Top = 120
  49.     Width = 41
  50.     Height = 20
  51.     AutoSize = False
  52.     Caption = #32467#26463
  53.     Font.Charset = DEFAULT_CHARSET
  54.     Font.Color = clWindowText
  55.     Font.Height = -16
  56.     Font.Name = 'MS Sans Serif'
  57.     Font.Style = [fsBold]
  58.     ParentFont = False
  59.   end
  60.   object Label4: TLabel
  61.     Left = 280
  62.     Top = 168
  63.     Width = 169
  64.     Height = 20
  65.     AutoSize = False
  66.     Caption = #25195#25551#38388#38548'('#27627#31186')'
  67.     Font.Charset = DEFAULT_CHARSET
  68.     Font.Color = clWindowText
  69.     Font.Height = -16
  70.     Font.Name = 'MS Sans Serif'
  71.     Font.Style = [fsBold]
  72.     ParentFont = False
  73.   end
  74.   object Label5: TLabel
  75.     Left = 288
  76.     Top = 192
  77.     Width = 225
  78.     Height = 25
  79.     AutoSize = False
  80.     Caption = #26102#38388#36755#20837#20540#36234#23567#36234#24555#65292#20294#20250#24433#21709#32593#36895#65281
  81.     Font.Charset = DEFAULT_CHARSET
  82.     Font.Color = clRed
  83.     Font.Height = -11
  84.     Font.Name = 'MS Sans Serif'
  85.     Font.Style = []
  86.     ParentFont = False
  87.   end
  88.   object Memo1: TMemo
  89.     Left = 40
  90.     Top = 40
  91.     Width = 217
  92.     Height = 297
  93.     Lines.Strings = (
  94.       '                     '#31471#21475#25195#25551)
  95.     TabOrder = 0
  96.   end
  97.   object Edit1: TEdit
  98.     Left = 400
  99.     Top = 48
  100.     Width = 129
  101.     Height = 21
  102.     TabOrder = 1
  103.     Text = '127.0.0.1'
  104.   end
  105.   object Edit2: TEdit
  106.     Left = 400
  107.     Top = 120
  108.     Width = 65
  109.     Height = 21
  110.     TabOrder = 2
  111.     Text = '0'
  112.   end
  113.   object Edit3: TEdit
  114.     Left = 552
  115.     Top = 120
  116.     Width = 73
  117.     Height = 21
  118.     TabOrder = 3
  119.     Text = '200'
  120.   end
  121.   object Button1: TButton
  122.     Left = 304
  123.     Top = 224
  124.     Width = 65
  125.     Height = 25
  126.     Caption = #25195#25551
  127.     Font.Charset = DEFAULT_CHARSET
  128.     Font.Color = clWindowText
  129.     Font.Height = -16
  130.     Font.Name = 'MS Sans Serif'
  131.     Font.Style = [fsBold]
  132.     ParentFont = False
  133.     TabOrder = 4
  134.     OnClick = Button1Click
  135.   end
  136.   object ProgressBar1: TProgressBar
  137.     Left = 264
  138.     Top = 264
  139.     Width = 409
  140.     Height = 17
  141.     TabOrder = 5
  142.   end
  143.   object Edit4: TEdit
  144.     Left = 424
  145.     Top = 168
  146.     Width = 65
  147.     Height = 21
  148.     TabOrder = 6
  149.     Text = '10'
  150.   end
  151.   object Button2: TButton
  152.     Left = 408
  153.     Top = 224
  154.     Width = 105
  155.     Height = 25
  156.     Caption = #20572#27490#25195#25551
  157.     Font.Charset = DEFAULT_CHARSET
  158.     Font.Color = clWindowText
  159.     Font.Height = -16
  160.     Font.Name = 'MS Sans Serif'
  161.     Font.Style = [fsBold]
  162.     ParentFont = False
  163.     TabOrder = 7
  164.     OnClick = Button2Click
  165.   end
  166.   object Button3: TButton
  167.     Left = 544
  168.     Top = 224
  169.     Width = 57
  170.     Height = 25
  171.     Caption = #36864#20986
  172.     Font.Charset = DEFAULT_CHARSET
  173.     Font.Color = clWindowText
  174.     Font.Height = -16
  175.     Font.Name = 'MS Sans Serif'
  176.     Font.Style = [fsBold]
  177.     ParentFont = False
  178.     TabOrder = 8
  179.     OnClick = Button3Click
  180.   end
  181.   object ClientSocket1: TClientSocket
  182.     Active = False
  183.     ClientType = ctNonBlocking
  184.     Port = 0
  185.     OnConnect = ClientSocket1Connect
  186.     OnError = ClientSocket1Error
  187.     Left = 48
  188.     Top = 368
  189.   end
  190.   object Timer1: TTimer
  191.     Enabled = False
  192.     Interval = 10
  193.     OnTimer = Timer1Timer
  194.     Left = 136
  195.     Top = 376
  196.   end
  197. end