Zitat von
Spider:
Zitat von
Luckie:
Lad mal eine größere Datei runter, mehrer MB die paar Kilobytchen sind ja schneller unter als du kucken kannst. Und ich nehme mal an du hast DSL. Mit Modem oder ISDN würde man aus Kostengründen so ein Projekt ja gar nicht erst anfangen.
Was soll das heißen? Ich bin auch grad an einem
FTP-Browser dran und hab auch nur ISDN.
Das soll heißen, dass ich es mir docj zweimal überlegen würde so was zu programmieren, was ich nur online richtig teste kann. Wird vom Provider nach Zeit abgerechnet, dann kostet jede Minuten online testen Geld. Mit einer Flat oder einem Volumentarif wohl eher kein Problem.
@ickehausen:
Hast du die Ereignisse auch mit der Komponente im
OH verbunden? Oder probier mal folgendes:
Code:
procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
[b]Progressbar1.Repaint;[/b]
end;