怎样将多个TStream类型的数保存到一个文件中,然后又从这个文件把它们分别读出来?高分相送!!!

[Happyledian]

例如:
procedure Export;
var
ms1,ms2,ms3:TMemoryStream;
begin
ms1:= TMemoryStream.Create;
ms2:= TMemoryStream.Create;
ms3:= TMemoryStream.Create;
ClientDataSet1.SaveToStream(ms1);
ClientDataSet2.SaveToStream(ms2);
ClientDataSet3.SaveToStream(ms3);
...
保存Stream到文件'c:\temp.dat'
...

end;

procedure Import;
var
ms1,ms2,ms3:TMemoryStream;
begin
ms1:= TMemoryStream.Create;
ms2:= TMemoryStream.Create;
ms3:= TMemoryStream.Create;
...
从'c:\temp.dat'读出stream;
...
ClientDataSet1.LoadFromStream(ms1);
ClientDataSet2.LoadFromStream(ms2);
ClientDataSet3.LoadFromStream(ms3);

end;

请高手赐教!

[scripting]

做一个自定义文件结构。第一个integer指示有n个stream,然后,随后n个integer表示各stream的size，随后就是第一个stream的首地址，.....比较麻烦但是很有实际意义。

[Happyledian]

老兄,搞不懂.能不能给出例子,麻烦了.

[shinesi]

保存到文件中：先计算每一个内存块的大小，以两个字节来保存，

procedure Export;
var
ms1,ms2,ms3:TMemoryStream;
fs: TFileStream;
buf: PChar;
Size: DWord;
begin
ms1:= TMemoryStream.Create;
ms2:= TMemoryStream.Create;
ms3:= TMemoryStream.Create;
ClientDataSet1.SaveToStream(ms1);
ClientDataSet2.SaveToStream(ms2);
ClientDataSet3.SaveToStream(ms3);
...
保存Stream到文件'c:\temp.dat'

fs := TFileStream.Create('c:\temp.dat',fmOpenWrite);
Size := ms1.size;
GetMem(Buf,size);
ms1.read(Buf,Size);
fs.write(Size,4);
fs.write(Buf,size);
Freemem(buf);
Size := ms2.size;
GetMem(Buf,size);
ms2.read(Buf,Size);
fs.write(Size,4);
fs.write(Buf,size);
Freemem(buf);
Size := ms3.size;
GetMem(Buf,size);
ms3.read(Buf,Size);
fs.write(Size,4);
fs.write(Buf,size);
Freemem(buf);
...

end;

procedure Import;
var
ms1,ms2,ms3:TMemoryStream;
begin
ms1:= TMemoryStream.Create;
ms2:= TMemoryStream.Create;
ms3:= TMemoryStream.Create;
...
从'c:\temp.dat'读出stream;
按上面的顺序度出来
...
ClientDataSet1.LoadFromStream(ms1);
ClientDataSet2.LoadFromStream(ms2);
ClientDataSet3.LoadFromStream(ms3);

end;

[Happyledian]

老兄我先调试一下.呵呵~~~

[Happyledian]

procedure Import;
begin
...
fs := TFileStream.Create('c:\temp.dat',fmOpenRead);
ms := TMemoryStream.Create;
fs.Read(Size,4);
GetMem(buf,size);
fs.Read(Buf,size);
ms.SetSize(Size);//运行时报错!如果不要此句,则下句出错!
ms.Write(Buf,size);
MainForm.CDataSet.LoadFromStream(ms);
Freemem(buf);
...
end;

[shinesi]

写错了
fs := TFileStream.Create('c:\temp.dat',fmOpenWrite);
Size := ms1.size;
GetMem(Buf,size);
ms1.read(Buf^,Size);
fs.write(Size,4);
fs.write(Buf^,size);
Freemem(buf);

[Happyledian]

是在export中吗？那import怎么写？