How can I play a wav-file from memory or blob-field?

How can I play a wav-file from memory or blob-field?
Sometimes you needs to play a some sounds from own app but store these sounds in blob-field of table or in some external files.

To play a wav-file you must call the playsound procedure which have the few parameters-sound (which you want to play ), handle of file with resource (only for WAV from EXE/DLL-file) and flags for playing.

For example, if you want to play a WAV from blob, you can use the next code:

VaR
B: tblobstream;
M: tmemorystream;
Begin
B: = tblobstream. Create (yourtable, bmread );
Try
M: = tmemorystream. Create;
Try
{Copy a WAV from blob into memory}
M. copyfrom (B, B. size );

{play it but if we'll have an error, raise exception}
win32check (playsound (M. memory, 0, snd_sync or snd_memory);
finally
M. free
end;
finally
B. free
end;