Неправильно считывает сектор FAT32 функцией ReadSectors, почему?

Question

[ZIK1337]

Суть: нужно написать приложение, которое считывает произвольный сектор логического диска.
Приложение работает, но не знаю почему - считывает неправильно.
Как понял, почему неправильно?
Если расшифровывать загрузочный сектор, то по смещению 0х24-0х27 должно быть кол-во секторов, занимаемых одной копией FAT.
неактуально

Answer 1

[kalapanga]

Для начала, если Вы этого не делали, найдите какую-нибудь дисковую утилитку и посмотрите эти самые сектора. Всё ли соответствует Вашим ожиданиям, Вашим знаниям о FAT32. Это чтобы не получилось, что Вы что-то считаете неправильным, а на самом деле оно так и должно быть.
А дальше не торопясь отлаживаться. Чудес не бывает. Если функция раз от разу возвращает разный результат, то либо её вызывают с различными параметрами, либо ошибка в коде функции, либо и то и другое. Всё должен показать отладчик.

Comments

[ZIK1337]

Параметры одни, вот например как заполняется информация о FAT:

spoiler

procedure TForm1.Button3Click(Sender: TObject);
 var
 b,c:integer;
 begin
  form1.hide;
   b:=1; c:=16; j:=3;
   form2.StringGrid1.RowHeights[0]:=0;
   form2.StringGrid1.ColWidths[0]:=0;
    ReadSectors1(DriveComboBox1.Drive,0,1,@buf[0]);
     form2.ValueListEditor1.Cells[1,1]:= inttostr(strtoint('$'+inttohex(buf[$10],2)));
     form2.ValueListEditor1.Cells[2,2]:= inttostr(strtoint('$'+ inttohex(buf[$27],2)+ inttohex(buf[$26],2)+ inttohex(buf[$25],2)+ inttohex(buf[$24],2)));
     form2.ValueListEditor1.Cells[3,3]:= inttostr(strtoint('$'+ inttohex(buf[$2F],2)+ inttohex(buf[$2E],2)+ inttohex(buf[$2D],2)+ inttohex(buf[$2C],2)));
     form2.ValueListEditor1.Cells[4,4]:= inttostr(strtoint('$'+inttohex(buf[$F],2)+ inttohex(buf[$e],2)));
     form2.ValueListEditor1.Cells[5,5]:= chr(buf[$52])+ chr(buf[$53])+chr(buf[$54])+chr(buf[$55])+chr(buf[$56])+chr(buf[$57])+chr(buf[$58])+chr(buf[$59]);
    ReadSectors(DriveNumber,0,1,@buf[0]);
     form2.ValueListEditor1.Cells[6,6]:=inttostr((strtoint('$'+ inttohex(buf[$1C9],2)+ inttohex(buf[$1C8],2)+ inttohex(buf[$1C7],2)+ inttohex(buf[$1C6],2)))+strtoint(form2.ValueListEditor1.Cells[4,4]));
     form2.ValueListEditor1.Cells[7,7]:=intToStr(strtoint(form2.ValueListEditor1.Cells[6,6])+ strtoint(form2.ValueListEditor1.Cells[2,2]));
     form2.ValueListEditor1.Cells[8,8]:=intToStr(strtoint(form2.ValueListEditor1.Cells[7,7])+strtoint(form2.ValueListEditor1.Cells[2,2]));
    Sector1:=strtoint(form2.ValueListEditor1.Cells[6,6]);
    ReadSectors(DriveNumber,Sector1,1,@buf[0]);
    For i:=b to c do
      begin
      for k:=1 to 8 do
       begin
       form2.StringGrid1.Cells[k,i]:=IntToHex(buf[j],2)+IntToHex(buf[j-1],2)+IntToHex(buf[j-2],2)+IntToHex(buf[j-3],2);
       j:=j+4;
       end;
      end;
   Form2.button4.Visible:=false;
   Form2.Show;
end;

Функция ReadSectors1:

spoiler

function ReadSectors1(DriveNumber: char; StartingSector, SectorCount: DWORD;
  Buffer: Pointer; BytesPerSector: DWORD = 512): DWORD;
