Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизЧтение секторов на дисках Найти похожие ветки
← →
АндрейФ. (2002-01-10 18:40) [0]Всем добрый день! Задача заключается в чтении секторов на дисках. Ниже приведен код, использующий функцию абсолютного чтения диска (прерывание 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.
Пожалуйста, объясните причину и подскажите, как это обойти!
Заранее благодарен!
← →
aus (2002-01-10 21:24) [1]А ты не пробовал HDD с FAT16 - скорее всего будет работать, дело именно в разнице табл. размещения файлов FAT16 и FAT32.
Я экспериментировал с 13 прерыванием (в Turbo Pascal) - именно в этом была причина.
← →
АндрейФ (2002-01-11 14:50) [2]Спасибо за совет, aus ©! Попробую и обязятельно сообщу результат.
← →
Knight (2002-01-12 13:44) [3]Извиняюсь, тест...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c