Fórum Como copiar arquivo via TCP/IP da rede interna #371235
15/06/2009
0
Gostaria de um exemplo de como copiar um arquivo via tcp/ip de um computador da rede para o servidor ou vice-versa. O ojetivo é fazer um atualizador automático de aplicativo. Vi um exemplo no forum, mas não funciona com a versão indy 10 e não conseguir fazer funcionar com a versão 9.
Desde ja agradeço.
Siro
Curtir tópico
+ 0Posts
02/08/2009
Siro
Gostei + 0
04/08/2009
Diegotiemann
function CopyData(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
if FileExists(fromDir) then
begin
//se o arquivo de destino existir
if FileExists(toDir) then
DeleteFile(toDir); //ele é apagado
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir);
end;
end;
Result := (0 = ShFileOperation(fos));
end;
No parametro fromDir você \\outroPC\pastaCompartilhada\seuarquivo.exe
Gostei + 0
05/08/2009
Siro
Obrigado por sua atenção, mas não é isto.
Preciso fazer uma copia do executavel sem que haja o compartilhamento da pasta.
Siro.
Gostei + 0
05/08/2009
Diegotiemann
Acho difícil que isso seja possível sem compartilhamento de pasta. Pois onde fica a segurança do windows se isso é possível?
Gostei + 0
05/08/2009
Siro
Explicando melhor..
Imagine vc ter que atualizar varios computadores dentro de uma rede interna... Gostaria que fazer com que quando o executavel fosse atualizado no ´servidor´ os outros computadores (´clientes´) ao executar o aplicativo, verificassem a versão que existe no servidor e fizesse a atualização automatica (como se fosse um download).
Acho que me expressei mal ao dizer ´compartilhamento´, minha intenção era dizer ´sem mapear a pasta´.
Como já disse, existe um exemplo aqui o site, mas foi feito com Indy 9, e infelizmente eu não tenho conhecimento para fazer as alterações para funcionar com o IndY 10. O exemplo esta aqui https://www.devmedia.com.br/articles/viewcomp.asp?comp=6333
Mais uma vez, obrigado por sua atenção.
Siro
Gostei + 0
05/08/2009
Diegotiemann
Acho que ele vai atender a tua necessidade.
Pra ele funcionar, não precisa ter mapeamento de unidade, mas a pasta do servidor deve estar compartilhada.
Gostei + 0
05/08/2009
Diegotiemann
Acho que ele vai atender a tua necessidade.
Pra ele funcionar, não precisa ter mapeamento de unidade, mas a pasta do servidor deve estar compartilhada.
Gostei + 0
05/08/2009
Diegotiemann
https://www.devmedia.com.br/articles/viewcomp.asp?comp=13870
Só a formatação do mesmo ficou bem estranha.
Gostei + 0
05/08/2009
Diegotiemann
https://www.devmedia.com.br/articles/viewcomp.asp?comp=13875
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)