var
  hFile: THandle;
  br,TmpLo,TmpHi: DWORD;
begin
  Result := 0;
  hFile := CreateFile(PChar('\\.\'+DriveNumber+':'),
    GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hFile = INVALID_HANDLE_VALUE then Exit;
  TmpLo := __Mul(StartingSector,BytesPerSector,TmpHi);
  if SetFilePointer(hFile,TmpLo,@TmpHi,FILE_BEGIN) = TmpLo then
  begin
    SectorCount := SectorCount*BytesPerSector;
    if ReadFile(hFile,Buffer^,SectorCount,br,nil) then Result := br;
  end;
  CloseHandle(hFile);
end;

Функция ReadSectors:

spoiler

function ReadSectors(DriveNumber: Byte; StartingSector, SectorCount: DWORD;
  Buffer: Pointer; BytesPerSector: DWORD = 512): DWORD;
var
  hFile: THandle;
  br,TmpLo,TmpHi: DWORD;
begin
  Result := 0;
  hFile := CreateFile(PChar('\\.\PhysicalDrive'+IntToStr(DriveNumber)),
    GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hFile = INVALID_HANDLE_VALUE then Exit;
  TmpLo := __Mul(StartingSector,BytesPerSector,TmpHi);
  if SetFilePointer(hFile,TmpLo,@TmpHi,FILE_BEGIN) = TmpLo then
  begin
    SectorCount := SectorCount*BytesPerSector;
    if ReadFile(hFile,Buffer^,SectorCount,br,nil) then Result := br;
  end;
  CloseHandle(hFile);
end;

[kalapanga]

Вы говорите, что некоторая функция у Вас вызывается три раза и возвращает разный результат. Значит ставите точку останова на первой строке этой функции, входные параметры выводите в окно отслеживания. Не по Вашему коду, а по реально наблюдаемым значениям убеждаетесь, что все три раза в функцию приходят одни и те же величины. Убедились, а результат разный, значит добавляем в отслеживание все переменные используемые в коде функции и каждый из этих трёх раз пошагово проходим всю функцию под отладчиком. Находим в какой строке возникает различие. Осмысляем.
Вот как-то так надо действовать, а медитировать на код бесполезно.
Ошибка может быть самой разной. Но отладчик именно для поиска ошибок и придумали.

[kalapanga]

Удалил предыдущее сообщение, оно неточную информацию содержало. У меня Ваша и две другие программы содержимое например 0 сектора флешки показывают одинаково. Дальше не проверял.

[ZIK1337]

kalapanga, но у меня показывает точно не правильно, уже даже судя по первым 3 байтам, должно быть: EB xx 90
у меня же совсем другое

[ZIK1337]

kalapanga, переделал немного приложение, сейчас выдаёт, что нет доступа к диску

spoiler

if readsecto(drive,strtoint(edit1.text),strtoint(edit2.text),pointer(buf))=0
  then showmessage('Нет доступа');
--------------------------------------------------------------------------------------
function ReadSecto(drive:char;StartingSector, SectorCount: DWORD;
    Buffer: Pointer; BytesPerSector: DWORD = 512): DWORD;
  var
    hFile: THandle;
    br,TmpLo,TmpHi: DWORD;
  begin
    Result := 0;
    hFile := CreateFile(PChar('\\.\'+Drive+':'),
GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
    if hFile = INVALID_HANDLE_VALUE then Exit;
    TmpLo := __Mul(StartingSector,BytesPerSector,TmpHi);
    if SetFilePointer(hFile,TmpLo,@TmpHi,FILE_BEGIN) = TmpLo then
     begin
      SectorCount := SectorCount*BytesPerSector;
      if ReadFile(hFile,Buffer^,SectorCount,br,nil) then Result := br;
    end;
    CloseHandle(hFile);
end;

С чем это может быть связано? От админа пробовал запустить, всё равно

[kalapanga]

ZIK1337, да кто же его знает! Вы опять гадаете. У Вас это сообщение может быть выдано минимум по трём причинам - не создан файл, не установлен указатель в файле, ничего не прочитано из файла. Локализуйте причину и смотрите, что Вы такого поменяли, что вот это конкретное место перестало работать. Старый вариант работает? Значит точно изменения виноваты.
Ну и в плане использования метода тыка, Вы пробовали Вашу программу запускать с другим диском, на другом компьютере? Может проблема-то не в программе? На том что я смог проверить (win7 + флэшка), так похоже, что вроде всё более менее работает. А уж физической XP у меня в обозримом окружении нет.

[ZIK1337]

kalapanga, 1 причина с неустановкой указателя отпадает, поскольку есть условие
if hFile = INVALID_HANDLE_VALUE then Exit;
а вот если не создан файл, то и прочитано ничего не будет, я не уверен, что верно указываю имя диска в CreateFile(PChar('\\.\'+Drive+':')

проверять негде, на VirtualBox итак

[ZIK1337]

kalapanga, сейчас проверил, как раз не устанавливается указатель, вышло из процедуры после этого самого условия

spoiler

значит неверно указываю имя диска? но как тогда?

[kalapanga]

ZIK1337, Так Вы не на физической машине а на виртуальной?? Не утверждаю на 100%, но, по-моему, в плане посекторного чтения виртуальный диск ничего никому не должен.
Что мешает из под физической винды со съёмным носителем проверить?

По поводу последнего Вашего сообщения. У Вас же до каких-то изменений всё работало - верните всё как было!

[ZIK1337]

kalapanga, конечно на виртуальной, в 2019 году у кого-то остались машины с фат32 ?)
думал, что на виртуальной машине все получится..
не подскажите, как тогда быть? флешку не хочется сейчас форматировать, больше нет вариантов?

[kalapanga]

ZIK1337, Ну для чего-то Вы эту программу в 2019 пишете :) Я бы всё-таки флешку форматнул.

[ZIK1337]

kalapanga, посмотрел, флешка с фат32, так что не пришлось
но все равно не считывает (это первая версия приложения, которая у вас работает), не менял естественно ничего, нули теперь просто)

spoiler

а вторая версия также отказывает в доступе :(

[kalapanga]

ZIK1337, Что-то уж у Вас совсем чудеса какие-то. Я бы на Вашем месте вторую версию просто забыл - ну поправили что-то не то, лучше не стало, только хуже, наплевать на неё. Дальше принял к сведению, что первая версия где-то даже работает. Т.е. с ней не всё так плохо. Расширил бы условия эксперимента - другой компьютер, другая ось, другие диски.
Вся эта посекторная работа с дисками представляла интерес уже настолько давно, что сейчас даже затрудняюсь сходу придумать причину, которая ей может мешать. Не знаю, что с Вашим компом может быть не так.
Домой приду, там ещё запущу. Может даже xp-шную виртуалку найду, но не гарантирую, не помню, жива она у меня или нет.

[kalapanga]

Ой, кстати! Вторая версия у Вас завершается как-то некорректно, процесс остаётся висеть. Вот он небось работать и мешает. В код вникать лень.
Но это так к слову, исходной проблемы не решает.

[ZIK1337]

kalapanga, я еще пробовал вместо CreateFile(PChar('\\.\'+Drive+':') писать CreateFile(PChar('\\.\PhysicalDrive0') во 2 версии программы, тогда отказа в доступе не было, но считывало все равно не то (возможно из-за того, что на виртуалке, ибо данные те же, что и в первой версии):

spoiler

на флешке другой номер диска будет, так что не знаю, как там проверить
но теперь на 99% уверен, что вторая версия не работает из-за неверного имени диска в CreateFile, но как указать верное (учитывая все типы для других процедур) - не знаю

[ZIK1337]

kalapanga, по поводу того, что процесс остаётся висеть, после закрытия не вижу в диспетчере ничего подозрительного
но воспользовавшись GetLastError, получил ошибку 32

ERROR_SHARING_VIOLATION

32 (0x20)

The process cannot access the file because it is being used by another process.

и после ребута машины же по идее должно работать? но не работает

[kalapanga]

ZIK1337, ой сорри, это первой версии касалось. Во второй у Вас уже всё по другому. А там Вы как-то слишком вольно с формами обращались. Если открыть форму по кнопке "Информация о FAT" а потом закрыть Form2 не кнопкой "Закрыть", а "крестиком", то получалось то, что я описал - открытых форм нет, а процесс висит.

[ZIK1337]

kalapanga, тогда вообще непонятно, почему во второй версии такая ошибка
в комментах к вопросу ответили про то, что этим "другим процессом" может быть сама ОС, но это уже какой-то бред получается, который нельзя решить..

[kalapanga]

ZIK1337, У меня никакой ошибки нет. Точнее ошибки нет, если выбрать диск - флешку с FAT32. Если выбрать HDD с NTFS, то да, будет ошибка. Но это вобще-то не удивительно.

[ZIK1337]

kalapanga, это вы про вторую версию?
На виртуалке при установке винды фат32 выбирал, да и в свойствах диска тоже она, так что вроде все правильно
И в свойствах флешки тоже фат32, но все равно ошибка...
Может это уже ОС защищает диск как-то, эксклюзивное право или еще что

[kalapanga]

ZIK1337, раз уж обещался немного поэкспериментировать, то вот результат. Запускал на десятке 64-х битной. Запускать надо от имени администратора. Работают обе версии. Натравливал их на флешку. Но показывали они совсем не то, что днём под 7-кой. Сам бы я конечно не понял, что именно они мне такое рисуют, но подсказала одна из программулек, с которыми я Ваши сравнивал. У неё есть две возможности прочитать физический сектор и логичекий сектор. И результат разный. И вот сейчас, то что выдает Ваша программа, совпадает с логическим сектором. А все эти ожидаемые сигнатуры надо смотреть в физическом. А днём под 7 без разницы было. Так что, если есть интерес к изучению файловых систем, копайте в этом направлении (физические и логические сектора). Мои знания тут кончаются, да и к Дельфи это уже не относится.
Вот две утилитки, которыми я пользовался: https://cloud.mail.ru/public/FkYs/WjptyNjjD (первое, что в интернете попалось)

[ZIK1337]

kalapanga, к сожалению, мне нужно именно на делфи это реализовать, а в учебнике, где я про это смотрел, была именно функция ReadSectors и вот это всё остальное, что у меня реализовано
и что же выходит, у делфи нет инструментов для чтения физических секторов, только логических?
но без этого тогда невозможно выполнить мое задание

[kalapanga]

ZIK1337, действительно, этот пример тупо переписывается из статьи в статью по всему интернету. Но жизнь-то меняется. Что работало ещё недавно, теперь не работает. Это нормально. Ищите новую, максимально свежую информацию. С тех пор, как кто-то написал этот пример, наверняка уже много чего нового появилось.
И не стоит так уж сразу конкретизировать - физические читает, логические не читает. Я Вам только сказал, что Ваша проблема наверное где-то в этой области. Сначала изучите, что это такое вобще, как работают соответствующие winapi функции в различных версиях Windows, потом уж делайте выводы.

[ZIK1337]

kalapanga, да я смотрел, везде одни и те же примеры с CreateFile, ReadFile и ReadSector...
зачем кому-то под фат32, win xp придумывать что-то новое
попробую поискать еще, спасибо за ответы

[zed]

ZIK1337,

у делфи нет инструментов для чтения физических секторов, только логических?

При чём тут вообще Delphi, если вы всё это на WinAPI пишите - CreateFile, ReadFile и всё прочее - это не функции делфи, это функции Windows, библиотеки Kernel32.dll. Соответственно и гуглить надо что-то вроде "winapi read physical disk sector" и если вдруг найдётся ответ на С/С++ (что скорее всего) не отворачиваться, а переводить код на Delphi.

[ZIK1337]

zedxxx, Все, что у меня в приложении, как раз и выдает гугл, чего-то другого вообще нигде нет

[ZIK1337]

Не знаю как, но и правда на вин10 если запустить от админа, то флешку считывает нормально (2 версия программы)

spoiler

Значит проблема уже в виртуалке, всем еще раз спасибо за ответы