ACM延迟问题

如何解决ACM的延迟问题呀？  
  还有  
  TGSM610=packed       record                                   //自定义音频文件头  
        wFormatTag:       Word;  
        nChannels:       Word;  
        nSamplesPerSec:       DWORD;  
        nAvgBytesPerSec:       DWORD;  
        nBlockAlign:       Word;  
        wBitsPerSample:       Word;  
        cbSize:       Word;  
        wSamplesPerBlock:word;  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  var  
      GSM:TGSM610;  
      Format:pointer;  
  begin  
  with       GSM       do  
      begin  
              wFormatTag:=$31;  
              nChannels:=1;  
              wBitsPerSample:=0;  
              nSamplesPerSec:=8000;  
              nBlockAlign:=65;  
              nAvgBytesPerSec:=1625;  
              cbSize:=2;  
              wSamplesPerBlock:=$140;  
      end;  
  format:=@GSM;  
  Wavein.Open(format);  
  Waveout.Open(Format);  
  end;  
  声音为什么是滴滴的响，没有声音呀？象发电报一样！ 问题点数：100、回复次数：3Top

1 楼clasj（★知我☆）回复于 2006-01-24 22:29:36 得分 100

var  
      buf:   array[0..65535]   of   byte;  
      bufsize:   Integer   =   0;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      format:   Pointer;  
      GSM:TGSM610;  
  begin  
      with       GSM       do  
      begin  
              wFormatTag:=$31;  
              nChannels:=1;  
              wBitsPerSample:=0;  
              nSamplesPerSec:=8000;  
              nBlockAlign:=65;  
              nAvgBytesPerSec:=1625;  
              cbSize:=2;  
              wSamplesPerBlock:=$140;  
      end;  
      format:=@gsm;  
      ACMWaveIn1.Open(format);  
      ACMWaveOut1.Open(format);  
  end;  
   
  procedure   TForm1.ACMWaveIn1Data(data:   Pointer;   size:   Integer);  
  begin  
      copymemory(pchar(@buf)+bufsize,   data,   size);  
      inc(bufsize,   size);  
      if   bufsize>=1300   then  
      begin  
          ACMWaveOut1.PlayBack(@buf,   bufsize);  
          bufsize:=0;  
      end;  
  end;  
   
  我是这样测试的，有声音啊  
  你用我的代码测试一下，我把延迟加长了一点，要不然分不清回放的声音和原声了  
  你还差我300分呢：）Top

2 楼meilixueshan2009（213211）回复于 2006-01-25 08:12:55 得分 0

怎么加长或缩短延迟呀？  
  完全用你的代码，可是没不出来呀Top

3 楼meilixueshan2009（213211）回复于 2006-01-25 09:22:44 得分 0

老兄，要是用TCP组件发送出去  
  那客户端和服务端怎么写呀？  
  拜托，等着结贴呀！  
  我还欠你300分呢Top

相关问题

• 延迟
• word
• tgsm610
• wsamplesperblock
• bufsize
• gsm
• navgbytespersec
• wformattag
• wbitspersample
• nblockalign

• 帖主：meilixueshan2009
• clasj

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载