atualização automatica de sistema
bom dia
imaginem a seguinte situação, vc cria um sistema e instala em diversos micros ...
vc faz uma atualização e precisa ir de micro em micro para que todos fiquem com a versão nova ...
pergunto
tem como eu colocar a versão nova em um servidor e toda vez que o usuario for acessar o que está em seu micro, o proprio sistema compara o numero da versão do micro e o do servidor, e faz a atualização automaticamente em caso de divergencia de versão ????
imaginem a seguinte situação, vc cria um sistema e instala em diversos micros ...
vc faz uma atualização e precisa ir de micro em micro para que todos fiquem com a versão nova ...
pergunto
tem como eu colocar a versão nova em um servidor e toda vez que o usuario for acessar o que está em seu micro, o proprio sistema compara o numero da versão do micro e o do servidor, e faz a atualização automaticamente em caso de divergencia de versão ????
Arc
Curtidas 0
Respostas
Alex Maia
06/09/2006
Tem amigo. Tenho um que realiza a atualização via http. No servidor http eu guardo dois arquivos: um um .txt com o numero da versão e o .exe.
Com isso, eu baixo o .txt, comparo a versão e depois faço a atualização, se for necessária.
Com isso, eu baixo o .txt, comparo a versão e depois faço a atualização, se for necessária.
GOSTEI 0
Raserafim
06/09/2006
é desaconcelhado utilizar o executável apenas no servidor e as máquinas clientes utilizarem apenas um link para abrir o executável?
desta forma não se teria o problema das atualizações.
desta forma não se teria o problema das atualizações.
GOSTEI 0
Arc
06/09/2006
ok Alex, mas como seria essa atualização, existe algum comando que faça isso
aqui na empresa temos um servidor web, é linux
temos outros servidores com windows 2000
aqui na empresa temos um servidor web, é linux
temos outros servidores com windows 2000
GOSTEI 0
Alex Maia
06/09/2006
Cara. Vou te dar uma dica: tem esta função pra baixar do endereço http:
function DownloadFile(Origem, Destino: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(Origem), PChar(Destino), 0, nil) = 0;
except
Result := False;
end;
end;
Se existir o endereço ele baixa, caso contrario ele retorna falso.
function DownloadFile(Origem, Destino: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(Origem), PChar(Destino), 0, nil) = 0;
except
Result := False;
end;
end;
Se existir o endereço ele baixa, caso contrario ele retorna falso.
GOSTEI 0
Paullsoftware
06/09/2006
despois que seu sistema estiver atualizado no servidor da rede local, vc pode usar esses passos para verificar a versão do mesmo e mandar para todas as ESTAÇÕES DE TRABALHO...
[url]http://forum.clubedelphi.net/viewtopic.php?t=76128[/url]
espero ter ajudado :wink:
[url]http://forum.clubedelphi.net/viewtopic.php?t=76128[/url]
espero ter ajudado :wink:
GOSTEI 0