Download via FTP

http://www.delphigroups.info/2/5/196132.html

Trin 1.
Sæt en progressBar på din form.

Trin2.
Globale variabler.
var
  FilLen: LongInt;
  StartTid: TDateTime;
  DlRest, DlCount: Real;
  TickStart: Cardinal;

Trin 3.
På dit IdFTP komponent, i Object Inspector, indsætter du "IdFTPWork" i feltet OnWork.

Det giver:
procedure TForm.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;

Problemet ligger åbenbart i at man ikke kan regne med at aWorkCountMax indeholder den rigtige værdi når FTP begynder.
Man er derfor nødt til at snyde og finde størrelsen på filen på anden vis
(som beskrevet i link fra kroning - så et svar)

Her er et par udpluk af min løsning som nu ser ud til at virke efter hensigten.

  FileCount := idFTP.DirectoryListing.Count;
  try
    for intX := 0 To FileCount - 1 do
      begin
        if idFTP.DirectoryListing.Items[intX].ItemType = ditFile then
        begin
          FileName := idFTP.DirectoryListing.Items[intX].FileName;
          if FileName = Settings.Runtime.FileRemote then
            begin
              barProgress.Max := idFTP.DirectoryListing.Items[intX].Size;
              try
                idFTP.Get(FileName, Settings.Ftp.FolderLocal + FileName, True);
                Log('FTP download: '+ FileName);
              except
                Log('Error getting file: ' + FileName);
              end;
            end;
        end;
      end;
  finally
    idFTP.Abort;
    idFTP.Disconnect;
  end;

procedure TfrmMain.idFTPWorkBegin(aSender: TObject; aWorkMode: TWorkMode; aWorkCountMax: Int64);
begin
//  barProgress.Max := aWorkCountMax;
  Log('Starting download ' + IntToStr(aWorkCountMax));
end;

procedure TfrmMain.idFTPWork(aSender: TObject; aWorkMode: TWorkMode; aWorkCount: Int64);
begin
  barProgress.Position := aWorkCount;
  Log('Working ' + IntToStr(aWorkCount));
end;

@anton  jeg kan godt se fidusen i din kode men da det her kun er til at hente en opdatering af et program fra min FTP server, så forsøger jeg at lave et KISS program :-)

Svar