我有一个基于流的编码功能，如下所示：
function StreamEncode(SourceStream, TargetStream: TStream): Int64;
我想对TFileStream和/或SourceStream使用TargetStream，并让用户知道正在编码多少数据作为控制台应用程序显示的进度。< / p>
我的问题是，怎么做？
请注意，我不想使用任何临时/额外的流进行此操作，我不能编辑StreamEncode功能。我甚至不能使用块，因为它是一个压缩项目，而且块会占用很多比例。