| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CreateFile для привода CD [D6, WinXP]

Users ©   (2004-06-21 14:34:00) 

Имеется CD на D:, пытаюсь получить на него Handle:

hDrive:=CreateFile('\\.\D:', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, Nil, OPEN_EXISTING, 0, 0);


получаем INVALID_HANDLE_VALUE

причем диск точно есть ! Система XP, права администратора.

Может проблема из за LPSECURITY_ATTRIBUTES - они выставлены в nil.

---

Users   (2004-06-22 13:07:00) [1]

Нет диск обычный IDE.

В общем я с этой проблемой разобрался:

Если грузим библиотеку WNASPI32.DLL, т.е. хотим пользоваться ASPI интерфейсом, или какая либо др. программа ее использует - нет возможности использовать STPI - CreateFile возвращает ошибку - блокировка др. процессом.

По этому нужно использовать ASPI или STPI интерфейс.

---

Alex Konshin   (2004-06-22 07:56:00) [2]

А диск SCSI?

Посмотри исходники на http://akrip.sourceforge.net/
Возможно ничего и писать не придется.

---

Users   (2004-06-21 19:21:00) [3]

Кстати, еще была проблема :

если загружена библиотка WNASPI32.DLL - она создает монопольный доступ к CD.

---

Users   (2004-06-21 19:13:00) [4]

GENERIC_WRITE - нужен только для XP,2000. А так проверял, заработало.

---

Игорь Шевченко   (2004-06-21 16:08:00) [5]

Справедливости ради надо сказать, что с GENERIC_WRITE тоже открывает, когда диска в устройстве нет.

---

Игорь Шевченко   (2004-06-21 16:07:00) [6]

А попробовать убрать GENERIC_WRITE - ситуация изменится ?
Потому как такой код прекрасно открывает:
unit main;

interface
uses
 Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
 TfMain = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   FCDRom: THandle;
 end;

var
 fMain: TfMain;

implementation

{$R *.DFM}

procedure TfMain.FormCreate(Sender: TObject);
begin
 FCDRom := CreateFile('\\.\H:', GENERIC_READ, FILE_SHARE_READ, nil,
   OPEN_EXISTING, 0, 0);
 if FCDRom = INVALID_HANDLE_VALUE then
   RaiseLastWin32Error;
 ShowMessageFmt('CD_ROM opened, its handle is %.8x', [FCDRom]);
end;

procedure TfMain.FormDestroy(Sender: TObject);
begin
 CloseHandle(FCDRom);
end;

end.


---

Users   (2004-06-21 15:22:00) [7]

по поводу GENERIC_WRITE :

Вот что написано в оригинале :

/*
* Universal function to get a file handle to the CD device.  Since
* NT 4.0 wants just the GENERIC_READ flag, and Win2K wants both
* GENERIC_READ and GENERIC_WRITE (why a read-only CD device needs
* GENERIC_WRITE access is beyond me...), the easist workaround is to just
* try them both.
*/

http://cvs.sourceforge.net/viewcvs.py/cdexos/cdexos/CDRip/NTScsi.cpp?rev=1.15

---

Anatoly Podgoretsky   (2004-06-21 14:59:00) [8]

GENERIC_WRITE это запись, что ты собираешься писать на CD

---

Users   (2004-06-21 14:52:00) [9]

SysErrorMessage(GetLastError) говорит что :

"процесс не может получить доступ к файлу, т.к. этот файл занят другим процессом". Такое впеч-е, что блокирует что то :( хотя не понятно что, попробую перезагрузить машину.

GENERIC_WRITE - прочитал, что это нужно для доступа к CD для Win2000 и выше.

---

Игорь Шевченко   (2004-06-21 14:39:00) [10]

Что говорит GetLastError ?
(И маленький такой вопрос - зачем GENERIC_WRITE для CD ?)

---

Наверх