TStream, como escrever 2 ou mais DataSets num mesmo stream??

Delphi

04/03/2005

Caros,

como posso escrever dois ou mais DataSets no mesmo Stream (é possivel ???) ???

Algo do tipo:

meuStream := TStream.Create;

table1.SaveToStream(meuStream);
table2.SaveToStream(meuStream);

Sem perder os dados já gravados no stream!!!

Estou precisando disso meio urgente,

[],
Rodrigo


Rdf

Rdf

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

04/03/2005

coloque mais um Stream auxiliar

Table1.SaveToStream(StreamTemp);
Stream.CopyFrom(StreamTemp);
Table2.SaveToStream(StreamTemp);
Stream.CopyFrom(StreamTemp);


Não se se o CopyFrom só copia a outra Stream e adiciona no fim dela, ou apaga o conteúdo e copia a nova, se ela só adicionar, ai deve funcionar, não tenho certeza disso.


GOSTEI 0
POSTAR