169 похожих чатов

Всем доброго вечера. Разрабатываю 32 раз. приложение в Delphi. Столкнулся

с тем, что стандартный TFilestream не работает с большим файлом > 2 ГБайт (после вызова функции seek не изменяется position). Какой выход есть в этой ситуации?

9 ответов

55 просмотров

Выход - либо через WinAPI. Либо да, вроде начиная с D7 есть позиционирование Int64

Если 32 битное приложение, то кажется и не будет столько в память загружать, насколько помню одному 32 битному приложению максимум выделяется 2GB оперативки

DELPHI SOLUTIONS
Если 32 битное приложение, то кажется и не будет с...

Это не распространяется на чтение файла

Vadim-Gl Автор вопроса
meh
Это не распространяется на чтение файла

Когда я в редакторе набираю fs.Seek, то тип переменной смешения не int64, а просто int, отсюда и ограничение.

Vadim Gl
Когда я в редакторе набираю fs.Seek, то тип переме...

пора слезать со среды 25 летней давности.

meh
Это не распространяется на чтение файла

Читать то по разному можно, программа читает куда то в какой то буффер, и как я помню поток считывает в память весь блок которому указан размер

Ну таки и поделился подробностями, какая версия делфы и что там код делает

Vadim Gl
Когда я в редакторе набираю fs.Seek, то тип переме...

Из исходников Delphi 7 (Classes.pas): TStream = class(TObject) private function GetPosition: Int64; procedure SetPosition(const Pos: Int64); procedure SetSize64(const NewSize: Int64); protected function GetSize: Int64; virtual; procedure SetSize(NewSize: Longint); overload; virtual; procedure SetSize(const NewSize: Int64); overload; virtual; public function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual; function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual; property Position: Int64 read GetPosition write SetPosition; property Size: Int64 read GetSize write SetSize64; end; То есть Delphi 7 уже поддерживает 64-битное позиционирование в файле. Надо вызывать конкретную версию функции Seek. Ну или Position использовать, он всегда 64-битный.

Похожие вопросы

Обсуждают сегодня

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта