Fórum Atualizar Sistema pela Internet #260983

02/12/2004

0

Delphi

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


Hugojunior

Hugojunior

Responder

Posts

02/12/2004

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:


Responder

Gostei + 0

02/12/2004

Hugojunior

[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]


Responder

Gostei + 0

02/12/2004

Hugojunior

Mesmo estando correto nao consigo baixar o arquivo


Responder

Gostei + 0

02/12/2004

Massuda

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.


Responder

Gostei + 0

03/12/2004

Hugojunior

Desculpe esta errado mesmo. Mas mesmo o caminho certo nao consegui

http://www.infonet.com.br/procompanysistemas/ProCompany.exe

este e o correto

Junior


Responder

Gostei + 0

03/12/2004

Martins

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.


Responder

Gostei + 0

16/03/2005

Ajmsistemas

(´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...


Responder

Gostei + 0

03/05/2005

Brunobaco

Ok, pra baixar vou testar esse código, mas um Turbo Drive disse ´
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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar