Criando um Atualizador para seus programas.

[NoSlake 56]

Atualizador para seus Programas.

 

Bom, esse aplicativo é muito útil pra você não ficar indo de computador em computador quando vender seus programas, seja em C, C++ etc, esse é somente o atualizador. Que servirá para outras coisas também :yes:

 

Primeiro, vamos adicionar os componentes, Eu estarei usando Delphi7.

 

1 Page Control.(Win32) Crie uma aba e nomeie-a de LOG.

Adicione 2 Buttons(Solicitar Atualização), e outro (Enviar Logs (Fechar));

1 Timer, IdHTTP1(IndyClients) (propriedade Host, coloque seu site, e o local onde vai pegar os programas para atualizar(pasta), eu usei

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

);

Adicionei 3 .ini nessa pasta no site:

Hook.ini (versão do arquivo, você deve mudar isso, toda vez que achar que tem que fazer uma atualização)

Hookatt.ini (adicione o nome do arquivo dentro desse ini, deixei att.txt como exemplo)

Crie um arquivo para baixar, o nome dele deve estar no HookAtt.ini ( usei att.txt).

 

// Para adicionar mais programas apenas crie outro .ini, com e adicione o nome no ListBox 1 e 2.

 

1 Button extra para fechar.

1 Memo;

Crie um arquivo chamado 'ips.ini' na pasta do atualizador, será o log.

 

Ficará assim:

 

 

 

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

 

 

 

Criei outra aba no TPageControl, denominada Configurações.

Adicionei 1 Lab.el Caption: para IP: e um Edit Vazio.

Adicionei um Button Caption para Configurar IP

2 Lab.els e 2 ListBox, E adicione os itens no listbox. Eu usarei Hook como exemplo.

No Segundo ListBox eu adicionei \Hook por exemplo, pois seria a pasta.

Adicionei 3 Memos de Visible := False, e nomeei-os para Meemo1 (para não atrapalhar os memos.)

Adicionei 2 Edits, Com o Text := Configure o Programa. E Visible False.

Adicionei 1 Lab.el e Renomeei-o de DataLab.el para não atrapalhar, deixei o Caption Vazio. E Visible False.

 

 

 

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Programando.

 

No Button3 Eu adicionei somente application.Terminate, para caso bugar eu teria como fecha-lo.

 

No Evento Form1.OnCreate

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E no Close:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

No Solicitar atualização eu usei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No Enviar Logs eu usei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Adicionei um Timer e no Ontimer usei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Na PAGE 2

No Configurar ip eu usei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No OnClick do ListBox1 eu usei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No listbox 2 eu usei

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Nas uses utilizei:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Utilizei a função abaixo do {S$ .dfm}

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[slipnho 1]

boa vou ultilizar isso em um projeto futuro obrigado por compartilhar com agente

[4444leozinho4444 0]

Ótimo tutorial parabéns

[loucoporexpertv1 0]

vlw ae

[DarkSoulx 0]

Ótimo tutorial parabéns por ter feito e ganhado o evento.