Array
(
)

Transferir conteúdo de um TMemoryStream p/ um TStream

Rtava
   - 19 dez 2005

Pessoal, estou executando o código abaixo e está dado erro no CopyFrom (erro de leitura).

Alguém sabe o que pode estar acontecendo?


Citação:
Var Stm: TStream;
Arq: TFileStream;
tt: TMemoryStream;
begin

tt := TMemoryStream.Create;
Stm := TStream.Create;
Arq := TFileStream.Create(´c:\temp\xxx.zip´, fmOpenRead);

tt.CopyFrom(Arq, Arq.Size);
Stm.CopyFrom(tt, tt.Size); //////////////////// ERRO NESTA LINHA

Arq.Free;
Stm.Free;
tt.Free;

end;



Rtava
   - 19 dez 2005

Já resolvi.

Substitui o tt.CopyFrom(Arq, Arq.Size); pela linha tt.LoadFromStream(fl);