压缩用于在Delphi XE7上进行音频传输的字符串数据建议

Question

我正在Delphi上进行音频流传输，捕获流并将其转换为字符串并发送到远程计算机，但我又如何做得更好，更快呢？

var
  Stream: TMemoryStream;
  Text: String;
  sCompress: string;
begin
  try
    Stream := TMemoryStream.Create;
    Stream.WriteBuffer(Data^, len); //data = microphone capture
    Stream.Position := 0;
    SetLength(Text, Stream.Size);
    Stream.ReadBuffer(Pointer(Text)^, Stream.Size);
  finally
    Stream.Free;
    SendData(currentUser, Text);
  end;

发送数据基本Winsock套接字传输，我正在编写接收这样的数据

WaveOut.waveOutDevice.write(Pointer(sBuf), Length(sBuf)); //sbuf = receivetext

此方法有效，但对于您的数据压缩建议可能会更好。我认为随着距离的增加会出现问题。