Efetuar cópias de arquivos
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
Curtidas 0
Respostas
Koplin
26/06/2004
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;
GOSTEI 0