unit1.dfm

自写采用delphi控制的tcp通讯例程

object ChatForm: TChatForm
  Left = 372
  Top = 272
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ChatForm'
  ClientHeight = 199
  ClientWidth = 263
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 249
    Height = 89
    TabOrder = 0
    OnKeyDown = Memo1KeyDown
  end
  object Memo2: TMemo
    Left = 8
    Top = 104
    Width = 249
    Height = 89
    Color = cl3DLight
    Lines.Strings = (
      #26080#36830#25509)
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 80
    Top = 16
    object ListenItem: TMenuItem
      Caption = 'ListenItem'
      OnClick = ListenItemClick
    end
    object ConnectItem: TMenuItem
      Caption = 'ConnectItem'
      OnClick = ConnectItemClick
    end
    object Disconnect: TMenuItem
      Caption = 'send'
      OnClick = DisconnectClick
    end
    object loadXML: TMenuItem
      Caption = 'loadXML'
    end
    object Exit: TMenuItem
      Caption = 'Exit'
      OnClick = ExitClick
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1125
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    Left = 16
    Top = 16
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 1125
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 48
    Top = 16
  end
  object XMLDoc: TXMLDocument
    XML.Strings = (
      '<?xml version="1.0" encoding="GB2312"?>'
      '<root>'
      '<data>'
      
        '<ts>0x101</ts><id>0x1ff</id><com>0xffffffff</com><set>0xffff</se' +
        't><led>0xff</led>'
      '</data>'
      '<top>0x011111</top>'
      '<tp>0x0503</tp>'
      '</root>')
    Left = 112
    Top = 16
    DOMVendorDesc = 'MSXML'
  end
end