VPF::toc сектор и привязка по к железу

romka84

Дата 2.4.2006, 08:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Уже частично поднималась тема чтения toc сектора cd, но например вот такая программка

Код


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
      WTOCTRACK = record
    rsvd : BYTE;
    ADR : BYTE;
    trackNumber : BYTE;
    rsvd2 : BYTE;
    addr : array[0..4 - 1] of BYTE;
  end {TOCTRACK};
  PWTOCTRACK = ^WTOCTRACK;

 WCDTOC = record
    tocLen : Word;
    firstTrack : BYTE;
    lastTrack : BYTE;
    tracks : array[0..100 - 1] of WTOCTRACK;
  end {TOC};
  PWCDTOC = ^WCDTOC;
  LPWCDTOC = ^WCDTOC;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  const IOCTL_CDROM_READ_TOC = $24000;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:bool;
hDrive : THandle;
      t : PWCDTOC;
      dwReturned : DWord;
begin
//dwReturned := 0;
//ZeroMemory( t, sizeof( WCDTOC ) );

hDrive := CreateFile(PChar('\\.\'+'e:'),GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );

i:=DeviceIoControl( hDrive,IOCTL_CDROM_READ_TOC, nil,0,t,sizeof( t^ ), dwReturned, nil );
  if i=true then showmessage('ok') else  showmessage('not ok');
//CloseHandle( hDrive );
 memo1.Lines.Add(inttostr(t.toclen));
 memo1.Lines.Add(inttostr(t.firsttrack));
  memo1.Lines.Add(inttostr(t.lasttrack));
   memo1.Lines.Add(inttostr(t.tracks[0].adr));
    memo1.Lines.Add(inttostr(t.tracks[1].adr));
 
end;
end.

даже не хочет обращаться к приводу, хотя что-то показывает, а иногда просто висит. Как же всё-таки правильно прочитать toc и какую структуру данных возвращает DeviceIoControl? О формате возвращаемого результата где-нибудь можно более-менее понятно прочитать?

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