Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs

Question

Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs

:= TFileStream.Create('filename');
cs := TCompressionStream.Create(compression_level, fs);
Я хочу сделать так:
{$IFDEF USE_COMPRESSION}
cs := TCompressionStream.Create(compression_level, fs);
{$ELSE}
cs := TDummyProxyStream.Create(fs);
{$ENDIF}

Вот этот вот TDummyProxyStream существует? Он не должен ничего делать, просто траслировать что ему передали в TStream, который ему указали при создании

#lazarus #programming #russian

0

05.07.2024

5 ответов

11 просмотров

notme Автор вопроса

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

0

3 дня назад

notme Автор вопроса

Александр (Rouse_) Багель
Из коробки? Первый раз про такой слышу, у меня ест...

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

0

3 дня назад

Александр (Rouse_) Багель

notme
ага, из коробки ну или что тут можно посоветовать?...

Ну потрать пять минут и свой напиши, хватит уже из кубиков софт собирать- давай программировать 😂

0

3 дня назад

Igor

notme
ага, из коробки ну или что тут можно посоветовать?...

унаследуй TStream, внутри очередь, Write дописывает в очередь, Read забирает

0

3 дня назад

Александр (Rouse_) Багель · Accepted Answer

Александр (Rouse_) Багель

Из коробки? Первый раз про такой слышу, у меня есть такой- транслирующий, но он в процессе контрольную сумму переданных через него данных считает (там же в fwzip)

0

3 дня назад

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

Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs

5 ответов

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