Forum: Win32/Win64 API (native code)
Delphi
by bernau,
22. Apr 2022
https://quality.embarcadero.com/browse/RSP-38036
Ist das so verständlich? (Mein erster QP-Report :oops: )
Forum: Win32/Win64 API (native code)
Delphi
by bernau,
22. Apr 2022
Das wird es wohl sein. Dann kann ich mir das Beispiel ja sparen ;-)
Der Bereich von LongWord (0 .. 4294967295) passt ja zu den 4,2 GB.
Nun ja. Solange die ZIP-Datei nicht fehlerhaft ist, kann ich noch damit leben. Den Progress kann ich wohl mit ein paar Tricks umschiffen.
Forum: Win32/Win64 API (native code)
Delphi
by bernau,
22. Apr 2022
Ich zeige den Wert von Position
procedure Form1.ZipProgressEvent(aSender: TObject; aFileName: string; aHeader: TZipHeader; aPosition: Int64);
begin
LabelPosition.caption := aPosition.ToString;
end;
Forum: Win32/Win64 API (native code)
Delphi
by bernau,
22. Apr 2022
Ich teste grade TZipFile, weil ich Dateien >4GB komprimieren muss. Klappt soweit auch wunderbar.
Allerdings gibt es ein Problem wenn ich den Fortschritt anzeigen lassen möchte. Ich verwende das Event "OnProgress: TZipProgressEvent".
Im Parameter "Position" wird die aktuelle Position der grade zu komprimierenden Datei angegeben. Es gibt aber ein Problem ab 4,2GB, dann wird die Position...