VPF::Использование mciSendCommand. - Форум программистов

Mazenrat

Дата 21.9.2002, 01:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброго времени суток.

В файле справки по применению mmsystem сказано, что, если в макрокоманде MCI_MAKE_TMSF все параметры, кроме первого, будут содержать нулевые значения, проигрывание будет запущено с самого начала дорожки. Первый же параметр определяет номер дорожки. Тогда почему у меня не работает проигрывание с самого начала дорожки: MCI_MAKE_TMSF(Номер_дорожки,0,0,0);

Код

var
 hWnd: THandle;
 MCIOpen: TMCI_OPEN_PARMS;
 MCIPlay: TMCI_PLAY_PARMS;
 dwID: DWORD;
...
procedure Play(hwnd: THandle; Track: UINT);
begin
 MCIOpen.lpstrDeviceType := 'CDAudio';
 mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE, Longint(@MCIOpen));
 Device := MCIOpen.wDeviceID;
 MCIPlay.dwCallback:= hwnd;
 MCIPlay.dwFrom:= MCI_MAKE_TMSF(Track,0,0,0);
 dwrc:= mciSendCommand(Device, MCI_PLAY, MCI_FROM or MCI_NOTIFY, Longint(@MCIPlay));
 if dwrc<>0 then
  begin
// showmessage('ERROR PLAY');
   exit;
  end;
end;

//Применение:
//Проигрываем первую дорожку
Play(hwnd,1);

P.S. Если кто-нибудь знает как организовать переход к следующему треку с помощью mciSendCommand, пожалуйста, поделитесь кодом.

Mazenrat

Дата 21.9.2002, 03:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я задаю не реальные вопросы или здесь просто профессионалы такие?

FdX

Дата 21.9.2002, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 13.8.2002

Репутация: нет
Всего: нет

Цитата(Guest @ 20.9.2002, 20:39)

Я задаю не реальные вопросы или здесь просто профессионалы такие?

Ну дык мы не успеваем

Надо на следующий день смотреть

Mazenrat

Дата 21.9.2002, 21:51 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну, вот сегодня и есть день следующий...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »