unit1.dfm

tcp/ip通讯程序

object Form1: TForm1
  Left = 190
  Top = 72
  Width = 687
  Height = 612
  VertScrollBar.Position = 13
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #30417#25511#20013#24515#26381#21153#31471#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = Form1Close
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 24
  object PageControl1: TPageControl
    Left = 8
    Top = 18
    Width = 617
    Height = 658
    ActivePage = TabSheet1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MultiLine = True
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'GPRS'#25968#25454#25910#21457#30417#35270
      ParentShowHint = False
      ShowHint = False
      object GroupBox3: TGroupBox
        Left = 200
        Top = 16
        Width = 409
        Height = 353
        Caption = #25910#21040'GPRS'#25968#25454
        TabOrder = 0
        object Memo1: TMemo
          Left = 2
          Top = 14
          Width = 405
          Height = 337
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object GroupBox1: TGroupBox
        Left = 208
        Top = 392
        Width = 393
        Height = 137
        Caption = #21457#36865'GPRS'#25968#25454
        TabOrder = 1
        object Label4: TLabel
          Left = 32
          Top = 32
          Width = 96
          Height = 12
          Caption = #36755#20837#35201#21457#36865#30340#25968#25454
        end
        object SENDTEXT: TEdit
          Left = 24
          Top = 64
          Width = 353
          Height = 20
          TabOrder = 0
          Text = '123456789'
        end
        object Send_gprsclick: TButton
          Left = 184
          Top = 96
          Width = 75
          Height = 33
          Caption = #21457#36865
          TabOrder = 1
          OnClick = Send_gprsclickClick
        end
      end
      object clearclick: TButton
        Left = 72
        Top = 304
        Width = 75
        Height = 49
        Caption = #28165#31354
        TabOrder = 2
        OnClick = clearclickClick
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 16
        Width = 177
        Height = 121
        Caption = #25509#25910#31471#21475#35774#32622
        TabOrder = 3
        object portn: TEdit
          Left = 32
          Top = 32
          Width = 121
          Height = 20
          TabOrder = 0
          Text = '9999'
        end
        object Button3: TButton
          Left = 48
          Top = 64
          Width = 97
          Height = 41
          Caption = #24320#21551#26381#21153#20013#24515
          TabOrder = 1
          OnClick = Button3Click
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 144
        Width = 177
        Height = 113
        Caption = #21327#35758#36873#25321
        TabOrder = 4
        object tcp_Button: TButton
          Left = 16
          Top = 32
          Width = 65
          Height = 57
          Caption = 'TCP'#21327#35758
          TabOrder = 0
          OnClick = tcp_ButtonClick
        end
        object udp_Button: TButton
          Left = 80
          Top = 32
          Width = 75
          Height = 57
          Caption = 'UDP'#21327#35758
          TabOrder = 1
          OnClick = udp_ButtonClick
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #36828#31243#26080#32447#25511#21046
      ImageIndex = 3
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = -13
    Width = 663
    Height = 17
    ButtonHeight = 31
    ButtonWidth = 33
    Caption = 'ToolBar1'
    TabOrder = 1
  end
  object Winsock: TWinsock
    Left = 336
    Top = 3
    Width = 28
    Height = 28
    OnDataArrival = DataReci
    ControlData = {
      2143341208000000E5020000E502000092D88D24000006000100000000000000
      00000000B8220000}
  end
  object MainMenu1: TMainMenu
    Left = 384
    Top = 3
    object N4: TMenuItem
      Caption = #20018#21475#36890#35759
      ShortCut = 16452
      OnClick = N4Click
    end
  end
end