CreateFile & DeviceIOControl Problem mit 64Bit

[RWarnecke]

Hallo zusammen,

ich habe folgende Funktion für 32Bit-Programme bis jetzt immer erfolgreich genutzt. Wenn ich die gleiche Funktion für 64Bit kompiliere und ausführe gibt der erste DeviceIOControl-Befehl immer False zurück.

Delphi-Quellcode:

type
  SCSIPASSTHROUGH = record
    spt_Length             : Word;
    spt_ScsiStatus         : Byte;
    spt_PathId             : Byte;
    spt_TargetId           : Byte;
    spt_Lun                : Byte;
    spt_CdbLength          : Byte;
    spt_SenseInfoLength    : Byte;
    spt_DataIn             : Byte;
    spt_DataTransferLength : ULong;
    spt_TimeOutValue       : ULong;
    spt_DataBufferOffset   : DWord;
    spt_SenseInfoOffset    : ULong;
    spt_Cdb                : array[0..15] of Byte;
  end;

  SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER = record
    spt : SCSI_PASS_THROUGH_DIRECT;
    Filler : ULONG;
    ucSenseBuf : array[0..32 - 1] of Byte;
  end;
  PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER = ^SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER;

  SCSI_ADDRESS = record
    Length : LongInt;
    PortNumber : Byte;
    PathId : Byte;
    TargetId : Byte;
    Lun : Byte;
  end;
  PSCSI_ADDRESS = ^SCSI_ADDRESS;

const
  SCSI_IOCTL_DATA_IN             = 1;
  IOCTL_SCSI_PASS_THROUGH_DIRECT = $4D014;
  IOCTL_SCSI_GET_ADDRESS         = $41018;

{...}

procedure TCDDVDInfo.GetCDDVDDriveInfos;
var
  I, returned  : Integer;
  FileHandle   : THandle;
  buffer       : array[0..1023] of AnsiChar;
  inqData      : array[0..99] of AnsiChar;
  pswb         : PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER;
  pscsiAddr    : PSCSI_ADDRESS;
  DriveString  : PAnsiChar;
  sptdwblength : Integer;
  CDDVDDrive   : string;
begin
  for I := 0 to FCDDVDCount - 1 do
  begin
    setlength(FVendor, i + 1);
    setlength(FProductId, i + 1);
    setlength(FRevision, i + 1);
    setlength(FVendorSpec, i + 1);
    setlength(FModellName, i + 1);
    setlength(FHaId, i + 1);
    setlength(FTarget, i + 1);
    setlength(FLun, i + 1);
    CDDVDDrive := '\\.\' + string(FDriveLetter[i]) + ':';
    FileHandle := CreateFile(pointer(CDDVDDrive),
                     GENERIC_READ or GENERIC_WRITE,
                     FILE_SHARE_READ or FILE_SHARE_WRITE,
                     nil,
                     OPEN_EXISTING,
                     FILE_ATTRIBUTE_NORMAL,
                     0);
    if FileHandle <> INVALID_HANDLE_VALUE then
    begin
      ZeroMemory(@buffer, 1024);
      ZeroMemory(@inqData, 100);
      pswb := PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER(@buffer);
      pswb^.spt.Length := sizeof(SCSIPASSTHROUGH);
      pswb^.spt.CdbLength := 6;
      pswb^.spt.SenseInfoLength := 24;
      pswb^.spt.DataIn := SCSI_IOCTL_DATA_IN;
      pswb^.spt.DataTransferLength := 100;
      pswb^.spt.TimeOutValue := 2;
      pswb^.spt.DataBuffer := @inqData;
      pswb^.spt.SenseInfoOffset := sizeof(pswb^.spt) + sizeof(pswb^.Filler);
      pswb^.spt.Cdb[0] := $12;
      pswb^.spt.Cdb[4] := $64;
      sptdwblength := sizeof(SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER);
      if DeviceIoControl(FileHandle, IOCTL_SCSI_PASS_THROUGH_DIRECT,
            pswb, sptdwblength, pswb, sptdwblength,
            Cardinal(returned), nil) then
      begin
        DriveString := @inqData[0];
        Inc(DriveString, 8);
        FVendor[i] := Copy(DriveString, 1, 8);
        FProductId[i] := Copy(DriveString, 8 + 1, 16);
        FRevision[i] := Copy(DriveString, 24 + 1, 4);
        FVendorSpec[i] := Copy(DriveString, 28 + 1, 20);
        FModellName[i] := FVendor[i] + FProductId[i] + FRevision[i];
        ZeroMemory( @buffer, 1024 );
        pscsiAddr := PSCSI_ADDRESS( @buffer );
        pscsiAddr^.Length := sizeof( SCSI_ADDRESS );
        if ( DeviceIoControl( FileHandle, IOCTL_SCSI_GET_ADDRESS, nil, 0,
          pscsiAddr, sizeof( SCSI_ADDRESS ), Cardinal( returned ),
          nil ) ) then
        begin
          FHaId[i] := pscsiAddr^.PortNumber;
          FTarget[i] := pscsiAddr^.TargetId;
          FLun[i] := pscsiAddr^.Lun;
        end;
        CloseHandle(FileHandle);
      end;
    end;
  end;     // FOR-Schleife Anzahl der CD-ROM/DVD Laufwerke
