download i delphi

Læg det i en Thread, eller brug Indy!!

ok... har du noget kode til indy

uses
  IdHTTP, Classes;

procedure Download(URL, Dest: String);
var
  idh: TIdHTTP;
  fs: TFileStream;
begin
  idh := TIdHTTP.Create(nil);
  fs := TFileStream.Create(Dest, fmCreate);
  idh.Get(URL, fs);
  fs.Free;
  idh.Free;
end;

Start derfra... Det var hvad jeg lige kunne huske...

hermandsen>> Det glæder mig meget at se dig rige en tur på min kæphest :

Først siger du tråde til manden, så siger du INDY !!!

Dagens hest !!!

Jens b

den fryser stadig

Hehe... Vi lærer jo noget hele tide, borrisholt! ;)

>>mysitesolution
Smid en IdAntiFreeze-komponent på!

den gør det stadig en lile smule

Så smid det i en tråd!!

type
  THesteArbejde = class(TThread)
  private
    FURL: String;
    FDest: String;
    FOnComplete: TNotifyEvent;
  protected
    procedure Execute; override;
  public
    procedure Download(URL, Dest: String);
    property OnComplete: TNotifyEvent read FOnComplete write FOnComplete;
  end;

procedure THesteArbejde.Download(URL, Dest: String);
begin
  FURL := URL;
  FDest := Dest;
  Resume;
end;

procedure THesteArbejde.Execute;
var
  idh: TIdHTTP;
  fs: TFileStream;
begin
  idh := TIdHTTP.Create(nil);
  fs := TFileStream.Create(FDest, fmCreate);
  idh.Get(FURL, fs);
  fs.Free;
  idh.Free;
  FOnComplete(Self);
  Free;
end;


Så trykker du bare på en knap eller noget:

private
  Hest: THesteArbejde;
public
  procedure HestenSkalSove(Sender: TObject);

procedure TOverSuperHesteForm.MinPonyKnapTryk(Sender: TObject);
begin
  Hest := THesteArbejde.Create(True);
  Hest.OnComplete := HestenSkalSove;
  Caption := 'Jeg er altså lige ved at hente, men du fortsætter bare dit arbejde!';
  Hest.Download('http://ebruger.dk/img/ebruger_logo.gif', ExtractFilePath(Application.ExeName) + 'hestefil.hest');
end;

procedure TOverSuperHesteForm.HestenSkalSove(Sender: TObject);
begin
  Caption := 'Nu har jeg hestet færdigt!! God nat!!';
end;


Og alt det uden at starte Delphi... Det er sgu da meget godt klaret! :)

Til dem der brokker sig, ja jeg ved godt at man skal bruge Synchronize når man bruger Threads på VCL, men nu vil jeg snart i gang med mit hestePHP!!!

//hermandsen

Jeg ville nærmer brokke mig over at en Tråd ALLEREDEhar et event til at fortælle hvornår den er færdig : OnTerminate.

Og hvad så med at fortælle manden hvordan, man beregner progress. Du ved download hastighed, og hvornår den er færdig etc.

Jens B

Arh Jens...

Så skal jeg jo næsten til at starte Delphi! :)

laver du det ikke som et projekt og ligger det op som zip, så acceptere jeg dig

Nej!

Hvorfor... jeg forstår ikke helt koden... så er det lettere med projekt

Hvis du ikke forstår koden, så ville det nok være bedre med en bog først!!
At downloade filer bør ikke være et projekt man starter med!!

Desuden lærer du ikke noget selv, hvis jeg bare koger noget sammen til dig!!
Derfor, nej!!

mysitesolution -> Du skal nok til at træde varsomt hvis du fortsat vil bruge Eksperten til det Eksperten er bedst til: På næsten ingen tid få svar på svære spørgsmål fra andre mennesker der GRATIS ønsker at hjælpe andre med deres IT-problemer, kun belønnet med såkaldte points.

Du vil nok blive ignoreret i fremtiden, hvis ikke du forbedrer dig og viser lidt mere respekt over for dem der prøver at hjælpe...

Sorry... jeg sprurgte bare om han ville.... men nu har han fået point, tak hermandsen