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

[BLACK_RAIN]

Здравствуйте.
Нужно открыть большой файл, не загружая его целеком в память, и прочитать из него указанные байты. И заменить их.
Был уверен, что компонент TFileStream для этого подойдет. Но, как оказалось, он может читать и писать файлы только до позиции в 31 бит, то есть 2147483647. Если не ошибаюсь, используются 32-битные WinAPI'шные функции. Отсюда и ограничение.
Подскажите способ обойти это ограничение (кроме перехода на 64-битную delphi). Знаю, что есть какой-то способ. Ведь есть 32-битные проги, которым это ограничение не помеха.

[Filka]

http://gp.17slon.com/gp/gphugefile.htm

[Stilet]

он может читать и писать файлы только до позиции в 31 бит

Это ты как выяснил? Цитирую хелп:

property Position: Int64;

Так что оч. сомневаюсь в твоей правоте. Без обид.

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

на край пишите сами с использованием WinAPI.
32-битность винды тут не причем.

Это ты как выяснил? Цитирую хелп:

лучше процитируй мне исходники класса

[Stilet]

лучше процитируй мне исходники класса

  function TStream.GetPosition: Int64;

    begin
       Result:=Seek(0,soCurrent);
    end;

Или ты имеешь ввиду это:

      if (Offset<Low(longint)) or
         (Offset>High(longint)) then

в самой Seek() ?

[FaTaL]

кроме перехода на 64-битную delphi

Разве такая есть?
Да вроде TFileStream всегда справлялся с большими файлами. По крайней мере я не замечал ограничений.

[BLACK_RAIN]

Сообщение от Stilet

Это ты как выяснил? Цитирую хелп: property Position: Int64

Так что оч. сомневаюсь в твоей правоте. Без обид.

нажми ctrl и кликни мышкой по слову seek

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

теперь скажи, как ты свой Int64 в Integer засунешь? тоже без обид

Сообщение от Filka

http://gp.17slon.com/gp/gphugefile.htm

Спасибо. Пока не тестировал,но скрестив пальцы, файл ~16gb вроде перематывается без ошибок. На других файлах пока не проверял.
Однако, следует отметить, что метод seek() по прежнему ограничен 31-битным числом. Перемотка осуществляется с помощью свойства Position.
Если кто юзал компонент TGpHugeFileStream, поделитесь опытом, как он вообще? Файлы какого размера открывает? Работает ли функция записи в большой файл? не косячит файлы от этого?

Сообщение от FaTaL

Разве такая есть?
Да вроде TFileStream всегда справлялся с большими файлами. По крайней мере я не замечал ограничений.

Delphi XE c какой-то версии стала х64. Там выбрать можно х32 или х64 билд проекта (конечно, если винда х64).
Разве справлялся? Это же обёртка над FileOpen , FileSeek и т.д.

[Stilet]

нажми ctrl и кликни мышкой по слову seek

Ты не внимательный )
См. выше )

[Pavia]

http://docs.embarcadero.com/products...4@Integer.html

В Delphi7: FileSeek в одном варианте исполнения Cardinal 32 бита
Начиная с Delphi 2009 в двух вариантах 32 и 64 битное.

Там выбрать можно х32 или х64 билл.

От билда это не зависит выбор делается на основе входных параметров, вернее их типов.

Поэтому в Delphi7 имеется неудобство для работы с файлами более 2 ГБ. Но их легко обойти добавив нужные функции и методы в класс. Собственно их всего две Seek и Position.

По поводу удивления того что в Delphi 7 всё работало и так. Можно и не добавлять. При циклическом чтение, когда смещение идёт относительно, а не абсолютное ОС отрабатывает нормально. И файлы больше 2ГБ будут нормально читаться и писаться.

[BLACK_RAIN]

stilet
а с фига я-то не внимательный?
метод seek вызывает винапишный FileSeek, который 32-битный. Что еще тут можно добавить. Int64 в Integer ведь не засунешь.
pavia
Цикличиское чтение не удобно. Мне надо читать и писать рандомные участки файла.