Прочитать/записать указанный байт из большого файла

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

метод seek вызывает винапишный FileSeek, который 32-битный. Что еще тут можно добавить. Int64 в Integer ведь не засунешь.

Дельфийский FileSeek.
Винапишный отлично тянет 64 бита. правда в две части.

там вроде можно же получать хендл от TFileStream?
тогда можете написать над ним обертку с Seek64, Position64, а поможет в этом АПИшная SetFilePointer

[Stilet]

а с фига я-то не внимательный?

Потому что до твоего поста я и так залез в генофонд. Причем именно так, как ты описал

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

не ссорьтесь, вы в разные места залезли.
и судя по всему в разных версиях...
Stilet, полностью Seek можно с вашей версии? у ТС она старее видимо, там есть лимит на 31 бит.

[Stilet]

Stilet, полностью Seek можно с вашей версии?

Йеххх...
Можете мну смело записывать в засланцы-провокаторы.
Это Лазарус.

function THandleStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;

begin
  Result:=FileSeek(FHandle,Offset,ord(Origin));
end;

И

Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;
var
  rslt: Int64Rec;
begin
  rslt := Int64Rec(FOffset);
  rslt.lo := SetFilePointer(Handle, rslt.lo, @rslt.hi, Origin);
  if (rslt.lo = $FFFFFFFF) and (GetLastError <> 0) then
    rslt.hi := $FFFFFFFF;
  Result := Int64(rslt);
end;

Так что я в данном случае нафлудил на целый горчичник

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

в Лазаре может поправлено.
а вот в Делфи хз.
говорят там FileSeek Integer принимает.

но в принципе я думаю ТС это полезно, если хочет свое дополнить.

[FaTaL]

Вот Delphi 10 Seatle:

function THandleStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
  Result := FileSeek(FHandle, Offset, Ord(Origin));
end;

и

function FileSeek(Handle: THandle; const Offset: Int64; Origin: Integer): Int64;
{$IFDEF MSWINDOWS}
begin
  Result := Offset;
  Int64Rec(Result).Lo := SetFilePointer(Handle, Int64Rec(Result).Lo,
    @Int64Rec(Result).Hi, Origin);
  if (Int64Rec(Result).Lo = $FFFFFFFF) and (GetLastError <> 0) then
    Int64Rec(Result).Hi := $FFFFFFFF;
end;
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
begin
{$IFDEF ANDROID}
  Result := lseek64(Handle, Offset, Origin);
{$ELSE !ANDROID}
  Result := lseek(Handle, Offset, Origin);
{$ENDIF ANDROID}
end;
{$ENDIF POSIX}