demo1main.dfm

在Internet传播声音的源程序

object fmDemo1: TfmDemo1
  Left = 289
  Top = 192
  BorderStyle = bsDialog
  Caption = 'Demo1 : Loopback'
  ClientHeight = 130
  ClientWidth = 330
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 330
    Height = 130
    Align = alClient
    Lines.Strings = (
      'This is a simple loopback demonstration.'
      'Input is taken from ACMIn1 and then piped back out through '
      'ACMOut1.'
      ''
      ''
      'Go on, sing like Elvis (I did)')
    TabOrder = 0
  end
  object ACMConvertor1: TACMConvertor
    InputBufferSize = 2048
    Left = 72
    Top = 40
    ACMFormatIn = {
      810000000100020044AC00008858010002000800810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
    ACMFormatOut = {
      810000000100020044AC000010B1020004001000810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
  end
  object ACMIn1: TACMIn
    BufferSize = 8192
    NumBuffers = 10
    OnBufferFull = ACMIn1BufferFull
    Left = 144
    Top = 40
  end
  object ACMOut1: TACMOut
    Left = 208
    Top = 40
  end
end