AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zip Kompression / Store wählen?

Ein Thema von gee21 · begonnen am 17. Mär 2017 · letzter Beitrag vom 18. Mär 2017
Antwort Antwort
Seite 1 von 2  1 2   
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#1

Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 11:18
Hallo

Ich wollte fragen ob es eine einfache Möglichkeit gibt mit der "system.zip" die KompressionsOption wählen zu können?
Am Schluss brauche ich eine Zip Datei die nur "gespeichert" ist und nicht komprimiert (Store)


Delphi-Quellcode:
function zipFile(ArchiveName, Filename: String): boolean;
 var Zip:TZipFile;
begin
  Zip:=TZipFile.Create;
  try
   if FileExists(ArchiveName) then DeleteFile(ArchiveName);
   zip.Open(ArchiveName,zmWrite);
   zip.Add(Filename);
   zip.Close;
   Result:=true;
  except
   REsult:=false;
  end;
  FreeAndNil(zip);
end;
Robert
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#2

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 11:29
Vieleicht so?

zip.Add(FileName, '', zcStored);
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 12:43


Vielen Dank.
Robert
  Mit Zitat antworten Zitat
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 15:24
Ich war wohl etwas zu schnell mit meiner Antwort.

Ich zippe nun einen Ordner wie folgt. Aber leider reklamiert das Programm, dass dann anschliessend das .zip File weiterverarbeitet, immer noch das dieses Archiv nicht im Store Modus gespeichert wurde. Wenn ich den Ordner mit WinRAR packe dann gehts.

Weiss jemand was ich falsch mache?

Delphi-Quellcode:
procedure DoZip(SourceDir: string; ZipFile: TZipFile);
var
  FileName: String;

  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 RealDir + FileName <> ParamStr(0) then
          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;
rufe es dann so auf:
Delphi-Quellcode:
    ZipFile := TZipFile.Create;
    ZipFile.Open(outpath2, zmWrite);
    DoZip(ExtractFilePath(Application.Exename)+'temp\res', ZipFile);
    ZipFile.Close;
    FreeAndNil(ZipFile);
Robert
  Mit Zitat antworten Zitat
BrightAngel

Registriert seit: 13. Mär 2007
130 Beiträge
 
#5

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 15:33
Ich habe zwar keine Hilfe, aber vielleicht Hilfe zur Selbsthilfe. Die Fehlermeldung, dass "irgendwas" am Format für den Store nicht stimmt ist ja wenig auskunftsreich. Du könntest mal eine einzelne (am Besten vermutlich kleine [da einfacher im Editor zu betrachten]{Lorem Ipsum?}) Textdatei auf beide Weisen verarbeiten (also einmal WinRAR und einmal dein Programm).
Dann kannst du vielleicht zuerst mal die Größen der Beiden vergleichen. Zudem ist ein Hexeditor eventuell ganz hilfreich um die Unterschiede zu sehen. Da die Files ja gar nicht komprimiert sein sollen, kann man da einfach die Datei wieder erkennen.
Hoffe, dass dich das weiter bringt...

Brighty
Do you have the email of god??? --- I have to tell him that I'm happy to be born!

Geändert von BrightAngel (17. Mär 2017 um 15:37 Uhr)
  Mit Zitat antworten Zitat
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 15:34
Danke das mach ich gleich mal
Robert
  Mit Zitat antworten Zitat
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 16:10
Nun Ja, Also folgendes habe ich mal herausgefunden.

Die gezipten Dateien die sich in den beiden Archiven befinden haben die selbe Grösse, selbe PackGrösse und auch die selbe CRC "Prüfungs Nummer".

Die beiden zip Dateien sind jedoch nicht genau gleich gross. Und wenn ich diese mit Hex/Text Editor aufmache ist zumindest der Anfang wie auch das Ende der Dateien nicht genau gleich. Ist das der Header der Zip Datei?

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?
Miniaturansicht angehängter Grafiken
dateieninwinrar.png   zipdateien-eigenschaften.png  
Angehängte Dateien
Dateityp: txt WINRARv.txt (41,9 KB, 7x aufgerufen)
Dateityp: txt MEINEv.txt (41,1 KB, 6x aufgerufen)
Robert
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#8

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 16:38
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).
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 17:27
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
Miniaturansicht angehängter Grafiken
unbenannt.png  
Robert
  Mit Zitat antworten Zitat
a.def
(Gast)

n/a Beiträge
 
#10

AW: Zip Kompression / Store wählen?

  Alt 17. Mär 2017, 17:38
Kontaktiere doch mal den Urheber dieses Codes vielleicht weiß der mehr

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

Geändert von a.def (17. Mär 2017 um 17:41 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz