delphi源码播放网络wav文件

以下是使用Delphi播放网络上的WAV文件的示例代码：

uses
  Winapi.Windows, Winapi.MMSystem, System.Classes;

procedure PlayOnlineWAV(const URL: string);
var
  Stream: TMemoryStream;
  Buffer: Pointer;
  BufferSize: DWORD;
begin
  Stream := TMemoryStream.Create;
  try
    // 从网上下载WAV文件流
    Stream.LoadFromURL(URL);

    // 分配缓冲区
    BufferSize := Stream.Size - SizeOf(TWAVHeader);
    GetMem(Buffer, BufferSize);

    try
      // 跳过WAV文件头
      Stream.Seek(SizeOf(TWAVHeader), soFromBeginning);

      // 读取音频数据
      Stream.ReadBuffer(Buffer^, BufferSize);

      // 播放音频数据
      PlaySound(Buffer, 0, SND_MEMORY or SND_ASYNC);
    finally
      // 释放缓冲区
      FreeMem(Buffer);
    end;
  finally
    Stream.Free;
  end;
end;

需要注意的是，该代码需要以下类型定义：

type
  TWAVHeader = packed record
    ChunkID: array [0 .. 3] of AnsiChar;
    ChunkSize: DWORD;
    Format: array [0 .. 3] of AnsiChar;
    Subchunk1ID: array [0 .. 3] of AnsiChar;
    Subchunk1Size: DWORD;
    AudioFormat: WORD;
    NumChannels: WORD;
    SampleRate: DWORD;
    ByteRate: DWORD;
    BlockAlign: WORD;
    BitsPerSample: WORD;
    Subchunk2ID: array [0 .. 3] of AnsiChar;
    Subchunk2Size: DWORD;
  end;

该代码使用TMemoryStream类从网上下载WAV文件流。然后，它分配一个缓冲区，并跳过WAV文件头，只读取音频数据。最后，使用PlaySound函数播放音频数据。