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. Может в этом проблема?

CD ROM. проиграть трэк Найти похожие ветки