Запись .wav звучков в базу данных ADO Access

   Многие спрашивают, как загрузить .wav звучок в базу данных ADO Access в Delphi.
 Нет ни чего проще!!!
   Для этого необходимо:



 1) Установить в Access тип поля, где предполагается хранить обьект в - Поле объекта OLE;

 2) Добавить на форму один OpenDialog и один Button;

 3) В событии OnClick Buttonа, прописываем:

 begin 

 if OpenDialog1.Execute then 
 begin 
 ADOTable1.Edit; (ADOTable1.Fields.FieldByName('Имя столбца') As TblobField).LoadFromFile(OpenDialog1.FileName); 
 ADOTable1.Post; 
 end; 

 end;

    Запускаем проект и теперь мы можем добавлять звуки в базу данных, а проигрывать их, можно например так:

1) Создаем обработчик событий DBGridEh1CellClick на DBGridEh1

 var 
 mem:TmemoryStream;

 begin 
 mem:=TmemoryStream.Create; 
 (AdoTable1.Fields.FieldByName('Музыка') as TblobField).SaveToStream(mem);  PlaySound(mem.Memory,0,Snd_Sync+Snd_Memory); mem.Free; 
 end;