Hi

Ich versuch mich gerade an einem kleinen ftp programm
Download usw funktioniert schon, nur ich habe hier das problem das
AWorkCountMax immer 0 ist.. mache ich irgendetwas beim verbinden falsch ? oder brauch ich ein list um die dateigröße zu erfahren ?

markieren

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
ProgressBar1.Position := 0;
Label12.Caption := IntToStr(AWorkCountMax div 1024);
Application.ProcessMessages;
end;

noch ne kleine frage:
Wie kann ich ambesten während eines transfers den transfer sauber abbrechen ?

Hallo,
mit ....

markieren

Code:

procedure TForm9.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
  else ProgressBar1.Max := BytesToTransfer;
end;

umgehe ich dieses Problem mit dem AWorkCountMax = 0.

mit....

markieren

Code:

procedure TForm9.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  if Abbruch then IdFTP1.Abort;
end;

breche ich einen Transfervorgang ab, wenn ich den Boolean-Wert Abbruch auf true setze.

Gruß Pierre

@Pierre:

Wo holst du dir denn BytesToTransfer her, wenn AWorkCountMax = 0 ist?

Richtig, hatte ich übersehen:

markieren

Code:

var
BytesToTransfer: LongWord;

und im Downloadbereich:

markieren

Code:

BytesToTransfer := IdFTP1.Size(DATEINAME);

mit DATEINAME als Donwloadfile

Gruß Pierre

Aaaaachso; gut so mach ich es auch. Ich dachte schon es gäb durch ne neue Version irgendeine zusätzliche Eigenschaft oder so...