unit1.dfm

实现局部网及时聊天等很多功能,包括视频

object Form1: TForm1
  Left = 245
  Top = 109
  Width = 713
  Height = 524
  AutoSize = True
  Caption = #32043#38738#22478#23616#22495#32593#32842#22825#26381#21153#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002001010000001001800680300002600000010100000010008006805
    00008E0300002800000010000000200000000100180000000000400300000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    007E85971956B4004BBB466BA7AB998900000000000000000000000000000000
    00000000000000000000000000000000001957B41195F816A0FF118BEC004BBB
    074EB9044DBA014BBB0D51B73B66AA9991900000000000000000000000000000
    007F879A1A59B6179DF623B1FF20B2FF21B1FD21B3FE21B4FF1EADFB1698EF0B
    71D60251BFB7A08A000000000000000000C1A78A0861CB39B1F724B9FF26BDFF
    27C0FF28C0FF27BFFF26BDFF23BAFF21B4FF2096EC0760CBBAA48C0000000000
    00095FCA50AEEF26BEFF2BC4FF2DC8FFC1F0FF2ECDFF2ECAFFC0EFFF2AC4FFBE
    ECFF22B6FF4DACF1085FCA00000096999D0E76CD3AC5FF2CC7FF2FCFFF0045B2
    C3F3FF35D8FF0045B2C2F2FF0045B2C0EFFF27C0FF36BDFF0C73CD96999D3875
    B11FA4F12EC7FF30D0FF35D8FF0045B2C4F6FF3AE3FF0045B2C4F5FF0045B2C1
    F1FF2CC7FF28BFFF1B9DF13875B1196DC228BEFC32CEFF36D8FF3AE1FF0045B2
    C6F9FFC6FAFF0045B288F0FF0045B2C3F3FF30CEFF2CC4FF22B4FC196DC21B72
    C636C5FC5BDCFF64E4FF7BEEFF0045B20045B20045B24296D582F4FF0045B250
    E1FF37D4FF3FCDFF25B7FC297FD65D94C640BDF89BEBFF7BECFF90F4FF0045B2
    E7FEFFB9FEFFBBFDFFB7FBFFADF7FFE2FBFF76E4FF8AE2FF27AFF75D94C69EAA
    AB36ACF4E9FBFF98F0FF9CF6FF0045B2BEFEFFCAFFFFCDFEFFC8FCFF0045B2AA
    F3FFA2EDFFECFAFF33A7F49EAAAB0000002596F1CAEEFDF7FEFFC9FAFFC1FBFF
    CAFEFFD5FFFFDAFEFFD4FCFFC9F9FFD0F8FFF8FEFFCEEEFE2697F10000000000
    00C9B69531A5F6A5E4FEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFAFE7FE34A4F7C3B598000000000000000000CDB58F2A9DF853C1FB83DFFD
    B0F2FFD0FAFFD8FBFFCAF7FFA1E8FE5DC3FC299EF8C0B3970000000000000000
    00000000000000000000ACAFA073A7C646A0E52A9CF7289CF8329EF158A3D8A7
    AEA4000000000000000000000000FFFFFFFF83FFFFFF800FFFFF8003FFFF8001
    FFFF8001FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF8001
    FFFF8001FFFFC003FFFFF00FFFFF280000001000000020000000010008000000
    0000400100000000000000000000000100000000000000000000FFFFFF00ACAF
    A00073A7C60046A0E5002A9CF700289CF800329EF10058A3D800A7AEA400CDB5
    8F002A9DF80053C1FB0083DFFD00B0F2FF00D0FAFF00D8FBFF00CAF7FF00A1E8
    FE005DC3FC00299EF800C0B39700C9B6950031A5F600A5E4FE00AFE7FE0034A4
    F700C3B598002596F100CAEEFD00F7FEFF00C9FAFF00C1FBFF00CAFEFF00D5FF
    FF00DAFEFF00D4FCFF00C9F9FF00D0F8FF00F8FEFF00CEEEFE002697F1009EAA
    AB0036ACF400E9FBFF0098F0FF009CF6FF000045B200BEFEFF00CAFFFF00CDFE
    FF00C8FCFF00AAF3FF00A2EDFF00ECFAFF0033A7F4005D94C60040BDF8009BEB
    FF007BECFF0090F4FF00E7FEFF00B9FEFF00BBFDFF00B7FBFF00ADF7FF00E2FB
    FF0076E4FF008AE2FF0027AFF7001B72C60036C5FC005BDCFF0064E4FF007BEE
    FF004296D50082F4FF0050E1FF0037D4FF003FCDFF0025B7FC00297FD600196D
    C20028BEFC0032CEFF0036D8FF003AE1FF00C6F9FF00C6FAFF0088F0FF00C3F3
    FF0030CEFF002CC4FF0022B4FC003875B1001FA4F1002EC7FF0030D0FF0035D8
    FF00C4F6FF003AE3FF00C4F5FF00C1F1FF002CC7FF0028BFFF001B9DF1009699
    9D000E76CD003AC5FF002FCFFF00C2F2FF00C0EFFF0027C0FF0036BDFF000C73
    CD00095FCA0050AEEF0026BEFF002BC4FF002DC8FF00C1F0FF002ECDFF002ECA
    FF002AC4FF00BEECFF0022B6FF004DACF100085FCA00C1A78A000861CB0039B1
    F70024B9FF0026BDFF0028C0FF0027BFFF0023BAFF0021B4FF002096EC000760
    CB00BAA48C007F879A001A59B600179DF60023B1FF0020B2FF0021B1FD0021B3
    FE001EADFB001698EF000B71D6000251BF00B7A08A001957B4001195F80016A0
    FF00118BEC00004BBB00074EB900044DBA00014BBB000D51B7003B66AA009991
    90007E8597001956B400466BA700AB9989000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF000009090900121212001F1F1F002C2C2C00393939004545
    4500525252005F5F5F006C6C6C007878780085858500929292009F9F9F00ABAB
    AB00B8B8B800C5C5C500D2D2D200DEDEDE00EBEBEB00F8F8F800F0FBFF00A4A0
    A000C0DCC000F0CAA60000003E0000005D0000007C0000009B000000BA000000
    D9000000F0002424FF004848FF006C6CFF009090FF00B4B4FF0000143E00001E
    5D0000287C0000329B00003CBA000046D9000055F000246DFF004885FF006C9D
    FF0090B5FF00B4CDFF00002A3E00003F5D0000547C0000699B00007EBA000093
    D90000AAF00024B6FF0048C2FF006CCEFF0090DAFF00B4E6FF00003E3E00005D
    5D00007C7C00009B9B0000BABA0000D9D90000F0F00024FFFF0048FFFF006CFF
    FF0090FFFF00B4FFFF00003E2A00005D3F00007C540000000000000000000000
    00000000000000A3A49CA5A6000000000000000000000098999A9B9C9D9E9FA0
    A1A200000000008C8D8E8F909192889394959697000000808182838470858684
    8788898A8B0000737475767778797A6F7B7C7D7E7F006A6B6C676D2F5A622F6E
    2F6F7071726A5E5F6061622F63642F652F666768695E52535455562F57582F59
    2F5A5B5C5D52464748494A2F2F2F4B4C2F4D4E4F505138393A3B3C2F3D3E3F40
    4142434445382A2B2C2D2E2F303132332F343536372A001C1D1E1F2021222324
    252627282900001617180101010101010101191A1B0000000A0B0C0D0E0F1011
    12131415000000000000020304050607080900000000FFFF000083FF0000800F
    0000800300008001000080010000000000000000000000000000000000000000
    0000000000008001000080010000C0030000F00F0000}
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 368
    Width = 705
    Height = 129
    Caption = #31995#32479#26085#24535#65306
    TabOrder = 0
    object memoSystemInfo: TMemo
      Left = 8
      Top = 16
      Width = 689
      Height = 105
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 353
    Height = 49
    Caption = #26381#21153#22120#31649#29702
    TabOrder = 1
    object Label1: TLabel
      Left = 10
      Top = 21
      Width = 72
      Height = 13
      Caption = #26381#21153#22120#31471#21475#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object editPort: TEdit
      Left = 100
      Top = 16
      Width = 53
      Height = 21
      TabOrder = 0
      Text = '6060'
    end
    object btnBegin: TButton
      Left = 173
      Top = 13
      Width = 75
      Height = 25
      Caption = #21551' '#21160
      TabOrder = 1
      OnClick = btnBeginClick
    end
    object btnEnd: TButton
      Left = 262
      Top = 13
      Width = 75
      Height = 25
      Caption = #20572' '#27490
      Enabled = False
      TabOrder = 2
      OnClick = btnEndClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 56
    Width = 161
    Height = 305
    Caption = #29992#25143#21015#34920
    TabOrder = 2
    object lbUser: TListBox
      Left = 8
      Top = 16
      Width = 145
      Height = 281
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 168
    Top = 56
    Width = 537
    Height = 305
    Caption = #32842#22825#35760#24405#65306
    TabOrder = 3
    object memoTalkInfo: TMemo
      Left = 8
      Top = 16
      Width = 521
      Height = 281
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = memoTalkInfoChange
    end
  end
  object GroupBox5: TGroupBox
    Left = 360
    Top = 0
    Width = 345
    Height = 49
    Caption = #25805#20316
    TabOrder = 4
    object Button1: TButton
      Left = 40
      Top = 16
      Width = 113
      Height = 25
      Caption = #20445#23384#32842#22825#35760#24405
      TabOrder = 0
    end
    object Button2: TButton
      Left = 200
      Top = 16
      Width = 113
      Height = 25
      Caption = #20445#23384#31995#32479#26085#24535
      TabOrder = 1
    end
  end
  object itsTalk: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = itsTalkConnect
    OnExecute = itsTalkExecute
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 296
    Top = 80
  end
  object itcTalk: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 240
    Top = 80
  end
  object iafTalk: TIdAntiFreeze
    Left = 352
    Top = 80
  end
end