Download stor fil fra nettet.

Flashget kan hentes gratis fra den berømte hjemmeside som alle kender nemlig google :D

Flashget holder din downloads igang Dvs, mister du internetforbindelsen og er noget til 54% jamen så "Pauser" den din downloads og forsætter automatisk når der er net igen,

Hvis nogle af dem fryser betyder det vel at du kører downloaden blocking i event tråden.

Hvis du starter en separat tråd til det burde din GUI stadig svare.

Jeg downloader jævnlig filer på 50-70 MB uden problemer.
Her et par uddrag af koden.

procedure TForm97.DownLoad(Source, Dest: String);
begin  // http://www.eksperten.dk/spm/676435.
  try
    IdFTP.Host    := Global.HentNogleVardi('wwwHjemmeside'); 
    IdFTP.Username := Global.HentNogleVardi('wwwBrugernavn'); 
    IdFTP.Password := Global.HentNogleVardi('wwwAdgangskode'); 
    IdFTP.Connect;
    IdFTP.ChangeDir('/www/udsendelser/'); //skift evt. dir
    FilLen := IdFTP.Size(Source);
    ProgressBar1.Max := FilLen;
    Application.ProcessMessages;
    StartTid := Time;
    TickStart := GetTickCount;
    IdFTP.Get(Source, Dest, True);
    IdFTP.Disconnect;
    Label2.Caption := 'Færdig ' + IntToStr(SecondsBetween(Time, StartTid)) + ' sekunder.';
  except
    on E: Exception do
    begin
      Application.MessageBox(PChar('Der er opstået en fejl. Fejl: '+E.Message),'Fejl',MB_OK or MB_ICONERROR);
    end;
  end;
end;

Så sætter jeg en event på IdFtp OnWork

procedure TForm97.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  Rest: Real;
begin
  ProgressBar1.Position := AWorkCount;
  try
    Rest := (FilLen - AWorkCount) / (AWorkCount / SecondsBetween(Time, StartTid));
  except
    on E: Exception do
      Rest := 0;
  end;
  DlCount := DlCount + 1;
  DlRest := DlRest + Rest;
  if (GetTickCount - TickStart) >= 1000 then // For hvert sekund
  begin
    Label2.Caption := 'Forventet resterende tid: ' + IntToStr(Round(DlRest / DlCount)) + ' sekunder';
    TickStart := GetTickCount;
    DlRest := 0;
    DlCount := 0;
    Label3.Caption := IntToStr(AWorkCount) + ' af ' + IntToStr(FilLen) + ' bytes overført.';
    Application.ProcessMessages;
  end;
end;

Læg mærke til tredie sidste linie:   
    Application.ProcessMessages;
Den sørger for at programmet ikke fryser.

Jeg har en ProgressBar som opdares med:
  ProgressBar1.Position := AWorkCount;

Resten at rutinen viser brugt og forventet resterende tid.

# julemandenb - læs topic ;)

# arne_v - hvordan gør man lige det?

# anton_kruse_andersen - det er kun til ftp via username/password. Det jeg skal bruge er til http.

Det kan ikke lade sig gøre - lukker.

Du kan godt downloade i en separat tråd.

Mnej.... har prøvet på så mange måder nu, at jeg må konkludere, at det ikke kan lade sig gøre fra min specifikke side.