Download/Upload

I IdFTP's OnWork Event lægger du noget lignende.

procedure TForm1.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
    Application.ProcessMessages;
  end;
end;

Forstår ikke. kan du forklare nermere? :)

På din form har du et FTP komponent, som sansynligvis hedder IdFTP1.

På din form har du en Progressbar, som sansynligvis hedder ProgressBar1.

1. På din form klikker du på din FTP komponent, for at markere den.
2. Når din FTP komponent er markeret, klikker du på Events-fanen i din Object Inspector.
3. Dobbeltklik i feltet til højre for OnWork.
4. Tilret proceduren, så den ligner:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
    Application.ProcessMessages;
  end;
end;

5. Færdig.

Jaa nu vil jeg gerne give point men hvordan :/