Forum: Win32/Win64 API (native code)
Delphi
by Prototypjack,
14. Okt 2005
Entschuldigung.
Ich ahbe vergessen zu erwähnen das die Showmessage die 'Test' enthält nicht ausgegeben wird also liegt der Fehler zwangsläufig hier:
FileToAdd.OnProgress := FileAddProgress;
fs.CopyFrom(FileToAdd, FileToAdd.Size);
Forum: Win32/Win64 API (native code)
Delphi
by Prototypjack,
14. Okt 2005
Hallo,
Ich schreibe gerade eine Methode zum erstellen eines Komprimierten Archives mit Verzeichnisstrukturen. Ohne Kompressione funzt das ganze schon ganz gut aber mit Kompression macht es Probleme.
Das ganze basiert auf Luckies TArchiv.
Hier die Compressionsmethode die nicht funktioniert:
procedure TArchive.AddCompressedFiles(Files,ArchFileNames: TStrings);
var
i: Integer;
fs2:...