Gerenciador Travando ao BAIXAR

[Dark*Stronger 74]

olá gente criei um gerenciador de downloads no delphi mais ai quando eu clico no button pra ele baixar o arquivo ele trava e depois de uns minutos ele para de travar e baixa o arquivo so que eu queria saber como resolver esse erro dele travar ao clciar em baixar?

[.:Luis:.™ 0]

Bola de cristau quebro jeral.

Posta o codigo ne amigo!

[iMelo~' 18]

Calma ae k

 

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

• Entre
• ou
• Cadastre-se

 

http://www.webcheats.com.br/forum/delphi-vb/672833-tutorial-criando-um-gerenciador-de-downloads-simples.html

[gaabscps 8]

Basta usar threads.

 

[video=youtube;WMJ2JWf44Us]

[Dark*Stronger 74]

mano axo que se erro a vidéo aula eu to usando um progressbar1 e 2 button 1 Idhtpp1 eu queria descogenlar a **** sem precisar de usar o sgauge

[gaabscps 8]

Não importa os componentes que vá usar.

Importa é usar a thread.

 

Adapte o conteúdo que a vídeo aula ensina (thread) as suas necessidades.

 

 

 

Veja a vídeo aula do começo ao fim que vai entender.

[iMelo~' 18]

Sugiro ler meu post acima os tópicos estão complexos ao entendimento do leitor

[.:fuu:. 17]

Usa thread, ele só trava pq tah fazendo um procedimento muito grande, utilize uma thread, para rodar o download , separado da sua app.

[gaabscps 8]

Sugiro ler meu post acima os tópicos estão complexos ao entendimento do leitor

 

Apenas usei uma linguagem que supõe que o leitor deve entender, de acordo com a dificuldade do programa que ele busca fazer.

Não tinha como simplificar o que eu disse.

[iMelo~' 18]

Entendo a video aula é util sim , querer tudo como é desejado nem sempre é o que é definido , Dark sugiro ver o video denovo que irá entender

[Dark*Stronger 74]

ainda nao intendi ja olhei varias vezes a videó

vou por o código do gerenciador tenta por o theared para min

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, XPMan, StdCtrls, Buttons, jpeg, ExtCtrls, sButton,

sGauge, sSkinProvider, sSkinManager, OleCtrls, SHDocVw, sPanel, Menus,

s*****, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdHTTP;

 

type

TForm1 = class(TForm)

sPanel2: TsPanel;

s*****FX1: Ts*****FX;

sButton4: TsButton;

IdHTTP1: TIdHTTP;

ProgressBar1: TProgressBar;

sSkinManager1: TsSkinManager;

procedure sButton4Click(Sender: TObject);

procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.sButton4Click(Sender: TObject);

var

rar,caminho : string;

MyFile: TFileStream;

begin

// definir o link

caminho:= '

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

• Entre
• ou
• Cadastre-se

// aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc

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

try

IdHTTP1.Get('

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

• Entre
• ou
• Cadastre-se

MyFile); // fazendo o download do arquivo

finally

MyFile.Free;

end;

end;

 

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

begin

ProgressBar1.Position := ProgressBar1.Max;

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

end;

 

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

begin

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

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

end;

 

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

begin

ProgressBar1.Position := AWorkCount;

end;

 

end.

[iMelo~' 18]

Porq nao facilita e usa meu tópico ou do gaab na pagina passada é melhor e rapidin

[Dark*Stronger 74]

man tenta fazer com o codigo que te passei ae por favor

[gaabscps 8]

O código que você postou não é de uma thread.

Você criou a thread??

Você tem que criar o componente em runtime

[iMelo~' 18]

O que tem de errado no codigo? Só falta alterar conforme sua FO-RM mandar '-'

[Dark*Stronger 74]

nao tem nada de errado so quero que ele pare de travar ao fazer download

[iMelo~' 18]

Faça um favor mande uma print e se possivel o projeto a mim pra eu ve se ta com erro

[Dark*Stronger 74]

aff mano se num intendeu eu quero que voce ponha o thread nesse código '-'

[gaabscps 8]

Ninguém vai (ou deveria) ficar dando código pronto.

Posta o código da thread que fez que irei falar onde errou e como concertar

[Dark*Stronger 74]

mano olha o codigo

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, XPMan, StdCtrls, Buttons, jpeg, ExtCtrls, sButton,

sGauge, sSkinProvider, sSkinManager, OleCtrls, SHDocVw, sPanel, Menus,

s*****, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdHTTP;

 

type

TForm1 = class(TForm)

sPanel2: TsPanel;

s*****FX1: Ts*****FX;

sButton4: TsButton;

IdHTTP1: TIdHTTP;

ProgressBar1: TProgressBar;

sSkinManager1: TsSkinManager;

procedure sButton4Click(Sender: TObject);

procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.sButton4Click(Sender: TObject);

var

rar,caminho : string;

MyFile: TFileStream;

begin

// definir o link

caminho:= '

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

• Entre
• ou
• Cadastre-se

// aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc

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

try

IdHTTP1.Get('

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

• Entre
• ou
• Cadastre-se

MyFile); // fazendo o download do arquivo

finally

MyFile.Free;

end;

end;

 

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

begin

ProgressBar1.Position := ProgressBar1.Max;

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

end;

 

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

begin

ProgressBar1.Position := 0;

ProgressBar1.Max := AWorkCountMax;

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

end;

 

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

begin

ProgressBar1.Position := AWorkCount;

end;

 

end.

[gaabscps 8]

Já disse que isso não é uma thread!

Você viu a vídeo aula que indiquei e montou a thread?

[iMelo~' 18]

Isto é o codigo que irá usar ao programa e nao a thread man '-'

[Dark*Stronger 74]

montei e agora oque eu faço?

[gaabscps 8]

Montou? Como assim? Basta chama-la, conforme a vídeo aula também ensinou

[iMelo~' 18]

Se voce montar ela e por tudo aqui eu posso até unir mas somente se estiver correta