procedure TForm1.Button1Click(Sender: TObject); var BlobStream: TClientBlobStream; BlobField: TBlobField; begin
BlobField := ClientDataSet1.FieldByName('WAV') as TBlobField; BlobStream := TClientBlobStream.Create(BlobField, bmRead); Win32Check(PlaySound(BlobStream.Memory, 0, SND_SYNC or SND_MEMORY)); BlobStream.Free; end;