[UnreNal]

Подскажите пожалуйста, как мне воспроизвести звук. В таблице SOUND есть поля: ID; Adres; Time_play. Time_play тип Time хранит время, через которое должен воспроизвестись звук. При открытии формы ALARM все звуки воспроизводятся автоматически, согласно Time_play. Прошу вашей помощи.

[NumLock]

Звук можно воспроизвести через функцию:

Код:

function PlaySound(pszSound: PWideChar; hmod: HMODULE; fdwSound: DWORD): BOOL;

Хоть из ресурса, хоть из файла, хоть из БД (считав из базы в память).

[UnreNal]

Так вот и загвоздка. Как считать из БД? Через IBQuery? Напишите пожалуйста примерный код.

[NumLock]

Как работать с BLOB полями на форумах писали очень много раз. Мне же писать пример или искать лень

[UnreNal]

Искать не лень. У меня времени нет разбираться. Ещё и базу редактировать. Завтра уже работу сдавать. А можно считывать путь к файлу из DBGrid и воспроизводить когда время работы формы (при нажатии на Button) равно полю Time_Play в DBGrid и переходить на следующую запись?

[UnreNal]

Получается воспроизвести только первый файл и без учёта времени. Помогите доработать пожалуйста!!!

Код:

procedure TFormTrevoga.FormActivate(Sender: TObject);
var
D1, D2, N: TDateTime;
X:string;
I:integer;
T:TTime;
begin
I:=DBGridKom.DataSource.DataSet.RecordCount;
X:=DBGridKom.DataSource.DataSet.FieldByName('ADRES_SOUND').AsString;
T:=DBGridKom.DataSource.DataSet.FieldByName('TIME_PLAY').AsDateTime;
N:=Now;
D1:=VarToDateTime(FormTrevoga.Edit1.Text);//Дата открытия формы
D2:=VarToDateTime(FormTrevoga.Edit2.Text);//Время открытия формы
ShowMessage('Количество строк: ' +IntToStr(I)+#13+
          'Адрес: ' +X +#13+
          'Время: ' +TimeToStr(T));
MCISendString(pchar('play ' + (X)), nil, 0, handle);
end;

[NumLock]

Сам по себе DBGrid не хранит данные, он всего лишь отображает их из Dataset и позволяет их редактировать. Можно путь к файлу брать из набора данных.

[UnreNal]

Я это уже понял что через DataSet (смотри выше). Как мне выполнить задуманное? Я понимаю что надо использовать циклы.