u_mainfrm.dfm

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

object frm_Main: Tfrm_Main
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Socket'#27979#35797#24037#20855'--('#25968#25454#19994#21153#37096#28023#21335#39033#30446#32452#19987#29992#29256')'
  ClientHeight = 480
  ClientWidth = 688
  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 = 344
    Width = 48
    Height = 12
    Caption = #21457#36865#20869#23481
  end
  object lb_Result: TLabel
    Left = 2
    Top = 421
    Width = 54
    Height = 12
    Caption = #21457#36865#32467#26524':'
  end
  object gg_Main: TGauge
    Left = 518
    Top = 357
    Width = 96
    Height = 98
    ForeColor = clBtnText
    Kind = gkPie
    Progress = 0
  end
  object pnl_Task: TPanel
    Left = 0
    Top = 2
    Width = 687
    Height = 338
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      687
      338)
    object Label1: TLabel
      Left = 518
      Top = 8
      Width = 66
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #30446#26631'IP'#22320#22336':'
    end
    object lb_Port: TLabel
      Left = 518
      Top = 48
      Width = 54
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #30446#26631#31471#21475':'
    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 SpeedButton1: TSpeedButton
      Left = 661
      Top = 22
      Width = 22
      Height = 20
      Flat = True
      Glyph.Data = {
        EE030000424DEE03000000000000360000002800000012000000110000000100
        180000000000B80300007412000074120000000000000000000009FFF709FFF7
        09FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FF
        F709FFF709FFF709FFF709FFF709FFF7000009FFF709FFF709FFF709FFF709FF
        F780808000000000000000000000000000000080808009FFF709FFF709FFF709
        FFF709FFF709FFF7000009FFF709FFF709FFF709FFF700000000000080800080
        800080800080800080800000000000000009FFF709FFF709FFF709FFF709FFF7
        000009FFF7800000000000000000000000000000000000000000FFFF00FFFF00
        FFFF00FFFF0080800000000009FFF709FFF709FFF709FFF7000009FFF7FF0000
        FFFFFFFFFFFF0000FFFFFFFFFFFFFF000000FFFF00FFFF00FFFF00FFFF00FFFF
        0000000009FFF709FFF709FFF709FFF7000009FFF7800000FFFFFF0000FF0000
        FF0000FFFFFFFF000000000000FFFF00FFFF00FFFF0080800000000009FFF709
        FFF709FFF709FFF7000009FFF7FF0000FFFFFF0000FFFFFFFF0000FF0000FF00
        0000FF000000000080800000000000000009FFF709FFF709FFF709FFF709FFF7
        000009FFF7800000FFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFF0000FF0000
        00000000000000000000000009FFF709FFF709FFF709FFF7000009FFF7FF0000
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFF0000FF0000FF0000FF00
        00FF000000000009FFF709FFF709FFF7000009FFF7800000FF0000800000FF00
        00800000FF0000FF00000000FFFF0000FF0000FF0000FF0000FF0000FF000000
        000009FFF709FFF7000009FFF709FFF709FFF709FFF709FFF709FFF709FFF709
        FFF7FF0000FF0000FF0000FF0000FF0000FF000000000009FFF709FFF709FFF7
        000009FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF7FF0000FF0000
        FF0000FF0000FF0000000000FFFF0000000009FFF709FFF7000009FFF709FFF7
        09FFF709FFF709FFF709FFF709FFF709FFF7FF0000FFFF00FF0000FF00000000
        0009FFF7FFFF00FFFF0000000009FFF7000009FFF709FFF709FFF709FFF709FF
        F709FFF709FFF709FFF709FFF7FF0000FFFF00FF0000FFFF0000000009FFF7FF
        FF00FFFF0009FFF7000009FFF709FFF709FFF709FFF709FFF709FFF709FFF709
        FFF709FFF709FFF7FF000009FFF7FFFF00FFFF0000000009FFF709FFF709FFF7
        000009FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF7
        09FFF709FFF709FFF7FFFF00FFFF0009FFF709FFF709FFF7000009FFF709FFF7
        09FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FFF709FF
        F709FFF709FFF709FFF709FFF709FFF70000}
      OnClick = SpeedButton1Click
    end
    object lv_Result: TListView
      Left = 2
      Top = 5
      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 = 22
      Width = 140
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 1
      Text = 'edt_IPFalse'
      Visible = False
    end
    object edt_Port: TEdit
      Left = 519
      Top = 63
      Width = 84
      Height = 20
      Anchors = [akTop, akRight]
      MaxLength = 4
      TabOrder = 2
    end
    object btn_Test: TButton
      Left = 609
      Top = 61
      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