music.dfm

转发一个用Delphi7编写的网络即时通讯示例

    0000000000000000000045ADEF4C2A9BE8FA41C8F5FF1D8D4BFF31AC3FFF39BF
    56FF29BA4AFF10B936FF06C834FF229559FF2CA3A9FF188BE6FB0F7CF15A0000
    000000000000369DE9122A99E8F334C8F9FF159DE5FF239249FF4BE879FF49F1
    80FF35DE68FF1BD04EFF0CCB3CFF16C459FF258E5AFF71C29EFF1487E9F30D78
    F11C0000000055BCF17E45BAF2FF3AD1FFFF33B2F3FF2A9878FF73F0A5FF7AFD
    B0FF42E279FF28CB57FF18C142FF1ABC56FF268D59FF71C29EFF26A7F4FF1485
    F0AB00000000369FE8E675E6F8FF6BF6FDFF47D2FBFF2DA4DEFF39A281FF70E6
    A2FF4DE07DFF2EC757FF21C242FF36C376FF298E63FF71C29EFF63D9F9FF188A
    EAED000000003199E7F995F5FDFF7CF4FEFF4ADEFBFF3DB7F8FF30A2DBFF2D9A
    7DFF23945AFF1E8F4BFF36CE68FF2DBE69FF298D68FF8BF4FEFF88F5FCFF1D8D
    E8F900000000379CE7FAB0F9FFFFB7F7FFFF57E3FEFF7DE3FCFF49B6F7FF2A9A
    D5FF1D8DC5FF269D52FF36C377FF1C8460FF2D9CF7FF57C4FEFF81F0FFFF1F8D
    E7FB000000003298E7F6BDF9FDFFD1FAFEFF6EE8FFFFA8F4FFFF90DFFCFF3BA2
    E7FF208F7CFF4ADD79FF1F8849FF35B1E4FF36B9FFFF41BCFFFF54CAFCFF1C8A
    E8F600000000359AE7DBC5F6FCFFD8FCFEFFC9F9FEFFB5F1FFFF76C8EFFF2B9D
    86FF49DD79FF279550FF5CBDB3FF6CDAFFFF5EDAFFFF5DDFFFFF4FCAF9FF1A89
    EFD7000000002992E28D8CD2F4FCD8FCFEFFD7FCFEFF97D7F3FF3CA183FF49DD
    79FF299C51FF59AC78FF98F1FFFF98F1FFFF83F3FFFF88FCFFFF3EB2F4FF1885
    ED9800000000056FDB0B2B94E6E5A0E6FAFF9EDAF4FF48AD9DFF49DD79FF55EF
    91FF44CA74FF258847FF59B285FF90F6FFFF86FBFEFF63D7F9FF1A87E7E0056F
    DB0B00000000000000000F78DE252B94E7EB78C9F0FF289B76FF71C29EFF73F0
    A5FF38CF69FF1AA13DFF218F4AFF2C9863FF58CCF3FF1C89E8E70973E22B0000
    00000000000000000000000000000B75DD24258FE6DE4AACB9EF289B76FF2896
    73FF29B34FFF29B34FFF16902FFF1B8C53FA1A8EE0D30874DE27000000000000
    000000000000000000000000000000000000056FDB0B1D8AE86D188DD6A81791
    CACD1C8D75E51D8D5DF32BB054FF19853EDB056FDB0900000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000001DA04AB91B8F42CA0000000000000000000000000000
    000000000000E00F0000C0070000800300000001000000010000000100000001
    0000000100000001000000010000000100000001000080030000C0070000E00F
    0000FF9F0000}
  OldCreateOrder = False
  OnClick = FormClick
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 403
    Top = 80
    Width = 120
    Height = 23
    Caption = #25773#25918#20171#36136#31867#22411
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -20
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 262
    Top = 331
    Width = 118
    Height = 29
    Caption = #33410#30446#36873#25321
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 407
    Top = 333
    Width = 115
    Height = 28
    Caption = #36864#20986#31995#32479
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object Gauge1: TGauge
    Left = 8
    Top = 312
    Width = 369
    Height = 17
    BackColor = clNavy
    Color = clGreen
    ParentColor = False
    Progress = 0
    Visible = False
  end
  object Label6: TLabel
    Left = 144
    Top = 368
    Width = 425
    Height = 13
    AutoSize = False
    Caption = 'Label6'
  end
  object Label4: TLabel
    Left = 64
    Top = 368
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object Label5: TLabel
    Left = 8
    Top = 368
    Width = 36
    Height = 13
    Caption = #26102#38388#65306
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 555
    Height = 67
    Align = alNone
    Bands = <
      item
        Control = CoolBar2
        ImageIndex = -1
        MinHeight = 59
        Width = 551
      end>
    object CoolBar2: TCoolBar
      Left = 9
      Top = 0
      Width = 538
      Height = 59
      Bands = <>
      object Label1: TLabel
        Left = 160
        Top = 11
        Width = 180
        Height = 30
        Caption = #22810#23186#20307#25773#25918#22120
        Font.Charset = GB2312_CHARSET
        Font.Color = clLime
        Font.Height = -29
        Font.Name = #21326#25991#24425#20113
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Image1: TImage
        Left = 480
        Top = 6
        Width = 49
        Height = 41
        Picture.Data = {
          07544269746D617066750000424D667500000000000036000000280000006400
          000064000000010018000000000030750000120B0000120B0000000000000000
          0000AA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020B
          AA020BAA020BAA020BAA020BAA020BA9030CA8050EA70710A50912A40B14A20D
          16A110199F131B9D151E9B1821991B24971E2795212A92252D9028308E2C348B
          303789333B86373F833B42813F467E434A7B474E784B52764F5673535A70585E
          6D5C636A606767646B646970616D745E72785B767C587B81557F855284894F88
          8E4C8C9249919646959A43999F409EA33DA2A73BA6AB38AAAF35AFB332B3B72F
          B7BB2DBABF2ABEC328C2C625C6CA23C9CD20CDD11ED0D41CD4D71AD7DB18DADE
          16DDE114E0E312E3E610E5E90EE8EB0DEAED0BECF00AEEF209F0F308F2F507F4
          F706F5F805F6F904F7FA04F8FB03F9FC03FAFD03FAFD03FAFD03FAFD03FAFD04
          F9FC04F9FC05F8FB06F7FA07F5F9AA020BAA020BAA020BAA020BAA020BAA020B
          AA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BA9030CA8050EA707
          0FA60911A40B14A20D16A110189F121B9D151E9B1820991B23971E2695212A92
          252D9028308E2C348B2F3789333B86373E843A42813E467E434A7B474E794B52
          764F5673535A70575E6D5C626A606767646B64696F616D735E71785B767C587A
          80557F855283894F888D4C8C9249909646959A43999E409DA33EA2A73BA6AB38
          AAAF35AEB332B2B730B6BB2DBABF2ABEC228C2C625C5CA23C9CD20CDD11ED0D4
          1CD3D71AD7DA18DADD16DDE014E0E312E2E610E5E80FE8EB0DEAED0CECEF0AEE
          F109F0F308F2F507F4F706F5F805F6F904F7FA04F8FB03F9FC03FAFD03FAFD03
          FAFD03FAFD03FAFD04F9FC04F9FC05F8FB06F7FA07F6F908F4F7AA020BAA020B
          AA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA02
          0BA9030CA8050DA7060FA60811A40B14A30D16A110189F121B9D151D9B182099
          1B23971E2695212993242D9028308E2B338B2F3789333B86363E843A42813E46
          7E424A7C464E794A52764E5673535A70575E6D5B626A606667646B64686F616D
          735E71785B767C587A80557E845283894F878D4C8C9149909648949945989D43
          9CA240A0A63DA4AA3BA8AD39ACB136B0B533B4B931B8BD2EBCC02CBFC429C3C8
          27C6CB24CACE22CDD220D1D51ED4D81CD7DB1ADADE18DDE114E1E512E3E710E6
          EA0EE9EC0DEBEF0AEEF109F0F308F2F507F3F706F5F805F6F904F7FA04F8FB03
          F9FC03FAFC03FAFD03FAFD03FAFD03FAFD04F9FC04F9FC05F8FB06F7FA07F6F9
          08F4F709F3F6AA020BAA020BAA020BAA020BAA020BAA020BAA020BAA020BAA02
          0BAA020BAA020BAA020BAA030CA8040DA7060FA60811A40B13A30D16A10F189F
          121B9D151D9B1820991B23971E2695212993242C9128308E2B338C2F3789323A
          87363E843A42813E467F42497C464D794A51764E5573525A70575E6E5B626B5F
          6668646A65686F626C735F71775C757B597A80567E8453838951878D52899050
          8D9350909753919854939B56949D57969F5997A15B98A35B9AA5599DA8599FAA
          57A2AD55A5AF53A7B251AAB54FADB74EB0BA4CB2BC4AB5BF47B8C240BEC83DC2
          CB38C7CF2ECFD629D4DB21DBE11CE0E515E6EB0FECF00AF0F309F1F506F5F805
          F6F904F7FA04F8FB03F9FC03F9FC03FAFD03FAFD03FAFD03FAFD04F9FC04F9FC
          05F8FB06F7FA07F6F908F4F809F3F60AF1F4AA020BAA020BAA020BAA020BAA02
          0BAA020BAA020BAA020BAA020BAA020BAA020BAA030CA8040DA7060FA60811A4
          0A13A30D15A10F189F121A9D141D9B1720991A23971E2695212993242C912730
          8E2B338C2E3689323A87363E843A41813E457F42497C464D794A51764E557352
          5971575D6E5B626B5F6668636A65686E626C735F71775C757B5A797F5B7C835A