Delphi Progressbar und TGauge

Thema durchsuchen

Ansicht

Themen-Optionen

Progressbar und TGauge

Ein Thema von ninja · begonnen am 3. Nov 2003 · letzter Beitrag vom 9. Nov 2003

Vorheriger Beitrag

Nächster Beitrag

himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.361 Beiträge

Delphi 12 Athens

#10

Re: Progressbar und TGauge

8. Nov 2003, 13:25

zusammenfalten · markieren

Delphi-Quellcode:

			Const Tempo1x = 153600 {150 KB/s * 1024};

  {bei DVD's sind das 1,3-1,4 MB/s}

Var Verzeichnis: String;

  Tempo: Byte;

  Zeit: Integer;

Verzeichnis := 'E:\Download';

Tempo := 4;  {1=1x(150 KB/s), 2=2x(300 KB/s), 4=4x(600 KB/s)...}

Zeit := GetDirSize(Verzeichnis, True) div (Temp * Temo1x);

Zeit = die Zeit für den Brennvorgang in Sekunden, allerdings ohne Leadin, Leadout, Verzeichnisstruktur und so - nur die reinen Dateiinhalte.