Рассчитать указатель SetFilePointer

[Hottabych]

Всем здравствуйте!
Работаю с физ. диском, как рассчитать указатель для функции SetFilePointer?

function _Mul(a,b: DWORD; var HiDWORD: DWORD): DWORD;
asm
   mul edx
   mov [ecx],edx
end;

function ReadSector(hD: THandle; Sector: DWORD; var Buffer: TSector): boolean;
var
BytesRead,PosLo, PosHi: DWORD;
begin
Result := false;
PosLo := 0;
PosHi := PosLo;
PosLo := _mul(Sector,BytesPerSector,PosHi);
SetFilePointer(hD,PosLo,@PosHi,FILE_BEGIN);
if ReadFile(hD, Buffer[0], BytesPerSector, BytesRead, nil) then
  Result := true;
end;

Сектор 103394340 не читается, а 1, 20, 100-й - пожалуйста...
В принципе, с делфи все ясно, но как работает функция _mul я не знаю... Объясните, пожалуйста, недалекому человеку

[Пепел Феникса]

_mul умножение с получением результата как QWord(UINT64)
код такой короткий потому что используется особенности передачи параметров через стандартный режим передачи(register)
а так, просто умножение DWORD и результат это QWORD(eax:edx)

[Hottabych]

А переменной HiDWORD присваивается старшие 32 бита?
Я так понимаю, функция SetFilePointer объединяет младшие и старшие биты формируя единое 64 битное число, но есть одно но... если PosHi не 0, то после выполнения функции SetFilePointer ф-я ReadFile возвращает false, в чем может быть причина?

[Пепел Феникса]

А переменной HiDWORD присваивается старшие 32 бита?

да

в чем может быть причина?

GetLastError() что говорит?

SetLastError(0);//для чистоты эксперимента
ReadSector(...);//сами дополните.
ShowMessage(IntToStr(GetLastError()));

например таким образом

[Hottabych]

if ReadFile(hD, Buffer[0], BytesPerSector, BytesRead, nil) then
  Result := true else
ShowMessage(IntToStr(GetLastError));

87 The parameter is incorrect. ERROR_INVALID_PARAMETER
Вот что говорит по этому поводу MSDN

[Hottabych]

Может хэндл файла портится?

[Пепел Феникса]

а проверить выводом до и после?(хендл это число)

[Hottabych]

С хэндлом все нормально, PosLo и PosHi вычисляются правильно...
Вот собственно про эти 2 параметра:

lDistanceToMove
[in] Младшие 32 бита значения со знаком, устанавливающее число байтов, на которое переместится указатель позиции в файле. Если параметр lpDistanceToMoveHigh - не ПУСТО (NULL), параметры lpDistanceToMoveHigh и lDistanceToMove формируют единое 64-разрядное значение со знаком, которое определяет расстояние продвижения. Если lpDistanceToMoveHigh - ПУСТО (NULL), lDistanceToMove - 32-разрядное значение со знаком. Положительное значение параметра lDistanceToMove продвигает указатель позиции в файле вперед, а отрицательное значение перемещает указатель позиции в файле назад.

lpDistanceToMoveHigh
[in] Указатель на старшие 32 бита 64-разрядного расстояния со знаком, на которое продвигается указатель позиции. Если Вам не нужны эти старшие 32 бита, этот указатель должен быть установлен в ПУСТО (NULL). Если он равен не ПУСТО (NULL), этот параметр также получает и старшее двойное слово (DWORD) нового значения указателя позиции в файле. Для получения дополнительной информации, см. раздел Замечаний ниже в этой статье.

Может со знаком проблемы, перемещает указатель не туда, а readfile потом прочитать не может?

[Пепел Феникса]

врятли знак возьмется из ниоткуда...(до старшего бита врятли дойдет умножение)
PosLo,PosHi не получаются ли отрицательными?
есть у меня мысль как сделать...но я считаю её идиотской

[Goodwin98]

Может проще в отладчике поглядеть, что там передается реально ?

ReadFile(hD, Buffer[0], BytesPerSector, BytesRead, nil)

Я не очень знаю дельфу, но BytesRead и Buffer[0] тут вроде не указатели...