Transferir conteúdo de um TMemoryStream p/ um TStream

19/12/2005

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?

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

Respostas

19/12/2005

Rtava

Já resolvi.

Substitui o [b:74b4c3f5d2]tt.CopyFrom(Arq, Arq.Size);[/b:74b4c3f5d2] pela linha [b:74b4c3f5d2]tt.LoadFromStream(fl);[/b:74b4c3f5d2]


Responder Citar