u_mainfrm.dfm.~64~

使用delphi编写的简单socket请求发送工具TCP协议

object frm_Main: Tfrm_Main
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Socket'#27979#35797#24037#20855
  ClientHeight = 472
  ClientWidth = 695
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = mm_File
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lb_Text: TLabel
    Left = 2
    Top = 334
    Width = 48
    Height = 12
    Caption = #21457#36865#20869#23481
  end
  object lb_Result: TLabel
    Left = 2
    Top = 407
    Width = 54
    Height = 12
    Caption = #21457#36865#32467#26524':'
  end
  object gg_Main: TGauge
    Left = 518
    Top = 347
    Width = 83
    Height = 96
    ForeColor = clBtnText
    Kind = gkPie
    Progress = 0
  end
  object pnl_Task: TPanel
    Left = 0
    Top = -4
    Width = 687
    Height = 337
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      687
      337)
    object Label1: TLabel
      Left = 518
      Top = 5
      Width = 66
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #30446#26631'IP'#22320#22336':'
      ExplicitLeft = 379
    end
    object lb_Port: TLabel
      Left = 518
      Top = 44
      Width = 54
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #30446#26631#31471#21475':'
      ExplicitLeft = 379
    end
    object sp_1: TShape
      Left = 519
      Top = 88
      Width = 163
      Height = 3
      Anchors = [akTop, akRight]
      Shape = stEllipse
      ExplicitLeft = 380
    end
    object lb_Content: TLabel
      Left = 518
      Top = 97
      Width = 54
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #21457#36865#20869#23481':'
      ExplicitLeft = 379
    end
    object lb_Repeat: TLabel
      Left = 522
      Top = 282
      Width = 54
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #37325#22797#27425#25968':'
      ExplicitLeft = 383
    end
    object lv_Result: TListView
      Left = 2
      Top = 2
      Width = 510
      Height = 330
      Columns = <
        item
          Width = 22
        end
        item
          Alignment = taCenter
          Caption = #21457#36865#20869#23481
          Width = 200
        end
        item
          Alignment = taCenter
          AutoSize = True
          Caption = #21457#36865#32467#26524
        end>
      GridLines = True
      OwnerData = True
      ReadOnly = True
      RowSelect = True
      ShowWorkAreas = True
      SmallImages = il_Main
      TabOrder = 0
      ViewStyle = vsReport
      OnCustomDrawItem = lv_ResultCustomDrawItem
      OnData = lv_ResultData
      OnMouseDown = lv_ResultMouseDown
    end
    object edt_IPFalse: TEdit
      Left = 519
      Top = 18
      Width = 163
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 1
      Text = 'edt_IPFalse'
      Visible = False
    end
    object edt_Port: TEdit
      Left = 519
      Top = 59
      Width = 84
      Height = 20
      Anchors = [akTop, akRight]
      MaxLength = 4
      TabOrder = 2
    end
    object btn_Test: TButton
      Left = 609
      Top = 57
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #27979#35797#31471#21475
      TabOrder = 3
      OnClick = btn_TestClick
    end
    object mm_Content: TMemo
      Left = 519
      Top = 110
      Width = 163
      Height = 163
      Hint = #21452#20987#28165#31354#21457#36865#20449#24687
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 4
      OnDblClick = mm_ContentDblClick
    end
    object cmb_times: TComboBox
      Left = 577
      Top = 279
      Width = 84
      Height = 20
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 5
      Text = '1'
      OnKeyPress = cmb_timesKeyPress
      Items.Strings = (
        '10'
        '50'
        '100'
        '200'
        '500'
        '1000'
        '3000'
        '5000'
        '10000'
        '100000')
    end
    object btn_Load: TButton
      Left = 607
      Top = 305
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #35013#22635#25968#25454
      TabOrder = 6
      OnClick = btn_LoadClick
    end
    object btn_Clear: TButton
      Left = 518
      Top = 305
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #28165#38500#25968#25454
      TabOrder = 7
      OnClick = btn_ClearClick
    end
  end
  object mm_Test: TMemo
    Left = 2
    Top = 347
    Width = 510
    Height = 54
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object edt_Result: TEdit
    Left = 2
    Top = 425
    Width = 510
    Height = 20
    ReadOnly = True
    TabOrder = 2
  end
  object stat_Main: TStatusBar
    Left = 0
    Top = 449