Разделенная запись одного набора данных в насколько TStream

[STRELOK-2007]

Приветствую!

Допустим есть

procedure Write(var Buffer; const Size: Int64);
или
procedure Read(ver Buffer; const Size: Int64);

И есть парочка файлов
File1.bin 1024б
File2.bin 1024б
File3.bin 1024б

Которые из себя на самом деле один набор данных, просто разделенный по нескольким файлам, размером 3072б.

Планирую сделать "виртуальный" наследник TStream, обеспечивающий прозрачную запись/чтение данных.
В зависимости от текущей позиции, в этом виртуальном классе - подлючается нужный файл и работа идет с ним.

Допустим текущая позиция равна 1000, соответственно подключен File1.bin и реальная позиция в нем - тоже 1000.

Нужно записать Buffer размером 32 байта. Соответственно, 24 байта нужно записать в File1.bin, закрыть его, открыть File2.bin, перейти на 0 позицию - и записать оставшиеся 8 байт.

Как можно это осуществить?

Да, можно использовать какой то промежуточный массив байт, но это при небольших объемах хорошо.

[Аватар]

Запихнуть последовательно все три файла в один MemoryStream, после правки выгрузить в 3 или 23 килобайтных файла. Все операции чтения-записи с использованием ReadBuffer и WriteBuffer

PS

ТС, матюки в личках это по крайней мере не порядочно

[evg_m]

для одинаковых

numstream:=superposition div SizeStream;
streamposition:=superposition mod SizeStream;

для разных

posstream:=superPosition;
numstream:=0;
while postream>streamsize[numstream] do 
begin
   posstream:=posStream - streamsize[numstream];
   numstream:=numstream+1;
end;

[STRELOK-2007]

Сообщение от Аватар

Запихнуть последовательно все три файла в один MemoryStream, после правки выгрузить в 3 или 23 килобайтных файла. Все операции чтения-записи с использованием ReadBuffer и WriteBuffer

PS

ТС, матюки в личках это по крайней мере не порядочно

Ты действительно думаешь, что я буду по несколько байт записывать информацию?
Что, если речь идет о нескольких гигабайтах - оперативка лопнет MemoryStream создавать.

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

для одинаковых

numstream:=superposition div SizeStream;
streamposition:=superposition mod SizeStream;

для разных

posstream:=superPosition;
numstream:=0;
while postream>streamsize[numstream] do 
begin
   posstream:=posStream - streamsize[numstream];
   numstream:=numstream+1;
end;

Речь идет не о том как определить смещение, а о том, как записать часть буффера в один поток, а часть - в другой?

P.S.
Почему на все мои вопросы отвечают либо не то, либо какой-то флуд? Я что не правильные вопросы задаю, или карма у меня такая?

[Аватар]

ReadBuffer и WriteBuffer разбуй глаза и посмотри что эти методы делают и где там речь об одном байте

Я что не правильные вопросы задаю, или карма у меня такая?

Прежде всего в help не смотришь

Что, если речь идет о нескольких гигабайтах - оперативка лопнет MemoryStream создавать.

В вопросе речь шла о нескольких килобайтах, вдруг откуда ни возмись они стали гигами

[evg_m]

как записать часть буффера в один поток, а часть - в другой?

скажу если скажешь(покажешь код) как записать весь буфер в один.

У тебя есть переменные с которыми ты можешь делать все что хошь(прибавлять и отнимать).
Буфер это указатель(Pointrer ) на память где хранятся некоторые нужные тебе данные.
как из одного получить два (один с нулевым смещением, а другой с другим известным смещением)?

Речь идет не о том как определить смещение

как узнать сколько данных из указанного места мне надо писать?

[STRELOK-2007]

А ответ был предельно просто

 TTestXXL = packed record
  c1,
  c2: Cardinal;
 end;

procedure TForm1.sButton5Click(Sender: TObject);
var
 t: TTestXXL;
 bp: NativeInt;
begin
 t.c1:=7304;
 t.c2:=314490;

 sRichEdit3.Lines.Add(IntToHex(t.c1, 8));
 sRichEdit3.Lines.Add(IntToHex(t.c2, 8));

 bp:=NativeInt(@t);

 MS1.Write(Pointer(bp+0)^, 4);
 MS2.Write(Pointer(bp+4)^, 4);
end;

procedure TForm1.sButton6Click(Sender: TObject);
var
 t: TTestXXL;
 bp: NativeInt;
begin
 t.c1:=666;
 t.c2:=777;

 bp:=NativeInt(@t);

 MS1.Position:=0;
 MS2.Position:=0;

 MS1.Read(Pointer(bp+0)^, 4);
 MS2.Read(Pointer(bp+4)^, 4);

 sRichEdit3.Lines.Add(IntToHex(t.c1, 8));
 sRichEdit3.Lines.Add(IntToHex(t.c2, 8));
end;

00001C88
0004CC7A
00001C88
0004CC7A

P.S.
Печально, что как всегда, в итоге, ответ я нахожу сам...
Только на это уходит, куда больше времени...

[evg_m]

Буфер это указатель(Pointrer ) на память где хранятся некоторые нужные тебе данные.
как из одного получить два (один с нулевым смещением, а другой с другим известным смещением)?

Радует что вы смогли воспользоваться, пусть даже и неосознанно.

bp:=NativeInt(@t);

 MS1.Write(Pointer(bp+0)^, 4);
 MS2.Write(Pointer(bp+4)^, 4);

Значит еще не все потеряно.

Текст был дан именно для того чтобы

в итоге, ответ я нахожу сам...