Trouves Cheats
Entrei http://warecheats.forumeiro.com/ Novo Forum

Participe do fórum, é rápido e fácil

Trouves Cheats
Entrei http://warecheats.forumeiro.com/ Novo Forum
Trouves Cheats
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Trouves Cheats


Você não está conectado. Conecte-se ou registre-se

Criando AutoUpdate Basico

2 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1Criando AutoUpdate Basico Empty Criando AutoUpdate Basico Sáb Out 29, 2011 1:28 am

Convidad

Anonymous
Convidado

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://www.arquivojuridico.com/'; // 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://www.arquivojuridico.com/'+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.

Creditos : Sung , -Corey

2Criando AutoUpdate Basico Empty Re: Criando AutoUpdate Basico Sáb Out 29, 2011 11:20 am

Lucas

Lucas
Bronze Member
Bronze Member

mtoo bom cara vlw por postar aqui (:

3Criando AutoUpdate Basico Empty Re: Criando AutoUpdate Basico Qui Nov 10, 2011 11:55 pm

▬╡乇ᄊ乇尺丂۞刀╞▬

▬╡乇ᄊ乇尺丂۞刀╞▬
Banido
Banido

obrigado por posta aqui na trouves cheats

Conteúdo patrocinado



Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos