demo2client.dfm

在Internet传播声音的源程序

object fmMain: TfmMain
  Left = 241
  Top = 164
  Width = 383
  Height = 139
  Caption = 'Demo 2 : Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 22
    Width = 51
    Height = 13
    Caption = 'IP Address'
  end
  object lblStatus: TLabel
    Left = 0
    Top = 99
    Width = 375
    Height = 13
    Align = alBottom
  end
  object Label2: TLabel
    Left = 16
    Top = 53
    Width = 27
    Height = 13
    Caption = 'Delay'
  end
  object edAddress: TEdit
    Left = 80
    Top = 18
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object btnConnect: TButton
    Left = 208
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 1
    OnClick = btnConnectClick
  end
  object btnDisconnect: TButton
    Left = 288
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Disconnect'
    Enabled = False
    TabOrder = 2
    OnClick = btnDisconnectClick
  end
  object seDelay: TSpinEdit
    Left = 80
    Top = 48
    Width = 121
    Height = 22
    MaxValue = 10
    MinValue = 0
    TabOrder = 3
    Value = 0
  end
  object CSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 6565
    OnLookup = CSocketLookup
    OnConnecting = CSocketConnecting
    OnConnect = CSocketConnect
    OnDisconnect = CSocketDisconnect
    OnRead = CSocketRead
    Left = 8
    Top = 8
  end
  object ACMO: TACMOut
    NumBuffers = 4
    Left = 256
    Top = 16
  end
  object ACMC: TACMConvertor
    InputBufferSize = 2048
    Left = 288
    Top = 16
    ACMFormatIn = {
      8100000055000100401F0000D0070000010000000C0001000200000090000100
      7105000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
    ACMFormatOut = {
      8100000001000100225600002256000001000800810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
  end
end