Z zuoc Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #1 将N个数据集SaveToStream为N个TStream，如何将N个TStream合并为一个TStream并且可以 从这个TStream中LoadFromStream指定的第I个TStream。请教。
C clip_on Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #2 还不如放到一个List里边。不然肯定要有专门记录每个子Stream开始位置和长度的代码。
Z zuoc Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #3 请教合并和分解TStream的问题，不需要其它建议。谢谢！
I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #4 http://www.delphibbs.com/keylife/iblog_show.asp?xid=16514 这是我以前写的一个东西.你可以参考一下.里面的内容可以解决你的问题.
Z zuoc Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #5 谢谢iseek看了你的代码，有点复杂，要花时间研究，我对TStream不太熟悉，如果能有简单的方法解决我的问题就好了。
I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-12 #6 那是一个类,你可以直接用.可以选择不生成文件.给你写几句： var stm:TStreamPack; stm:=TStreamPack.Create; stm.AddAData(ID1, '.txt',ms1);//文件后缀你空着也行.ms1是你加入的流 stm.AddAData(ID2, '.gif',ms2); ...... stm.SaveToStream(ds);//这个ds就是你合并的流. stm.Free; -------------------------------------------- stm:=TStreamPack.Create; stm.LoadFromStream(ds,''); //i:=IDExists(ID);//如果你不知道i是多少,可以通过ID得到i值. stm.ReadAData(i,ms);//这个ms就是你要读出的合并流里的第i个流 stm.Free;
那是一个类,你可以直接用.可以选择不生成文件.给你写几句： var stm:TStreamPack; stm:=TStreamPack.Create; stm.AddAData(ID1, '.txt',ms1);//文件后缀你空着也行.ms1是你加入的流 stm.AddAData(ID2, '.gif',ms2); ...... stm.SaveToStream(ds);//这个ds就是你合并的流. stm.Free; -------------------------------------------- stm:=TStreamPack.Create; stm.LoadFromStream(ds,''); //i:=IDExists(ID);//如果你不知道i是多少,可以通过ID得到i值. stm.ReadAData(i,ms);//这个ms就是你要读出的合并流里的第i个流 stm.Free;
