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

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

Чтение секторов на дисках [D5, Win95/98]

АндрейФ. ©   (2002-01-10 18:40:00) 

Всем добрый день! Задача заключается в чтении секторов на дисках. Ниже приведен код, использующий функцию абсолютного чтения диска (прерывание 25).

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,StdCtrls;

...

type
PDIOCRegs=^TDIOCRegs;
TDIOCRegs=packed record
rEBX,rEDX,rECX,rEAX,rEDI,rESI,rFlags:DWORD;
end;

const
VWIN32_DIOC_DOS_INT25=2;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
hDevice : THandle;
Regs : TDIOCRegs;
Nb : DWord;
Bt : Array [1..512] of Byte;
PBt : PByte;
begin
PBt:=@Bt;
hDevice:=CreateFile("\\.\vwin32",GENERIC_READ,0,nil,
0,FILE_FLAG_DELETE_ON_CLOSE,0);
if (hDevice=INVALID_HANDLE_VALUE) then
begin
Result:=False;
Exit;
end;
Regs.rEAX:=$0003; //логический диск С
Regs.rEBX:=DWORD(PBt);
Regs.rECX:=$0001; //количество считываемых секторов
Regs.rEDX:=$0001; //номер считываемого сектора
Result:=DeviceIOControl(hDevice,VWIN32_DIOC_DOS_INT25,
@Regs,sizeof(Regs),@Regs,sizeof(Regs),nb,nil);
CloseHandle(hDevice);
end;

...

end.

Судя по Win32 Programmer"s Reference, все должно работать. При обращении к флоппи-дисководу сектора "читаются". А вот на жесткомдиске - нет (Result=False). Аналогичная картина наблюдается и при использовании функции Read Track прерывания 21.
Пожалуйста, объясните причину и подскажите, как это обойти!

Заранее благодарен!

---

Knight   (2002-01-12 13:44:00) [1]

Извиняюсь, тест...

---

АндрейФ   (2002-01-11 14:50:00) [2]

Спасибо за совет, aus ©! Попробую и обязятельно сообщу результат.

---

aus   (2002-01-10 21:24:00) [3]

А ты не пробовал HDD с FAT16 - скорее всего будет работать, дело именно в разнице табл. размещения файлов FAT16 и FAT32.
Я экспериментировал с 13 прерыванием (в Turbo Pascal) - именно в этом была причина.

---

Наверх