Datei mit Fortschrittsanzeige auf einen Ftp-Server hochlade

[Dark-L0rd]

Das mit dem Dateigröße ermitten habe ich jetzt anderes gemacht, jetzt geht es:

Delphi-Quellcode:

for i := 0 to 9 Do
   begin
    if ser_dat1[i] = '' then break;
    if FindFirst(ser_dat1[i], faAnyFile, srec) = 0 then
    begin
     try
      iFileSizeAll := iFileSizeAll + srec.Size;
     finally
      FindClose(srec);
     end;
    end;
   end;

Das progg fror immer bei Hochladen ein... Ich habe jetzt einfach 'son IdAntiFreeze1 hinzugefügt, jetzt geht das...

Ich habe jetzt nur noch ein Problem: Das setzten der Position der StatusBar des Server-Statuses.
Ich habe das jetzt so gemacht, dass die Position immer nach der Größe der Hochzuladenen Datei ist.
(z.b. Datei 1 = 10 MB; Datei 2 = 50 MB; StatusbarMax = 70 MB; Position beim anfang des Hochladens der ersten Datei = 20/70; Position beim Anfang des Hochladens der zweiten Datei = 70/70)
Die Lösung ist irgendwie unschön, vorallem wenn die zweite Datei noch hochläd, aber die Server-Status-Bar schon voll ist...
Gibt es da eine besser möglichkeit die Position zu aktuallisieren?
Schonmal Danke für die Hilfe!