Atualizar Sistema pela Internet
Boa tarde a todos..
Queria saber como faço para atualizar meu sistema pela internet.
Sempre estou atualizando meu site com o arquivo ProCompany.exe que e o executavel do meu sistema. Queria criar uma funcao para poder quando esta na internet fazer o donwload desse arquivo e copiar no meu micro..
ja vi uma funcao assim mas acho q nao estou acertando fazer..
function TForm1.DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
except
Result:= False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile (´http://www.infonet.com.br/ProCompany.exe´,´c:\ProCompany.exe´) then
ShowMessage(´Download Concluído.´);
end;
Hugo Junior
Queria saber como faço para atualizar meu sistema pela internet.
Sempre estou atualizando meu site com o arquivo ProCompany.exe que e o executavel do meu sistema. Queria criar uma funcao para poder quando esta na internet fazer o donwload desse arquivo e copiar no meu micro..
ja vi uma funcao assim mas acho q nao estou acertando fazer..
function TForm1.DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
except
Result:= False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile (´http://www.infonet.com.br/ProCompany.exe´,´c:\ProCompany.exe´) then
ShowMessage(´Download Concluído.´);
end;
Hugo Junior
Hugojunior
Curtidas 0
Respostas
Turbo Drive
02/12/2004
O Código está correto, mas lembre-se que vc tem que fazer uma rotnia para efetuar a troca.
Ex:
Ao terminar o download, o sistema deverá verificar se a versão ´baixada´ é superior a que está em execução. Se sim, este deverá se fechar sozinho, se matar e o novo assumirá o seu lugar. Pelo menos eu estou estudando, baseando-se nesta lógica. Vc tb precisará bolar uma rotina para fazer as atualizações nas outras máquinas da rede do seu clientes.
Outra coisa, ao atualizar o seu sistema, tb é necessário atualizar as tabelas do mesmo (dependendo do seu BD).
Espero ter ajudado e não complicado. :lol: :wink:
Ex:
Ao terminar o download, o sistema deverá verificar se a versão ´baixada´ é superior a que está em execução. Se sim, este deverá se fechar sozinho, se matar e o novo assumirá o seu lugar. Pelo menos eu estou estudando, baseando-se nesta lógica. Vc tb precisará bolar uma rotina para fazer as atualizações nas outras máquinas da rede do seu clientes.
Outra coisa, ao atualizar o seu sistema, tb é necessário atualizar as tabelas do mesmo (dependendo do seu BD).
Espero ter ajudado e não complicado. :lol: :wink:
GOSTEI 0
Hugojunior
02/12/2004
[quote:620d677d2c=´Turbo Drive´]O Código está correto, mas lembre-se que vc tem que fazer uma rotnia para efetuar a troca.
Ex:
Ao terminar o download, o sistema deverá verificar se a versão ´baixada´ é superior a que está em execução. Se sim, este deverá se fechar sozinho, se matar e o novo assumirá o seu lugar. Pelo menos eu estou estudando, baseando-se nesta lógica. Vc tb precisará bolar uma rotina para fazer as atualizações nas outras máquinas da rede do seu clientes.
Outra coisa, ao atualizar o seu sistema, tb é necessário atualizar as tabelas do mesmo (dependendo do seu BD).
Espero ter ajudado e não complicado. :lol: :wink:[/quote:620d677d2c]
Ex:
Ao terminar o download, o sistema deverá verificar se a versão ´baixada´ é superior a que está em execução. Se sim, este deverá se fechar sozinho, se matar e o novo assumirá o seu lugar. Pelo menos eu estou estudando, baseando-se nesta lógica. Vc tb precisará bolar uma rotina para fazer as atualizações nas outras máquinas da rede do seu clientes.
Outra coisa, ao atualizar o seu sistema, tb é necessário atualizar as tabelas do mesmo (dependendo do seu BD).
Espero ter ajudado e não complicado. :lol: :wink:[/quote:620d677d2c]
GOSTEI 0
Hugojunior
02/12/2004
Mesmo estando correto nao consigo baixar o arquivo
GOSTEI 0
Massuda
02/12/2004
O endereço que você está usando para teste
http://www.infonet.com.br/ProCompany.exe
é válido? No meu navegador dá erro 404... não encontrado.GOSTEI 0
Hugojunior
02/12/2004
Desculpe esta errado mesmo. Mas mesmo o caminho certo nao consegui
http://www.infonet.com.br/procompanysistemas/ProCompany.exe
este e o correto
Junior
http://www.infonet.com.br/procompanysistemas/ProCompany.exe
este e o correto
Junior
GOSTEI 0
Martins
02/12/2004
olá colega, já usei essa função e ela copia blzinha, vc tb poderá fazer uso da paleta de componente Delphi (FastNet), acredito q com alguns componentes de lá vc consiga o q quer.
GOSTEI 0
Ajmsistemas
02/12/2004
(´http://www.infonet.com.br/ProCompany.exe´,´c:\ProCompany.exe´) then
Hugo Junior
amigo... coloque assim que vc vai baixar..
(´http://www.infonet.com.br/ProCompany.exe´,´c:/ProCompany.exe´) then
falou...
GOSTEI 0
Brunobaco
02/12/2004
Ok, pra baixar vou testar esse código, mas um Turbo Drive disse ´
Como fazer isso?? Por favor, estou precisando muito de uma rotina assim.
Desde ja agradeço.
Bruno Augusto.
O Código está correto, mas lembre-se que vc tem que fazer uma rotnia para efetuar a troca.
Ex:
Ao terminar o download, o sistema deverá verificar se a versão ´baixada´ é superior a que está em execução. Se sim, este deverá se fechar sozinho, se matar e o novo assumirá o seu lugar. Pelo menos eu estou estudando, baseando-se nesta lógica. Vc tb precisará bolar uma rotina para fazer as atualizações nas outras máquinas da rede do seu clientes.
Como fazer isso?? Por favor, estou precisando muito de uma rotina assim.
Desde ja agradeço.
Bruno Augusto.
GOSTEI 0