end;

Ich verstehe nur nicht, warum DeviceIoControl für eine 64Bit Anwendung hier False zurückgibt. Warum passiert das und wie kann ich den Teil ändern, dass es für eine 32Bit und eine 64Bit Anwendung funktioniert ?

[Luckie]

Und was sagt GetLastError?

[RWarnecke]

Das gibt GetLastError zurück:

Zitat:

ERROR_REVISION_MISMATCH
1306 (0x51A)

[Luckie]

Und Klartext auf deutsch: "Dies zeigt an, dass zwei Revisionsstufen nicht kompatibel sind."

[RWarnecke]

Ja, aber wo ? Da die gleiche Funktion in einem 32Bit Programm wunderbar funktioniert. Anscheinend sehe ich den Wald vor lauter Bäumen mal wieder nicht.

[JamesTKirk]

Laut MSDN ist spt_DataBufferOffset ein PVOID und kein DWord . Das könnte deine Unterschiede erklären.

Gruß,
Sven

[RWarnecke]

Hallo Sven,

danke für Deine Antwort und Deine schnelle Hilfe.

Zitat von JamesTKirk:

Laut MSDN ist spt_DataBufferOffset ein PVOID und kein DWord . Das könnte deine Unterschiede erklären.

Mit der Änderung an spt_DataBufferOffset funktioniert es jetzt einwandfrei. Ich werde in dieser Unit nochmal alle Deklarationen überprüfen. Ich glaube, ich hatte damals das als DWord deklariert, da es unter Delphi 2007 keine Deklaration für PVOID gab.

[JamesTKirk]

Zitat von RWarnecke:

Hallo Sven,

danke für Deine Antwort und Deine schnelle Hilfe.

Zitat von JamesTKirk:

Laut MSDN ist spt_DataBufferOffset ein PVOID und kein DWord . Das könnte deine Unterschiede erklären.

Mit der Änderung an spt_DataBufferOffset funktioniert es jetzt einwandfrei. Ich werde in dieser Unit nochmal alle Deklarationen überprüfen. Ich glaube, ich hatte damals das als DWord deklariert, da es unter Delphi 2007 keine Deklaration für PVOID gab.

PVOID steht normalerweise über die Unit Windows zur Verfügung... ich kann ja gern morgen in der Arbeit mal schauen, da verwenden wir auch Delphi 2007.

Ansonsten ist PVOID ja nichts anderes als Pointer

Gruß,
Sven