TZipFile + SubDirectory

[stahli]

Nochmal zwei Fragen zum TZipFile (unter FireMonkey):

1.) fmShareDenyNone

Ich habe jetzt einfach TZipFile überschreiben und fmShareDenyNone verwendet.

Delphi-Quellcode:

procedure TZipFile.Add(FileName: string; ArchiveFileName: string;
  Compression: TZipCompression);
var
  LInStream: TStream;
  LHeader: TZipHeader;
begin
  if not (FMode in [zmReadWrite, zmWrite]) then
    raise EZipException.CreateRes(@SZipNoWrite);

  if not FCompressionHandler.ContainsKey(Compression) then
    raise EZipException.CreateResFmt(@SZipNotSupported, [
      TZipCompressionToString(Compression) ]);

  // Setup Header
  FillChar(LHeader, sizeof(LHeader), 0);
  LHeader.Flag := 0;
  LInStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); // FIXED fmOpenRead);
  try
    LHeader.Flag := 0;
    LHeader.CompressionMethod := UInt16(Compression);
    LHeader.ModifiedDateTime := DateTimeToFileDate( tfile.GetLastWriteTime(FileName) );
    LHeader.UncompressedSize := LInStream.Size;
    LHeader.InternalAttributes := 0;
    LHeader.ExternalAttributes := 0;
    if ArchiveFileName = '' then
      ArchiveFileName := ExtractFileName(FileName);
    if FUTF8Support then
      LHeader.Flag := LHeader.Flag or (1 SHL 11); // Language encoding flag, UTF8
    LHeader.FileName := StringToTBytes(ArchiveFileName);
    LHeader.FileNameLength := Length(LHeader.FileName);

    LHeader.ExtraFieldLength := 0;
    Add(LInStream, LHeader);
  finally
    LInStream.Free;
  end;
end;

Auf den ersten Blick scheint das so alles zu funktionieren. Jedenfalls kann ich die laufende ProjektExe somit selbst packen.
Kennt jemand plausible Gründe, warum Emba das nicht entsprechend geregelt hat?


2.) Umlaute
Das Zippen von kompletten Ordnern funktioniert eigentlich gut. Ich habe aber ein Problem mit Umlauten in Dateinamen festgestellt (siehe Screenshot).
Weiß jemand Abhilfe?

[Union]

Also welche Kombination verwendest Du jetzt unter Firemonkey? Nur TZipFile mit dem überschriebenen Add oder auch das DoZip aus dem vorherigen Post?

[stahli]

Beides, aber aus dem DoZip habe ich die Prüfung FileInUse raus geworfen.
Mit DoZip werden die Ordner und Files ermittelt (*.tmp können ausgeklammert werden etc) und ZipFile.Add packt dann eine Datei.

[Union]

Sowas geht:

Delphi-Quellcode:

procedure TForm1.btnZipClick(Sender: TObject);
var
  BaseDir : string;
  ZipFile : TZipFile;
begin
  BaseDir := IncludeTrailingPathDelimiter(TPath.GetDirectoryName(Paramstr(0)));
  ZipFile := TZipFile.Create;
  ZipFile.Open(BaseDir+'ZipTest.zip', zmWrite);
  ZipFile.Add(BaseDir+'Hällö\Äin Faß vüll Tönte.txt' ,'Hällö\ZipTest\Äin Faß vüll Tönte.txt');
  ZipFile.Close;
  ZipFile.Free;
end;

Daher vermute ich dass Deine Dateisuche den falschen Stringtyp zurückgibt.

Wenn Du mit XEx und besonders FMX arbeitest, solltest Du das Find-Gedöns im eigenen Interesse durch TPath und TDirectory ersetzen. Auch die ganzen Abfragen auf "\" sowie "." sollten raus.

[stahli]

Hmm, ich habe Deinen Code getestet. Bei mir sind die Umlaute verfälscht in der Zip!?

[Union]

Schau ob das UTF Flag gesetzt ist. Sollte eigentlich im Constructor von TZipfile geschehen. Anonsten häng doch mal ein komplettes kleines Testprojekt hier rein sowie eine dadruch erzeugte Zipdatei. Vielleicht passiert der Fehler ja auch beim Entpacken.

[stahli]

Das UTF Flag ist gesetzt. Getestet auf Win7 32 + 64.
Anbei mal ein Testprojekt incl. erzeugter zip.
Offenbar noch etwas von Emba, das nix taugt.

Ich werde dann doch mal Abbrevia ansehen.

[luisk]

Danke für den Zip-Tool Hinweis:
http://tpabbrevia.sourceforge.net/