uclmain.dfm

delphi中的SOCKET使用的简单程序

object fmClient: TfmClient
  Left = 293
  Top = 143
  Width = 651
  Height = 573
  Caption = 'fmClient'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 60
    Width = 643
    Height = 460
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #32842#22825#23460
      object Memo1: TMemo
        Left = 0
        Top = 34
        Width = 635
        Height = 406
        Align = alClient
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 635
        Height = 34
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Panel3'
        TabOrder = 1
        DesignSize = (
          635
          34)
        object edtMsg: TEdit
          Left = 8
          Top = 8
          Width = 528
          Height = 20
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object Button2: TButton
          Left = 551
          Top = 6
          Width = 75
          Height = 25
          Anchors = [akTop, akRight]
          Caption = #21457#36865#28040#24687
          TabOrder = 1
          OnClick = Button2Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20849#20139#30446#24405
      ImageIndex = 1
      object ListView1: TListView
        Left = 0
        Top = 34
        Width = 552
        Height = 399
        Align = alClient
        Columns = <
          item
            Caption = #31867#22411
          end
          item
            Caption = #21517#31216
            Width = 400
          end>
        MultiSelect = True
        RowSelect = True
        PopupMenu = PopupMenu1
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 635
        Height = 34
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        DesignSize = (
          635
          34)
        object BitBtn1: TBitBtn
          Left = 518
          Top = 2
          Width = 105
          Height = 25
          Anchors = [akTop, akRight]
          Caption = #21462#24471#20849#20139#30446#24405
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object edtDir: TEdit
          Left = 8
          Top = 6
          Width = 497
          Height = 20
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object Memo2: TMemo
        Left = 552
        Top = 34
        Width = 83
        Height = 399
        Align = alRight
        TabOrder = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 643
    Height = 60
    Align = alTop
    Color = clSkyBlue
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 42
      Height = 12
      Caption = 'Server:'
    end
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 30
      Height = 12
      Caption = 'Port:'
    end
    object Button1: TButton
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Connect'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit2: TEdit
      Left = 56
      Top = 8
      Width = 121
      Height = 20
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object Edit3: TEdit
      Left = 56
      Top = 32
      Width = 121
      Height = 20
      TabOrder = 2
      Text = '12345'
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 520
    Width = 643
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = ClientSocket1Lookup
    OnConnecting = ClientSocket1Connecting
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnWrite = ClientSocket1Write
    OnError = ClientSocket1Error
    Left = 272
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 200
    object N1: TMenuItem
      Caption = #19979#36733
      OnClick = N1Click
    end
  end
end