Transferir conteúdo de um TMemoryStream p/ um TStream

19/12/2005

0

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

Rtava

Responder

Posts

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar