VPF::mciSendCommand - Форум программистов

_8989

Дата 4.12.2003, 13:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте.
Не могу открыть указанный привод CD-ROM (E:\). Самое интересное то, что mciSendCommand возвращает не нуль, а CD-ROM все равно не открывается.

Код

procedure TForm1.Button8Click(Sender: TObject);
var
 dwrc: DWORD;
 cdDevice: UINT;
 OpenParms: TMCI_Open_Parms;
begin
  OpenParms.lpstrDeviceType:= PChar(MCI_DEVTYPE_CD_AUDIO);
  OpenParms.lpstrElementName := PChar('E:\');
  dwrc := mciSendCommand(0,MCI_OPEN, MCI_OPEN_ELEMENT or MCI_OPEN_TYPE,DWORD(@OpenParms));
  if dwrc <> 0 then
  begin
   cdDevice:= OpenParms.wDeviceID;
   mciSendCommand(cdDevice, MCI_SET_AUDIO, MCI_SET_DOOR_OPEN, 0);
   caption := 'No Error';
  end
  else
   caption := 'Bad';
end;

Gloomy

Дата 4.12.2003, 17:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


procedure OpenCloseCD(Disk: String; Open: Boolean);
var
  OpenParm: MCI_OPEN_PARMS;
  deviceID: Cardinal;
begin
  OpenParm.dwCallback:= 0;
  OpenParm.lpstrDeviceType:= 'CDAudio';
  OpenParm.lpstrElementName:= @Disk[1];
  mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OpenParm));
  deviceID:= OpenParm.wDeviceID;
  if Open then
    mciSendCommand(deviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0)
  else
    mciSendCommand(deviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
end;

Применение:

Код


  OpenCloseCD('E:', True); // откроем лоток
  Sleep(1500); // подождем 1,5 секунды
  OpenCloseCD('E:', False); // закроем лоток

_8989

Дата 4.12.2003, 19:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо, пример работает!

Но почему не работает директива MCI_DEVTYPE_CD_AUDIO???
А с 'CDAudio' всё нормально? В чём тут дело?

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