Download Fremskridt

kan man ikke bruge en progress bar da den har et xp look

Den har jeg før læst og det eneste jeg fandt ud af var hvordan man laver en progress bar der viser et fremskridt af ingenting

altså der er jo godt nok en progress bar men den viser jo ikke ligefrem hvor meget af filen man har hentet den viser bare hvor mange gange en timer er blevet udført Ja den gauge artikel er mildesttalt ubrugelige (Personlig fatter jeg ikke hvordan den kom med,... Skal der så også være en button artikel eller hvad ?)
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk
Jeg ved ikke lige om man kan med URLmon... men hvis du har indy så kan du bruge det her:

Du skal bruge en TIdHTTP, En gauge og en TIdAntiFreeze

Download knappen

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
 FStrm :  TFilestream;
begin
 FStrm := TFilestream.Create('c:\\downloaded.txt', fmCreate);
 Try
  IdHTTP1.Get('http://Host.dk/enfil.ext', FStrm);
 Finally
  Fstrm.Free;
 end;
end;

IdHttp'ens OnWorkBegin:

Kode 

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  Gauge1.MaxValue := AWorkCountMax; //AworkCountMax er så vidt jeg ved filens størrelse i Bytes.
end;

IdHttp'ens OnWork:

Kode 

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Gauge1.Progress := AWorkCount;
end;

Jeg har testet det og det virker skøno
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk





jeg får en eidprotocolexception når jeg prøver det

kan man ikke bruge en progress bar da den har et xp look

Jov, der skal du bruge Progressbar.Max istedet for Gauge.MaxValue og progressbar.position istedet for Gauge.Progress ...

Jeg kan ikke lige regne ud hvorfor du får fejlen, Hvornår får du fejlen ? Når du starter downloaden ? I såfald kan du jo prøve at smide kildekoden her!

har du pillet ved IdHttp'en ? Det skal du ikke ! lad den bare være som den er når du smider den på formen!

Smid lige URL'en til den fil du vil hente!
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

[Redigeret d. 22/06-03 17:04:37 af Elias (neuroman)]

her er koden

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,xptheme,urlmon, StdCtrls, ComCtrls, Gauges, IdAntiFreezeBase,
  IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    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.Button1Click(Sender: TObject);
var
 FStrm :  TFilestream;
begin
 FStrm := TFilestream.Create('c:\\downloaded.txt', fmCreate);
 Try
  IdHTTP1.Get('http://www.side.dk/fil.txt', FStrm);
 Finally
  Fstrm.Free;
 end;

 end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  progressbar1.Max := AWorkCountMax;
end;


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  progressbar1.Position := AWorkCount;
end;


end.

fejlen kommer når jeg trykker på knappen

[Redigeret d. 22/06-03 17:01:00 af BananJoe]

urlen til filen er
http://www.burn-it.dk/123.abc

[Redigeret d. 22/06-03 17:15:09 af BananJoe]

her er koden

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,xptheme,urlmon, StdCtrls, ComCtrls, Gauges, IdAntiFreezeBase,
  IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    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.Button1Click(Sender: TObject);
var
 FStrm :  TFilestream;
begin
 FStrm := TFilestream.Create('c:\\downloaded.txt', fmCreate);
 Try
  IdHTTP1.Get('http://www.side.dk/fil.txt', FStrm);
 Finally
  Fstrm.Free;
 end;

 end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  progressbar1.Max := AWorkCountMax;
end;


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  progressbar1.Position := AWorkCount;
end;


end.

fejlen kommer når jeg trykker på knappen

[Redigeret d. 22/06-03 17:01:00 af BananJoe]

urlen til filen er
http://www.burn-it.dk/123.abc

[Redigeret d. 22/06-03 17:15:09 af BananJoe]

Jeg ved simpelthen ikke hvad der er galt... hvilken version af delphi/indy bruger du ?
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

Skal der ikke stå:
ProgressBar1.Max := IdHTTP1.AWorkCountMax;
I stedet for:
ProgressBar1.Max := AWorkCountMax;

Og:
ProgressBar1.Position := IdHTTP1.AWorkCount;
I stedet for:
ProgressBar1.Position := AWorkCount;

mikl | mikl@mikl.dk | MSN: mikl@mikl.dk

det tror jeg ikke,
den gir ihvertfald en undeclared identifier fejl

her er koden

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,xptheme,urlmon, StdCtrls, ComCtrls, Gauges, IdAntiFreezeBase,
  IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    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.Button1Click(Sender: TObject);
var
 FStrm :  TFilestream;
begin
 FStrm := TFilestream.Create('c:\\downloaded.txt', fmCreate);
 Try
  IdHTTP1.Get('http://www.side.dk/fil.txt', FStrm);
 Finally
  Fstrm.Free;
 end;

 end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  progressbar1.Max := AWorkCountMax;
end;


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  progressbar1.Position := AWorkCount;
end;


end.

fejlen kommer når jeg trykker på knappen

[Redigeret d. 22/06-03 17:01:00 af BananJoe]

urlen til filen er
http://www.burn-it.dk/123.abc

[Redigeret d. 22/06-03 17:15:09 af BananJoe]
Jeg ved simpelthen ikke hvad der er galt... hvilken version af delphi/indy bruger du ?
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

delphi 7

Det er jo ikke det samme som en runtime error vel..?

Prøv at copy+paste fejlen!
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

er det muligt at komme uden om en firewall en router og en proxy uden at skulle ændre i dem
for urldownloadtofile kan jo godt

er det muligt at komme uden om en firewall en router og en proxy uden at skulle ændre i dem
for urldownloadtofile kan jo godt

jeg har fundet ud af det