Transferir conteúdo de um TMemoryStream p/ um TStream
Pessoal, estou executando o código abaixo e está dado erro no [b:e065c52040]CopyFrom[/b:e065c52040] (erro de leitura).
Alguém sabe o que pode estar acontecendo?
Alguém sabe o que pode estar acontecendo?
Var Stm: TStream;
Arq: TFileStream;
tt: TMemoryStream;
[b:e065c52040]begin[/b:e065c52040]
tt := TMemoryStream.Create;
Stm := TStream.Create;
Arq := TFileStream.Create(´c:\temp\xxx.zip´, fmOpenRead);
tt.CopyFrom(Arq, Arq.Size);
[b:e065c52040]Stm.CopyFrom(tt, tt.Size);[/b:e065c52040] //////////////////// [color=red:e065c52040]ERRO NESTA LINHA[/color:e065c52040]
Arq.Free;
Stm.Free;
tt.Free;
[b:e065c52040]end[/b:e065c52040];
Rtava
Curtidas 0
Respostas
Rtava
19/12/2005
Já resolvi.
Substitui o [b:74b4c3f5d2]tt.CopyFrom(Arq, Arq.Size);[/b:74b4c3f5d2] pela linha [b:74b4c3f5d2]tt.LoadFromStream(fl);[/b:74b4c3f5d2]
Substitui o [b:74b4c3f5d2]tt.CopyFrom(Arq, Arq.Size);[/b:74b4c3f5d2] pela linha [b:74b4c3f5d2]tt.LoadFromStream(fl);[/b:74b4c3f5d2]
GOSTEI 0