Zip Kompression / Store wählen?

[Uwe Raabe]

Zitat von gee21:

Also vermute ich mal, dass das packen der Dateien Grundsätzlich korrekt im Store Modus durchgeführt wird. Aber beim erstellen der zip Datei wird irgendein Unterschied gemacht?

Das ist sicher möglich. Es stellt sich jetzt nur die Frage, warum das nachfolgende Programm über das Speicherformat meckert, obwohl das doch offenbar richtig ist. Kann man irgendwie herausbekommen, welches Kriterium da herangezogen wird? Der Kompressionsmodus der einzelnen Dateien scheint es ja nicht zu sein (zumindest nicht allein).

[gee21]

Im Internet finde ich auf diversen Seiten nur den Input das man keine Kompression verwenden darf (also Store verwenden).

Das Programm/Spiel spuckt diese Fehlermeldung beim laden der zip Datei aus: (Bild)

Wenn ich in der Log Datei des Spiel schaue steht da leider auch nur:

Code:

NOT loaded: unsupported compression typ

e

[a.def]

Kontaktiere doch mal den Urheber dieses Codes vielleicht weiß der mehr

=> http://www.delphipraxis.net/174300-t...directory.html (stahli)

[gee21]

Also leider finde ich es nicht heraus.

Habe es jetzt auch noch mit zipforge versucht und habe da auch diverse einstellungen getestet. Aber auch so kommt immer die besagte fehlermeldung betreffend "compression store".

Mit Winrar gehts wenn ich in den optionen auf "speichern" umstelle. Irgendwas macht Winrar einfach anders

[Luckie]

Gibst du den Stream ordnungsgemäß wieder frei? Nicht dass du alles in den Stream packst und ihn dann nicht ordnungsgemäß wieder frei gibst und so eine kaputte Datei auf der Festplatte landet.

[gee21]

Ich glaube es müsste so gut sein?

Delphi-Quellcode:

procedure DoZip(SourceDir: string; ZipFile: TZipFile; DestDir: string);
var
  FileName: String;

  function FileInUse(FileName: string): Boolean;
  var
    hFileRes: hFILE;
  begin
    Result := False;
    if not FileExists(FileName) then
      exit;
    hFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    Result := (hFileRes = INVALID_HANDLE_VALUE);
    if not Result then
      CloseHandle(hFileRes);
  end;

  procedure ZipFiles(RealDir, ZipDir: string);
  var
    E: Integer;
    sr: TSearchRec;
  begin
    ZipDir := StringReplace(RealDir, ZipDir, '', []);
    E := FindFirst(RealDir + '*.*', (faAnyFile and not faDirectory), sr);
    while E = 0 do
    begin
      if (sr.Attr and faDirectory) = 0 then
      begin
        FileName := sr.Name;
        if FileInUse(RealDir + FileName) then
        begin
          CopyFile(PWideChar(RealDir + FileName), PWideChar(DestDir + FileName), False);
          ZipFile.Add(DestDir + FileName, ZipDir + FileName, zcStored);
          DeleteFile(PWideChar(DestDir + FileName));
        end
        else
          ZipFile.Add(RealDir + FileName, ZipDir + FileName, zcstored);
      end;
      E := FindNext(sr);
    end;
    FindClose(sr);
  end;




  procedure ZipPath(RealDir, ZipDir: string);
  var
    E: Integer;
    sr: TSearchRec;
    F: Boolean;
  begin
    RealDir := RealDir + '\';
    if ZipDir = '' then
    begin
      ZipDir := RealDir;
      E := Length(ZipDir);
      F := True;
      while (E > 0) and ((Copy(ZipDir, E, 1) <> '\')) or (F) do
      begin
        Delete(ZipDir, E, 1);
        Dec(E);
        F := False;
      end;
    end;
    E := FindFirst(RealDir + '*.*', faDirectory, sr);
    while E = 0 do
    begin
      if (sr.Attr and faDirectory) = faDirectory then
      begin
        FileName := sr.Name;
        if (FileName <> '.') and (FileName <> '..') then
        begin
          ZipPath(RealDir + FileName, ZipDir);
        end;
      end;
      E := FindNext(sr);
    end;
    FindClose(sr);
    ZipFiles(RealDir, ZipDir);
  end;

begin
  ZipPath(SourceDir, '');
end;

Delphi-Quellcode:

    
    ZipFile := TZipFile.Create;
    ZipFile.Open(outpath2+'\'+edit3.Text+'.wotmod', zmWrite);
    DoZip(geepfad+'\temp\res' ,ZipFile, outpath2+'\'+edit3.Text+'.wotmod');
    ZipFile.Close;
    FreeAndNil(ZipFile);

[nahpets]

Wenn man sich mal die beiden oben angehängten Textdateien genauer anschaut, so erkennt man, dass MEINEv.txt eine Teilmenge von WINRARv.txt ist. MEINEv.txt ist in WINRARv.txt ungefähr am Position F8 zu finden.

WinRar scheint davor die Verzeichnisstruktur abzulegen, was bei Deiner Variante fehlt.

Eigentlich hat das ZIP-Format die Möglichkeit, leere Verzeichnisse mit abzulegen. Meine Vermutung: Die fehlen hier.

Also bitte mal bei WinRar nachschauen, wie da das Zippen genau konfiguriert ist und dieses dann in Deiner Variante vollständig abbilden.

[Uwe Raabe]

Interessant ist auch, daß sich das WinRAR-File nicht mit TZipFile lesen lässt. Übrigens auch nicht mit 7-Zip oder den Windows-Bordmitteln.