delphi - 如何在 Delphi 中阅读 ISO 9660？

Question

我目前正在做一个项目，需要知道 DVD 的刻录时间（刻录 DVD 的日期）。据我搜索和寻找，发现所有像这样的数据都遵循 ISO 9660 格式，但我找不到如何访问或阅读它，还尝试了一些相关的组件包和库，但它们都没有作为我期望和需要。

还找到了这个链接：如何找出光盘 (DVD) 何时被写入/刻录？但我找不到在 Delphi 中使用它们的方法。它是如何工作的？

Answer 1

按照此答案的链接：如何找出光盘（DVD）何时被写入/刻录？给出在哪里读取磁盘上的日期和时间信息：

从位置 33582 开始读取 16 个字符加上一个额外的字节，可以得到 DVD 创建时间：

YYYYMMDDHHMMSSCCO

其中 CC 是厘秒，O 是 15 分钟间隔内与 GMT 的偏移量，存储为 8 位整数（二进制补码表示）。

以下代码可用于读取（另请参阅如何使用 Delphi 从 USB 存储设备读取原始块？）：

function GetDVDCreationDate: String;
// Sector size is 2048 on ISO9660 optical data discs
const
  sector_size = 2048;
  rdPos = (33582 DIV sector_size);  // 33582
  rdOfs = (33582 MOD sector_size) - 1;
var
  RawMBR  : array [0..sector_size-1] of byte;
  btsIO   : DWORD;
  hDevice : THandle;
  i       : Integer;
  GMTofs  : ShortInt;
begin
  Result := '';
  hDevice := CreateFile('\\.\E:', GENERIC_READ,  // Select drive 
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hDevice <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hDevice,sector_size * rdPos,nil,FILE_BEGIN);
    ReadFile(hDevice, RawMBR[0], sector_size, btsIO, nil);
    if (btsIO = sector_size) then begin
      for i := 0 to 15 do begin
        Result := Result + AnsiChar(RawMBR[rdOfs+i]);
      end;
      GMTofs := ShortInt(RawMBR[rdOfs+16]);  // Handle GMT offset if important
    end;
    CloseHandle(hDevice);
  end;
end;

---

请注意，从磁盘读取原始数据必须从偶数扇区大小的位置开始。对于ISO 9660磁盘，扇区大小为 2048。

Answer 2

感谢@LU RD 的回答，这是他的代码，只做了很少的修改：

function GetDVDCreationDate(sectorSize:integer): String;
// Sector size is 2048 on ISO9660 optical data discs
var
  RawMBR  : array [0..2047] of byte;
  btsIO   : DWORD;
  hDevice : THandle;
  i       : Integer;
  GMTofs  : ShortInt;
  rdPos, rdOfs: integer;

begin
  rdPos := (33582 DIV sectorSize);  // 33582
  rdOfs := (33582 MOD sectorSize) - 1;

  hDevice := CreateFile('\\.\H:', GENERIC_READ,  // Select drive
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hDevice <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hDevice,sectorSize * rdPos,nil,FILE_BEGIN);
    ReadFile(hDevice, RawMBR[0], sectorSize, btsIO, nil);
    for i := 0 to 15 do begin
      Result := Result + AnsiChar(RawMBR[rdOfs+i]);
    end;
    GMTofs := ShortInt(RawMBR[rdOfs+16]);  // Handle GMT offset if important
    CloseHandle(hDevice);
  end;
end;

//------------------------------------------------------------------------------

procedure Tfrm_main.btn_creationReadClick(Sender: TObject);
begin
  memo_dataLog.Lines.Add(GetDVDCreationDate(StrToInt(edit_sSize.Text)))
end;