Fórum Efetuar cópias de arquivos #239940
26/06/2004
0
E aí pessoal, blz??
Seguinte, preciso efetuar a cópia de um arquivo de imagem pra um endereço temporário pro user efetuar mudanças, e pra usar em um BD, como faço cópias de arquivos sem que o user perceba? Somente ele abrindo um arquivo desejado e depois fica abstrato pra ele onde está o arquivo...
Seguinte, preciso efetuar a cópia de um arquivo de imagem pra um endereço temporário pro user efetuar mudanças, e pra usar em um BD, como faço cópias de arquivos sem que o user perceba? Somente ele abrindo um arquivo desejado e depois fica abstrato pra ele onde está o arquivo...
Edgartanaka
Curtir tópico
+ 0
Responder
Posts
26/06/2004
Koplin
Adeque este código a sua necessidade:
Procedure CopiaArquivo( Const origem, destino: String );
Var S, T: TFileStream;
Begin
S := TFileStream.Create( origem, fmOpenRead );
try
T := TFileStream.Create( destino, fmOpenWrite or fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
end;
Procedure CopiaArquivo( Const origem, destino: String );
Var S, T: TFileStream;
Begin
S := TFileStream.Create( origem, fmOpenRead );
try
T := TFileStream.Create( destino, fmOpenWrite or fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)