CD ROM. проиграть трэк [D6, WinXP]
HardClubber © (2003-02-15 21:25:00)
Господа!
Хочу проиграть 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:00) [1]
На сколько я знаю MS, перед именем переменной там ставят
префикс "dw" указывая что тип DWORD = Cardinal, а префикс "w" для
типа WORD. Тогда у тебя переменная wDeviceID должна быть типа WORD.
Может в этом проблема?
Наверх 
ЧАТ |
Орешник |
|
