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 ?
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 ?