Многие спрашивают, как загрузить .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;
Запускаем проект и теперь мы можем добавлять звуки в базу данных, а проигрывать их, можно например так:
Создаем обработчик событий 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;
| 
