Antes de copiar, vc ao menos verifica se o arquivo está em uso? Senão, veja o
código abaixo:
function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then
Exit;
HFileRes := CreateFile(
PChar(FileName),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;
Sds.
To: delphi-br@yahoogrupos.com.br
From: berdamzi...@yahoo.com.br
Date: Mon, 21 Sep 2009 13:06:39 -0700
Subject: [delphi-br] Copiar arquivo
Olá pessoal, estou com uma dúvida aqui.
Tenho um atualizador para atualizar os clientes. Estou copiando os arquivos
através do comando copyfile do delphi, que realiza a transferência do servidor
para a máquina do cliente.
Algumas pessoas me falaram que a cópia por Tstream é melhor.
Alguém tem alguma resposta a respeito disso.??
As vezes o método padrão do delphi (copyfiile (origem,destino)) não realiza a
cópia.
Acredito que também deva ser a rede do cliente que esteja congestionada.
----------------------------------------------------------
Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados - Unoesc Xanxerê
.
_________________________________________________________________
Você sabia que o Hotmail mudou? Clique e descubra as novidades.
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
[As partes desta mensagem que não continham texto foram removidas]
