Dateien in eine zusammenfassen

[xZise]

Gibt es in Delphi eine möglichkeit Dateien zu einer neuen zusammenfassen?

Also so ähnlich wie Zip, rar etc.!

Nur "brauche" ich keine Komprimierung, sondern lediglich eine Zusammenfassung. Damit man z.B. nur eine Datei downloaden muss, und die dann von MEINEM Programm wieder auseinadergefrickelt wird?

[Tyrael Y.]

Ich habe es nicht getestet, aber sollte an sich mit TFileStream gehen.

Immer die Position merken an der er mit der neuen Datei beginnt zu lesen.
Mit SaveToFile Speichern.
Und beim "entpacken" wieder immer bis zu den gemerkten Positionen lesen und in eine neue Datei speichern.

Sollte gehen

[Martin K]

Vielleicht in Resourcen *.res-Dateien packen ?

[xZise]

Zitat:

Zitat von Tyrael Y.

Ich habe es nicht getestet, aber sollte an sich mit TFileStream gehen.

Immer die Position merken an der er mit der neuen Datei beginnt zu lesen.
Mit SaveToFile Speichern.
Und beim "entpacken" wieder immer bis zu den gemerkten Positionen lesen und in eine neue Datei speichern.

Sollte gehen

Mit Streams habe ich noch nicht gearbeitet...

Müsste ich das denn ungefähr so speichern:

Zitat:

<Dateipositionen>
<Datei1>
<Datei2>
...

?

Zitat:

Zitat von Martin K

Vielleicht in Resourcen *.res-Dateien packen ?

Wie geht das?


Und eigentlich dachte ich an einer "eigenen" Dateiendung ;)

[Martin K]

Zitat:

Zitat von xZise

Zitat:

Zitat von Martin K

Vielleicht in Resourcen *.res-Dateien packen ?

Wie geht das?

Och, da wirst Du bestimmt in der Suche viel finden.
Bei *.res ist es auch praktisch, wenn Du ein selbstentpackendes Archiv machen willst.
Also einfach die res in eine EXE einbinden, und wenn die EXE gestartet wird, können die Dateien entpackt werden.

Zitat:

Zitat von xZise

Und eigentlich dachte ich an einer "eigenen" Dateiendung ;)

Dann musst Du es doch per FS machen...

[franktron]

Ich hab mal sowas Programmiert hier ist die Klasse mit DEMO

[Bernhard Geyer]

Zitat:

Zitat von xZise

Gibt es in Delphi eine möglichkeit Dateien zu einer neuen zusammenfassen?

Also so ähnlich wie Zip, rar etc.!

Nicht so ähnlich sondern mach es genau so. Nimm dir 'ne ZIP-Komponente und das ZIP-Format.
Damit brauchst Du das Rad nicht nochmal neu zu erfinden und hast neben (der nicht nötigen Komprimierung) gleich auch eine CRC-Checksumme für das Archiv eingebaut.

[DGL-luke]

Nuja

Du brauchst wohl auch den Dateinamen, oder?

dann würd ichs so machen:

Delphi-Quellcode:

type
  TFileHeader = record
    len: Int64;
    name: string;
    path: string;

Mit dem Filestream dann schreiben:

Delphi-Quellcode:

var files: array of TFileHeader;
    fs: TFIleStream;
    ms: TMemoryStream;
    i: Integer;
    slen: Int64;
begin
  ms := TMemoryStream.Create;
  fs := TFileStream.Create('archive.xzs',fmOpenCreate);
  for i := 0 to high(files) do
    begin
      slen := length(files[i].name);
      fs.write(slen);                           //länge des dateinamens schreibeb
      fs.Write(@files[i].name[1],slen);         //dateinamen schreiben
      fs.Write(len);                            //länge der datei schreiben
      ms.size := 0;
      ms.LoadFromFile(files[i].path);           //datei laden
      ms.Position := 0;
      fs.CopyFromStream(ms,ms.size);           //datei schreiben
    end;
end;

so weisst du beim laden immer, wie lange deine daten sind.

Im übrigen würde ich auch zu einer vorhandenen Lösung greifen, ich meine,m was hast du gegen Komprimierung?

[xZise]

Zitat:

Zitat von Martin K

Och, da wirst Du bestimmt in der Suche viel finden.
Bei *.res ist es auch praktisch, wenn Du ein selbstentpackendes Archiv machen willst.
Also einfach die res in eine EXE einbinden, und wenn die EXE gestartet wird, können die Dateien entpackt werden.
[...]
Dann musst Du es doch per FS machen...

Okay ;)

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von xZise

Gibt es in Delphi eine möglichkeit Dateien zu einer neuen zusammenfassen?

Also so ähnlich wie Zip, rar etc.!

