Ошибка CreateFile Windows в Delphi THandleStream

У меня есть простой класс, производный от THandleStream, который я использую для редактирования необработанного тома. Я вызываю функцию Windows createfile(), чтобы открыть диск, но функция никогда не возвращает действительный дескриптор, а скорее экзотический код ошибки (348 во время отладки и 304 во время выполнения, но ошибка не возникает, просто значение дескриптора выглядит странно). вот что я делаю:

Constructor TDiskStream.Create(Const aDrive: String);
Var
  Hdl: Cardinal;
  A,B: Int64;
Begin

  Hdl := CreateFile( PChar(ADrive), 
                     GENERIC_WRITE, 
                     FILE_SHARE_READ Or FILE_SHARE_WRITE, 
                     0, OPEN_EXISTING, 0, 0);

  Inherited Create( Hdl );
  GetDiskFreeSpaceEx( PChar( RightStr(ADrive,2) + '\'), A, FSize, @B );

End;

Значение дескриптора соответствует коду ошибки, описанному как ERROR_INCOMPATIBLE_WITH_GLOBAL_SHORT_NAME_REGISTRY_SETTING в msdn, но это кажется очень необычным. Параметр aDrive задан правильно (в формате \\.\x:).

Что здесь не так, как мне получить действительный дескриптор файла?


stream disk delphi winapi
person az01    schedule 29.05.2011    source источник

Ответы (2)


arrow_upward
10
arrow_downward

CreateFile не возвращает коды ошибок — он возвращает либо действительный дескриптор, либо INVALID_HANDLE_VALUE (-1). Вот стандартное использование вызова функции CreateFile с проверкой ошибок:

var
  H: THandle;

begin
  H:= CreateFile(PChar('\\.\D:'), GENERIC_READ,
    FILE_SHARE_WRITE or FILE_SHARE_READ, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if H = INVALID_HANDLE_VALUE then
    raise Exception.Create(Format('Oops - error opening disk: %d', [GetLastError]));
...
person kludg    schedule 29.05.2011

arrow_upward
4
arrow_downward

Они выглядят как допустимые значения дескриптора для меня. Что заставляет вас думать, что это не так?

CreateFile не возвращает коды ошибок. В случае неудачи возвращается Invalid_Handle_Value. Код ошибки дается вызовом GetLastError. Подробнее о том, как работают эти функции, см. в документации на MSDN.

Если CreateFile не работает, я рекомендую вам, в свою очередь, завершить работу конструктора, вызвав исключение:

if Hdl = Invalid_Handle_Value then
  RaiseLastOSError;
person Rob Kennedy    schedule 29.05.2011