Как записать wav файлы звука в базу данных Access используя ADO на Delphi.

Как поместить звук (звуковой файл) в базу данных Access в Delphi

Для этого необходимо:

Установить в Access тип поля, где предполагается хранить обьект в — Поле объекта OLE
Добавить на форму один OpenDialog и один Button
В событии OnClick Buttonа, прописываем:

begin

if OpenDialog1.Execute then

begin

ADOTable1.Edit;

(ADOTable1.Fields.FieldByName('Имя столбца') As TblobField).LoadFromFile(OpenDialog1.FileName);

ADOTable1.Post;

end;

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

Создаем обработчик событий 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;