Как сделать трубопровод?

← →
Basilio (2003-06-26 18:40) [0]

Как наиболее оптимально реализовать поток (TStream), в котором прочитанные данные тут же исчезали (забывались, стерались)?

Можно использовать TMemoryStream, но там данные, лежащие в начале и уже прочитанные, остаются. было бы замечательно, если бы они автоматически после чтения удалялись (при этом уменьшался размер потока). Есть ли более красивое решение, нежели переписывание метода TMemoryStream.Read, например так:
function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint; var SaveBuf:pointer; NewSize:integer; begin if (FPosition >= 0) and (Count >= 0) then begin Result := FSize - FPosition; if Result > 0 then begin if Result > Count then Result := Count; Move(Pointer(Longint(FMemory) + FPosition)^, Buffer, Result); Inc(FPosition, Result); // NewSize:=FSize-FPosition; GetMem(SaveBuf,NewSize); Move(Pointer(Longint(FMemory) + FPosition)^, SaveBuf^, NewSize); Realloc(FMemory,NewSize); Move(SaveBuf^,FMemory^,NewSize); FPosition:=0; // Exit; end; end; Result := 0; end;
Здесь код между // запоминает содержимое "конца" потока, делает ReAlloc. Таким образом, каждый вызов Read "изымает" данные из потока.

Насколько оптимально такое решение? Чем может быть чреват частый вызов Realloc? Если поток большой, насколько медленне будет выполняться перераспределение памяти?

← →
Basilio (2003-06-26 18:41) [1]

Забыл FSize подправить

← →
MBo (2003-06-26 19:09) [2]

посмотри TQueue
может, и пайпы подойдут - Create(Named)Pipe etc

← →
Basilio (2003-06-26 19:17) [3]

К очереди надо приделывать read/write(buf,size).
Pipe - то, что нужно. большое спасибо

← →
Serginio (2003-06-26 21:02) [4]

Намного проще возвращать память если MemoryStream реализован ввиде массива страниц памяти. Кстати Борландовский TMemoryStream начинает сдыхать уже после 6МБ. Но динамические массивы вполне устойчивы т.к. иапользуют менеджер памяти а MemoryStream локальную GlobalReAlloc. В любом случае непрерывная память неэффективна при больших объемах. А скорость MemoryStream в виде массива страниц памяти достаточно высокая.

Как сделать трубопровод? Найти похожие ветки