Как переместить участок в памяти?

[dolphin705]

Здравствуйте. Помогите в работе с памятью!

Я читаю в память весь файл (выдержка из кода)

pFile:= VirtualAlloc(nil, Size, MEM_COMMIT, PAGE_READWRITE);
ReadFile(hFile, pFile^, Size, Read, nil);

затем мне нужно сделать с ним некоторые преобразования, а именно взять 256 байт с конца и презаписать ими начало, а в конце 256 байт убрать или сократить size на 256 байт. Возможно ли сделать такое? В инете ничего на этот счёт не нашёл, по краней мере по делфи. Array of byte не предлогайте, как раз пытаюсь от этого уйти тк нужна память за пределами программы.

[BDA]

Точно массив не подойдет?

const
N=256;
var
a:file of byte;
b:array[1..N] of byte;
begin
assignfile(a,'1.txt');
reset(a);
seek(a,filesize(a)-N);
blockread(a,b,N);
seek(a,0);
blockwrite(a,b,N);
seek(a,filesize(a)-N);
truncate(a);
closefile(a);

[Человек_Борща]

Есть готовый класс TFileStream. Используйте его, либо его начинку.

[dolphin705]

BDA, к сожалению нет, тк объёмы памяти довольно большие.

Человек_Борща, спасибо, но там вроде бы тоже внутренний буфер используется.

[BDA]

dolphin705, большие объемы чего? Из вашего условия следует, что вам нужно только 256 байт дополнительной памяти
Или вы уже и так использовали всю память?

const
N=256;
var
a:file of byte;
b:byte;
i:integer;
begin
assignfile(a,'1.txt');
reset(a);
for i:=0 to N-1 do
begin
seek(a,filesize(a)-N+i);
read(a,b);
seek(a,i);
write(a,b);
end;
seek(a,filesize(a)-N);
truncate(a);
closefile(a);

Нужен 1 байт

[dolphin705]

Извиняюсь, может просто не доскональна всё объяснил. В примере Size может быть до 100 и даже больше мегабайт. 256 байт это кусок переноса (к примеру). На сколько я знаю стек обычной программы 100 мб. точно не сможет вместить.

[GunSmoker]

Чего-то я не понял.

Открыли файл.
Спозиционировали в конец минус 256 байт.
Прочитали 256 байт.
Отрезали конец.
Перешли в начало.
Записали 256 байт.
Закрыли файл.

Это секундная операция даже на гиговых файлах.

Вопрос: нафига надо грузить в память файл целиком?

[BDA]

dolphin705, стек-то может и 100 мб, но я умудрялся с помощью tmemorystream занимать всю оперативную память
Согласен с GunSmoker, вам не нужно загружать в память весь файл.
Способ с побайтовой перезаписью в моем посте выше не самый быстрый, но по памяти, наверное, самый "легкий".