weconnect_unit.~dfm

群组对话,组播版,分为服务器端和客户端代码,详细功能有介绍

object frmWeConnect: TfrmWeConnect
  Left = 119
  Top = 128
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #32676#32452#23545#35805'('#32452#25773#29256')'
  ClientHeight = 366
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 41
    Align = alTop
    PopupMenu = PopupMenu1
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 13
      Width = 48
      Height = 12
      Caption = 'My Name:'
    end
    object Label4: TLabel
      Left = 216
      Top = 13
      Width = 54
      Height = 12
      Caption = #24403#21069#29366#24577':'
    end
    object lb_State: TLabel
      Left = 274
      Top = 13
      Width = 48
      Height = 12
      Caption = 'lb_State'
    end
    object Ed_Name: TEdit
      Left = 61
      Top = 9
      Width = 123
      Height = 20
      BevelInner = bvSpace
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Ctl3D = True
      Enabled = False
      ParentCtl3D = False
      TabOrder = 0
      Text = 'Promise'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 153
    Height = 325
    Align = alLeft
    TabOrder = 1
    object TreeView1: TTreeView
      Left = 1
      Top = 1
      Width = 151
      Height = 323
      Align = alClient
      AutoExpand = True
      Color = clWhite
      Images = ImageList1
      Indent = 19
      PopupMenu = PopupMenu1
      TabOrder = 0
      Items.Data = {
        01000000210000000F0000000F0000000F000000FFFFFFFF0000000000000000
        08D4DACFDFD3C3BBA7}
    end
  end
  object Panel3: TPanel
    Left = 153
    Top = 41
    Width = 471
    Height = 325
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Top = 272
      Width = 30
      Height = 12
      Caption = #21457#35328':'
    end
    object SpeedButton1: TSpeedButton
      Left = 392
      Top = 292
      Width = 74
      Height = 26
      Caption = #21457#36865'[&S]'
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF005022
        3400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00CB9F72007A43
        3200FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00CDAA8D00EBC39B008655
        4A00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0085626D008C605300A37B6500C4A38200EBC39B00B188
        68004D19240050223400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00B2989200B89B7E00C4A78A00D0AF8D00DDBA9600EEC9A400FCD4AE00DDBA
        9600C4A78A00BA9673004D192400FF00FF00FF00FF00FF00FF00FF00FF00BB99
        8900C3AB9400DDC2A700F9D8B800F2CFAE00D17B4C00CF825600E7986A00CF82
        5600F9D5B100E0BD9B00C4A78A0074413F00FF00FF00FF00FF00B79F8800C1AE
        9B00E9D0B800FFE3C700FFE2C400FFE1C300C0917000952E0000873A1400FFE9
        CB00FFDDBA00FFDDBA00E8C7A700C7AB8F004D192400FF00FF00BCA79900E4CD
        B500FFE7D100FFE6CD00FFE5CB00FFE4C900C4997B009A330000A1562E00FFE4
        C900FFE1C300FFE0C000FFE0C000E2C3AB00C4A3820050223400D0C1B200F9E6
        D300FFEAD500FFE9D400FFE9D200FFE8D100C4997B009A330000A0583100FFE7
        CE00FFE4C900FFE3C900FFE3C700F8DCC100D4BBA500663D4D00D6CABE00FFEF
        DF00FFEEDD00FFEDDC00FFEDDB00FFEBD800C49C81009A330000A0583100FFEB
        D700FFE7D100FFE7CE00FFE6CD00FFE7CE00DDC9B300663D4D00DCCFC700FFF4
        E700FFF2E500FFF1E200FFF0E000FFF1E200A9633F009C340000A25A3500FFF0
        DC00FFEBD700FFEBD700FFE9D400FFEFD900DDC9B30069415100DDD7D100FBF4
        EC00FFF4EC00FFF3E900FFF3E900DAC6B600A37B6500996E5F00A37B6500FFF2
        E500FFEFDF00FFEEDD00FFEDDB00FCF0DF00E4D2C000FF00FF00E3DCD600EEE8
        E200FFFFFD00FFF8F100FFF8F100FFF7EE00FFFBF300F1DBC700FFF8EE00FFF3
        E900FFF4E700FFF1E400FFFFFB00F2E4D500AE8B8000FF00FF00FF00FF00E3E2
        DF00F6F1EB00FFFFFF00FFFCF700FFFCF7008E503100C5612F00A9633F00FFFB
        F300FFF8F100FFFFFF00F6ECE400EADBCD00FF00FF00FF00FF00FF00FF00FF00
        FF00E7E4E100F2F2F100FFFFFD00FFFFFF00BCA79900530F0000C9B6A600FFFF
        FF00FEFDFA00F6F1EB00E2D5CC00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00F6F1EB00EDEBE900F2F2F100FCFCFB00FFFFFF00FCFCFB00F5F4
        F200F0EBE600F7F0E800FF00FF00FF00FF00FF00FF00FF00FF00}
      OnClick = SpeedButton1Click
    end
    object Label3: TLabel
      Left = 8
      Top = 301
      Width = 30
      Height = 12
      Caption = #22270#29255':'
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 469
      Height = 256
      Align = alTop
      Caption = #26368#26032#28040#24687':'
      TabOrder = 0
      object li_Message: TListView
        Left = 2
        Top = 14
        Width = 465
        Height = 240
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Columns = <
          item
            Caption = #26469#28304
            Width = 80
          end
          item
            Caption = #26102#38388
            Width = 80
          end
          item
            Caption = #20869#23481
            Width = 300
          end>
        FlatScrollBars = True
        GridLines = True
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = False
        SmallImages = ImageList1
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object Ed_Content: TEdit
      Left = 43
      Top = 267
      Width = 422
      Height = 20
      TabOrder = 1
      OnKeyPress = Ed_ContentKeyPress
    end
    object co_Picture: TComboBoxEx
      Left = 44
      Top = 296
      Width = 95
      Height = 22
      ItemsEx.CaseSensitive = False
      ItemsEx.SortType = stNone
      ItemsEx = <
        item
          Caption = 'A'
          ImageIndex = 0
          SelectedImageIndex = 0
        end
        item
          Caption = #22075#22075
          ImageIndex = 1
          SelectedImageIndex = 1
        end
        item