TZipWrite.AddDeflate() and MODERN 7FM.exe

[vlad-mal]

Hello!
I found that .zip files created with a call to the AddDeflated() method:
procedure AddDeflated(const aFileName: TFileName;
RemovePath: boolean = true; CompressLevel: integer = 6;
ZipName:TFileName=''); overload;

• are handled incorrectly by modern versions of the graphical utility 7zFM.exe (7zip file manager ) when the ZipName string-parameter contains "reverse" eg "Delphi2007\Trash\1zip64". In this case, all files appear as being in the same directory, with a long file name that includes the directory.
  For example, let's create a directory containing

1. file named "File In Root Folder.txt"
2. directory named "Child Folder"
3. In the "Child Folder" directory, create a file named "File in Child Folder.txt".

Now let's zip this directory by sequentially calling the AddDeflate method for each file. The ZipName must contain a relative path with backslashes. Then we open the resulting archive (necessarily with a NEW version) with the 7zFM utility. We see that there is no file structure in the archive, there are only a couple of files with strange names:

If you change the backslashes to forward slashes, then everything will be fine:

...
Note: if you create a .zip file not one at a time, but all at once, by calling the AddFolder() method, then everything will be fine: in the implementation of the AddFolder() method, the AddDeflated() method is called, in which only forward slashes are present!
Regards, Malinovsky Vladimir.

[synopse]

I am not to reproduce your problem.
Do you have some code to share to reproduce it?

TZipWrite.AddDeflated() calls ZipName := NormalizeZipName(aFileName) in line 1745 which should put the proper / separator everywhere in place to .

[synopse]

I tried to make a paranoid fix for this issue.