TZipFile -> TZipProgressEvent -> Position -> Fehler bei Dateien über 4GB

[bernau]

Zitat von Rolf Frei:

Wie zeigst du es an? Mit TProgressbar? Also beim TZipFile sehe ich auf die Schnelle keinen Grund wieso es da einen Integerüberlauf geben sollte, da dort mit Int64 gearbeitet wird. Ich würde deswegen eher auf deine Anzeigekomponente tippen, die eventuell nur Integerwerte nutzen kann. Dann wäre es wohl besser, wenn du da nur Prozentangaben zeigst.

Ich zeige den Wert von Position

Delphi-Quellcode:

procedure Form1.ZipProgressEvent(aSender: TObject; aFileName: string; aHeader: TZipHeader; aPosition: Int64);
begin
  LabelPosition.caption := aPosition.ToString;
end;