Nicht so ähnlich sondern mach es genau so. Nimm dir 'ne ZIP-Komponente und das ZIP-Format.
Damit brauchst Du das Rad nicht nochmal neu zu erfinden und hast neben (der nicht nötigen Komprimierung) gleich auch eine CRC-Checksumme für das Archiv eingebaut.

- Ist diese Komponente kostenlos?
- Eigene Dateiendung?

Zitat:

Zitat von franktron

Ich hab mal sowas Programmiert hier ist die Klasse mit DEMO

o.O Sieht gut aus, aber MUSS es eine ".dat" sein?

Könntest du auch eine Beispiel-exe beilegen?

[Tyrael Y.]

Ups sry meinte TMemoryStream.

Dabei ist zu beachten, daß die Dateien dann solange das Objekt von TMemoryStream da ist im Speicher liegen. Daher nicht ratsam mit sehr großen Dateien, wenn du nicht soviel RAM hast. Für kleinere Dateien sollte es machbar sein.

Speichern:
- alle Dateien, die du "speichern" möchtest in einer Schleife durchgehen
- die Eigenschaft "Position" merken
- LoadFromFile für die erste Datei aufrufen
- nächster Schliefendurchlauf
- die Eigenschaft "Position" merken
- LoadFromFile für die zweite Datei aufrufen
...
am Ende mit SaveToFile in eine neue Datei speichern

Lesen:
- mit LoadFromFile deine Datei laden
- mit Read bis zur gemerkten Position lesen
- das ganzte in eine Datei speichern
usw.

[franktron]

Zitat:

Zitat von xZise

o.O Sieht gut aus, aber MUSS es eine ".dat" sein?

Könntest du auch eine Beispiel-exe beilegen?

Das kannst doch selber sagen wie die File heissen soll.

Sry hab die DPR vergessen

[xZise]

Zitat:

Zitat von DGL-luke

Im übrigen würde ich auch zu einer vorhandenen Lösung greifen, ich meine,m was hast du gegen Komprimierung?

Nix, die Dateien sind aber eh nicht sehr groß, also ist sie nicht umbedingt notwendig.

Bisher gefällt mir der FileClass am besten, und funktioniert bisher auch sehr gut.

[Bernhard Geyer]

Zitat:

Zitat von xZise

Zitat:

Zitat von Bernhard Geyer

Nicht so ähnlich sondern mach es genau so. Nimm dir 'ne ZIP-Komponente und das ZIP-Format.

- Ist diese Komponente kostenlos?

Selbst verwende ich eine kostenpflichtige. Aber wenn Du die Forensuche bemühst müsstest Du auch kostenlose Komponenten finden (z.B. Abbreviate auf Sourceforge).

Zitat:

Zitat von xZise

- Eigene Dateiendung?

Wenn Du Lustig bist und es für spielfreudigen Anwendern nicht so offensichtlich zu einer Neuen "Mal schauen was passiert wenn man ..." Spielwiese einladen willst - Ja.

[franktron]

So habs nochmal hochgeladen jetzt mit DPR

P.S. die verschlüsslung ist noch nicht eingebaut

[xZise]

Zitat:

Zitat von franktron

P.S. die verschlüsslung ist noch nicht eingebaut

Musst dich auch nicht beeilen, da es wunderbar ohne läuft, und es eigentlich für jeden zugänglich sein sollte.

@ Bernhard:
Der sinn meines Programms ist einfach:
Es gibt ein Spiel (TrackMania), welches einen komplizierten Pfad (bei mir: C:\Programme\TrackMania ESCW) hat, und man sich Strecken (~\Tracks\Challanges\) downloaden kann (auch anderes zeugs ^^) und mir es zu dumm ist ständig diesen Ordner "aufzusuchen". Also habe ich mir gedacht programmiere ich ein Programm, welches über die WinRegistry den Installationsort heruasfindet und dementsprechend brauch man nur den Dateitypen (*.TMIP) anzuklicken. Es erscheint ein Fenster mit den Dateien etc. und man kann dann die Dateien exportieren. Ich denke mal, dass das Programm, wenn es fertig ist eine ordentliche Zeitersparnis sein wird.

@ all: Diese Frage ist:

== beantwortet ==

[xZise]

franktron:
Werden die Dateinamen immer klein geschrieben?

[franktron]

Ne ich schreib nur immer alles klein ist wegen MySQL und Linux und so

[xZise]

1. WOW das war schnell
2. Ich meine dass, weil, wenn ich den Namen aus dem Header hole nur kleinbuchstaben bekomme!

[omata]

Auch wenn es schon beantwortet ist. Hier noch mal ein Link zu einer freien Zip-Komponente

Gruss
Thorsten

[franktron]

Zitat:

Zitat von xZise

1. WOW das war schnell
2. Ich meine dass, weil, wenn ich den Namen aus dem Header hole nur kleinbuchstaben bekomme!

Das hab ich geamcht wegen Dpl. Datein