Stimmt, das lag daran. Ich habe sie auf true gesetzt dann funktioniert
Nun habe ich ein weiteres Problem
Die Datei wird zwar erfolgreich hochgeladen aber am ende bekomme ich Fehlermeldung:
Eigenschaft progressbar1 außerhalb des gültiges Bereiches!
Ich habe daneben einen ProgressBar
Delphi-Quellcode:
procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
progressbar1.position:=aworkcount
end;
procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
ProgressBar1.Position := 0;
end;
procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
Label1.Caption := 'Upload Complete.';
end;