Forum: Programmieren allgemein
Delphi
by DelTurbo,
25. Jan 2024
Hi,
nun weiß ich noch vom letzten mal warum du die uses bei eschrieben hast. Ja, ich bin lernfähig, soweit es das Alter noch zulässt... :-D:-D
Forum: Programmieren allgemein
Delphi
by DelTurbo,
24. Jan 2024
@Delphi.Narium,
tut mir leid das die Rückmeldung so lange gedauert hat. Der Ansatz ist bei kleinen Files die Lokal auf der Platte liegen super. Ich habe das allerdings die ganze zeit auf dem LAN mit einem 15GB File getestet. Der Nachteil an dieser Lösung ist, das die gepackte Datei nochmal gelesen und geschrieben wird. Und das dauert halt. Möchte man dann noch ein Verify machen muss man es ein...
Forum: Programmieren allgemein
Delphi
by DelTurbo,
24. Jan 2024
Hui,
erstmal vielen dank. Ich werde mir das mal ansehen, ist ja nicht grade wenig und wie immer eine Rückmeldung geben.
Forum: Programmieren allgemein
Delphi
by DelTurbo,
24. Jan 2024
Hi,
ich habe eine Frage (ja wie immer). Ich habe rausgefunden das TIdCompressorZLib relativ schnell ist. Wenn ich das so mache wie in meinem Beispiel. Ich habe nur das wesentlich drin gelassen, also keine abfrage mehr ob die Datei existiert usw.
procedure ShrinkFile(FName:String);
var
IStream :TStream;
OSTream :TStream;
Compress :TIdCompressorZLib;
begin
...