[DELPHI]Criando AutoUpdate Basico

[mateus007mts 4]

Download com idHTTP e ProgressBar.

 

1- Inicie um novo projeto : File / New / VCL Form Aplication;

 

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

 

3- No evento OnClick do Button coloque o código abaixo:

 

var

arquivo,caminho : string;

MyFile: TFileStream;

begin

// definir o link

caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc

arquivo:= edit1.text; // nome do arquivo para download

MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar.

try

IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo

finally

MyFile.Free;

end;

 

4- No evento OnWork do idHTTP1:

 

ProgressBar1.Position := AWorkCount;

 

5- No evento OnWorkBegin do idHTTP1:

 

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

Label1.caption := 'Download em andamente, espere!';

6- No evento OnWorkEnd do idHTTP1:

ProgressBar1.Position := ProgressBar1.Max;

Label1.caption := 'Download Concluído!';

7- Agora dê F9, e teste a aplicação.

 

Créditos : Song.

[The°Hacker 6]

Boa iniciativa maninho, vai ajudar bastante gente... Obrigado !

[SuperFelipe1903 1]

Ajuda Please

 

tem como você fazer uma video-aula é que eu so meio nub pra negocio de Update :(

[mateus007mts 4]

ok, em breve farei uma ensinando detalhadamente...

[lazanhaster 44]

cara isso e como um PatcheR? , po dps tem como fazer um mas avançado ? rs.. vlw !

[DeexTTer 0]

legal d + , você acha

que seria possivel trasformar este codigo em um Gerenciador de

Downloads?

se sim poderia me enviar a source?

obg ^^

[mateus007mts 4]

Acho que não dá pra transforma em um gerenciador de downloads...

 

mais vou ensinar a por novos updates é muito facil,basta você copiar essas 2 linhas :

 

IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo

MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar.

 

Irar ficar mais ou menos assim :

 

var

arquivo,caminho : string;

MyFile: TFileStream;

begin

// definir o link

caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc

arquivo:= edit1.text; // nome do arquivo para download

MyFile := TFileStream.Create('C:'+teste1, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar.

MyFile := TFileStream.Create('C:'+teste2, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar.

try

IdHTTP1.Get('http://127.0.0.1/'+teste1, MyFile); // fazendo o download do arquivo

IdHTTP1.Get('http://127.0.0.1/'+teste2, MyFile); // fazendo o download do arquivo

finally

MyFile.Free;

end;

 

e assim por diante..

 

[mateus007mts 4]

Olá sou um NEWUSER , mais entendo um pouco de delphi, gostaria de saber se somente da para fazer update quem tem sites pagos , ou sabe algum servidor FREE ?

 

ATT,

'Losc~

 

Mano não entendi direito sua pergunta, poderia explicar melhor?

[•Jiyoan 0]

Cara ta bom o Tópico, mais ceria mais fácil de intender com uma video-aula.

[Zaum 9]

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

Label1.caption := "Download em andamente, espere!";

 

6- No evento OnWorkEnd do idHTTP1:

 

ProgressBar1.Position := ProgressBar1.Max;

Label1.caption := "Download Concluído!";

 

Na verdade seria:

 

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

Label1.caption := 'Download em andamente, espere!';

 

6- No evento OnWorkEnd do idHTTP1:

 

ProgressBar1.Position := ProgressBar1.Max;

Label1.caption := 'Download Concluído!';

 

, uma ' ao envés de ", " é VB

[-DarkLink- 1]

Tipo gostaria de fazer o update mais onde eu faço um servidor pra colocar os link para download ??

 

Um erro !

 

Aqui ele eu click la no idHTTP depois em evento dai la em onWork eu click 2 vezes mais dai da erro de procedure porque ???????

[lenon321 0]

Tipo gostaria de fazer o update mais onde eu faço um servidor pra colocar os link para download ??

 

Um erro !

 

Aqui ele eu click la no idHTTP depois em evento dai la em onWork eu click 2 vezes mais dai da erro de procedure porque ???????

 

Aqui tbm deu um erro mas ja resolvi, me diga o erro, se for igual ai posso te ajudar.

[rodiias 7]

@'Losc~

Existe sim, o problema é que algumas hospedagens não aceita algumas extenções de arquivos, como .dll, entre outras, mais procure na net

por hospedagem gratis, e você irar achar um monte, não posso te indicar uma pois não mecho mais com isso, quando eu mechia, usava servidor pago

pois conhecia o dono da empresa ._.

[CURIRIN107 1]

Isto não é bem um "AutoUpdate".

Ele é um arquivo que baixa outros arquivos para o client.

Um AutoUpdate Teria:

# Componente DFUnrar (WinRar)

# IdHTTP

# Verificação de atualizações que seria: ExtractStrings([';'], [' '],pchar(Linha), linhas);

# Arquivos que comprovam a atualização.

 

Seria mais ou menos assim:

1: ExtractStrings([';'], [' '],pchar(Linha), linhas); verifica se existe atualizações baixando um arquivos de um servidor externo.

2: Se houver, idHTTP baixa os arquivos em formato RAR

3: DFUnrar Descompacta e libera o aplicativo.

 

Eu estou fazendo um projeto assim, se alguém me ajudar eu solto ele aqui, tou com um probleminha bobo

http://www.webcheats.com.br/forum/programacao-duvidas-ajuda/1205094-delphi-problemas-com-windows.html#post4937296

Valeu.

[morointer 0]

Amei mano...

 

Otima iniciativa me ajudou muito levou thank's

 

Abraço!

[willh62mito 0]

Véi não entendi nada seria melhor com um vídeo

[brendonju 0]

aff closed aki isso ja foi postado akie faz tempo noob copiador

[mateus007mts 4]

Já foi postado ? noob é você seu lixo, se foi postado mostra o topico e outra eu pesquisei e não achei.

 

Quem é voce pra fala que sou noob e copiador ? seu LIXO que não deve saber nem criar orkut.

[†Đєαтн- 0]

Olá sou um NEWUSER , mais entendo um pouco de delphi, gostaria de saber se somente da para fazer update quem tem sites pagos , ou sabe algum servidor FREE ?

 

ATT,

'Losc~

 

Não entendi muito bem mais aqui vai uma dica boa,usa o Brazius (clique no nome para acessar) você tem tudo de um site pago nele,até email personalizado [email protected] pode 5 emails a unica coisa e que você não tem um espaço enorme de 100 á 500 GBs como os pagos mais fora isso ele e 100% igual,eu uso e muito bom! ^^

 

@topic

Vlw man ja ate sei onde usar! ^^