delphi 音频使用G729编码和解码后，播放出来的是噪音

Question

没有分，不能发技术贴，只能发在这里procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
    adata: array[0..959] of Char;
    Outdata: array[0..59] of Char;
begin
   va_g729a_encoder(data, @outdata);
   va_g729a_decoder(@outdata, @adata, 0);
   ACMWaveOut1.PlayBack(@adata, size);
 end;会不会是在调用时，要手动初始化一下G729 
  va_g729a_init_encoder;
  va_g729a_init_decoder;
下面是 G729源代码unit g729;interfaceuses windows;procedure va_g729a_init_encoder; cdecl;
procedure va_g729a_encoder(speech: Pointer; bitstream: Pointer); cdecl;
procedure va_g729a_init_decoder; cdecl;
procedure va_g729a_decoder(bitstream: Pointer; synth_short: Pointer; bfi: Integer); cdecl;implementation
const
  g729dll = 'g729dll.dll';procedure va_g729a_init_encoder; external g729dll name 'va_g729a_init_encoder';
procedure va_g729a_encoder(speech: Pointer; bitstream: Pointer); external g729dll name 'va_g729a_encoder';
procedure va_g729a_init_decoder; external g729dll name 'va_g729a_init_decoder';
procedure va_g729a_decoder(bitstream: Pointer; synth_short: Pointer; bfi: Integer); external g729dll name 'va_g729a_decoder';
initialization
  va_g729a_init_encoder;
  va_g729a_init_decoder;
end.