Форум: "Система";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Вниз
CD ROM. проиграть трэк Найти похожие ветки
← →
HardClubber (2003-02-15 21:25) [0]Господа!
Хочу проиграть 1 трек с cda. В чём проблема? ни на что не ругается, но и ничего не делает....
var
mciOpenParms: MCI_OPEN_PARMS;
mciSetParms: MCI_SET_PARMS;
mciPlayParms: MCI_PLAY_PARMS;
wDeviceID: Cardinal;
dwReturn: dword;
begin
mciOpenParms.lpstrDeviceType := "cdAudio";
mciOpenParms.dwCallback := 0;
mciOpenParms.wDeviceID := 0;
wDeviceID := mciOpenParms.wDeviceID;
dwReturn := mciSendCommand(0,MCI_OPEN,MCI_OPEN_TYPE,dword(@mciOpenParms));
mciSetParms.dwTimeFormat := MCI_FORMAT_TMSF;
dwReturn := mciSendCommand(wDeviceID, MCI_SET, MCI_SET_TIME_FORMAT, dword(@mciSetParms));
mciSendCommand(wDeviceID, MCI_CLOSE, 0, 0);
mciPlayParms.dwFrom := MCI_MAKE_TMSF(1, 0, 0, 0);
mciPlayParms.dwTo := MCI_MAKE_TMSF(2, 0, 0, 0);
mciSendCommand(wDeviceID, MCI_PLAY, MCI_FROM, DWORD (@mciPlayParms));
← →
SPeller (2003-02-16 01:01) [1]На сколько я знаю MS, перед именем переменной там ставят префикс "dw" указывая что тип DWORD = Cardinal, а префикс "w" для типа WORD. Тогда у тебя переменная wDeviceID должна быть типа WORD. Может в этом проблема?
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c
