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!